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


Ir a la página Anterior  1, 2

Objetivo: 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

Perfil MP  
Objetivo: 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.

Perfil MP  
Objetivo: 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.

Perfil MP  
Ir a la página Anterior  1, 2

Página 2 de 2


  
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario

   

Está utilizando la versión (Lo-Fi). Para ver la versión completa del foro, haga clic aquí.

Powered by Icy Phoenix based on phpBB
Design by DiDiDaDo

Página generada en:: 0.1396s (PHP: -4% SQL: 104%)
Consultas SQL: 22 - Debug off - GZIP Activado