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