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