espero que todos estén bien, primero que nada les mando un cordial saludos ayer volví al mundo de gambas después de un gran tiempo de estudio en la univ pero ya que todo se a calmado volví a riendas, tengo un pequeño problema que se que mas de 1 me lo podrá solucionar =) Bueno e aquí el código y la explicación.
PUBLIC SUB Form_Open()
WITH sqlite
.Type = "sqlite3"
.Name = "conexionmysql"
.Host = "/home/******/Documentos/Gambas/Compra"
TRY .Open
IF ERROR THEN
Message.Error("error en conectar en la base de datos sqlite")
ME.Close
ELSE
rs = sqlite.Exec("select * from datosmysql")
rs.MoveFirst
END IF
END WITH
END
WITH sqlite
.Type = "sqlite3"
.Name = "conexionmysql"
.Host = "/home/******/Documentos/Gambas/Compra"
TRY .Open
IF ERROR THEN
Message.Error("error en conectar en la base de datos sqlite")
ME.Close
ELSE
rs = sqlite.Exec("select * from datosmysql")
rs.MoveFirst
END IF
END WITH
END
Codigo de la conexion, se conecta perfectamente ya que puedo insertar datos en la tabla
Codigo con problemas:
DIM sqliagregar AS Result
DIM type, host, login, password, nombrebd AS String
sqliagregar = sqlite.Create("datosmysql")
sqliagregar!type = typea.Text
sqliagregar!host = hosta.Text
sqliagregar!login = logina.Text
sqliagregar!password = passworda.Text
sqliagregar!namebd = nombrebda.Text
sqliagregar.Update
'Hasta aqui funciona bien el codigo.'
type = rs!type'Exactamente en esta linea da el error' ' el error dice: Result is not avalaible'
host = rs!host
login = rs!login
password = rs!password
nombrebd = rs!namebd
DIM type, host, login, password, nombrebd AS String
sqliagregar = sqlite.Create("datosmysql")
sqliagregar!type = typea.Text
sqliagregar!host = hosta.Text
sqliagregar!login = logina.Text
sqliagregar!password = passworda.Text
sqliagregar!namebd = nombrebda.Text
sqliagregar.Update
'Hasta aqui funciona bien el codigo.'
type = rs!type'Exactamente en esta linea da el error' ' el error dice: Result is not avalaible'
host = rs!host
login = rs!login
password = rs!password
nombrebd = rs!namebd
Saludos y gracias
Albacete
