¿Como Continuar Programando En La Siguiente Linea?(SOLUCIONADO)


Goto page Previous  1, 2

Subject: Re: ¿Como Continuar Programando En La Siguiente Linea?
Prueba esto. Es lo mismo que te puse arriba, pero con tus nombres de campos, a ver si así lo entiendes.
Como ves, mucho más claro y sencillo que la cadena sql.

PRIVATE db AS NEW Connection

PUBLIC FUNCTION conexion() AS Boolean
db.close()
db.type = "mysql"
db.host = "10.5.225.24"
db.login = "laraujo"
db.password = "*********"
db.open()
RETURN TRUE
CATCH
message.error(Error.text)
RETURN FALSE
END

PUBLIC SUB Button2_Click() '<<<---------Boton Guardar

dim rs as result
dim contrl as object

rs=db.create("SIET.datos")

rs!Titulo= Trim(UCase(TextBox1.Text))
rs!Autor= UCase(Trim(TextBox2.Text))
rs!Fecha=Trim(UCase(TextBox3.Text))
rs!Precio=Trim(UCase(TextBox4.Text))
rs!Descripcion=Trim(UCase(TextBox5.Text))
rs!Genero=Trim(UCase(TextBox6.Text))

rs.update

for each contrl in me.controls
if contrl is textbox then
contrl.Clear()
endif
next

TextBox1.SetFocus

END

Profile PM  
Subject: Re: ¿Como Continuar Programando En La Siguiente Linea?
Lo que es a mi esta forma me parece mucho mas adecuada, incluso para debuggear que estás metiendo pero bueno ... para gustos los colores.

Profile PM  
Subject: Re: ¿Como Continuar Programando En La Siguiente Linea?
shordi escribió: [Ver mensaje]
Prueba esto. Es lo mismo que te puse arriba, pero con tus nombres de campos, a ver si así lo entiendes.
Como ves, mucho más claro y sencillo que la cadena sql.

PRIVATE db AS NEW Connection

PUBLIC FUNCTION conexion() AS Boolean
db.close()
db.type = "mysql"
db.host = "10.5.225.24"
db.login = "laraujo"
db.password = "*********"
db.open()
RETURN TRUE
CATCH
message.error(Error.text)
RETURN FALSE
END

PUBLIC SUB Button2_Click() '<<<---------Boton Guardar

dim rs as result
dim contrl as object

rs=db.create("SIET.datos")

rs!Titulo= Trim(UCase(TextBox1.Text))
rs!Autor= UCase(Trim(TextBox2.Text))
rs!Fecha=Trim(UCase(TextBox3.Text))
rs!Precio=Trim(UCase(TextBox4.Text))
rs!Descripcion=Trim(UCase(TextBox5.Text))
rs!Genero=Trim(UCase(TextBox6.Text))

rs.update

for each contrl in me.controls
if contrl is textbox then
contrl.Clear()
endif
next

TextBox1.SetFocus

END


MUCHISIMAS GRACIASSS ESTE ME FUNCIONO DE MARAVILLA
GRACIAS POR LA PACIENCIA DE VERDAD ESTUVE VARIOS DIAS ALLANDO LA FORMA PERO ERA POR QUE SOLO SABIA ESE METODO PARA GUARDAR, HASTA QUE ME TOPE CON ESTE SISTEMA QUE NECESITABA GUARDAR VARIOS DATOS

GRACIAS POR LA PACIENCIA.

Profile PM  
Goto page Previous  1, 2

Page 2 of 2


  
You cannot post new topics
You cannot reply to topics
You cannot edit your posts
You cannot delete your posts
You cannot vote in polls
You cannot attach files
You can download files
You cannot post calendar events

   

This is a "Lo-Fi" version of our main content. To view the full version with more information, formatting and images, please click here.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Generation Time: 0.1262s (PHP: -26% SQL: 126%)
SQL queries: 22 - Debug Off - GZIP Enabled