primero generamos la siguiente variable en el inicio del codigo
PRIVATE hConn AS Connection
luego creamos la funcion para conectarse y un sub para desconectarnos
PRIVATE FUNCTION ConectarBase() AS Boolean
IF hConn <> NULL THEN RETURN FALSE
hConn = NEW Connection
hConn.Host = "ruta de la carpeta contenedora de la base de datos"
hConn.Name = "nombre_base_de_datos"
hConn.Type = "sqlite"
TRY hConn.Open()
IF ERROR THEN
hConn = NULL
Message.Error("Error al conectar con la base de datos")
RETURN FALSE
END IF
RETURN FALSE
END
PRIVATE SUB CerrarConexion()
IF hconn = NULL THEN RETURN
hConn.Close()
hConn = NULL
END
IF hConn <> NULL THEN RETURN FALSE
hConn = NEW Connection
hConn.Host = "ruta de la carpeta contenedora de la base de datos"
hConn.Name = "nombre_base_de_datos"
hConn.Type = "sqlite"
TRY hConn.Open()
IF ERROR THEN
hConn = NULL
Message.Error("Error al conectar con la base de datos")
RETURN FALSE
END IF
RETURN FALSE
END
PRIVATE SUB CerrarConexion()
IF hconn = NULL THEN RETURN
hConn.Close()
hConn = NULL
END
ahora nos conectaremos... por ejemplo lo haremos al inicar el formulario y obtendremos datos para llenar por ejemplo un combobox
PUBLIC SUB Form_Open()
DIM hResult AS Result
DIM campo_uno AS String
DIM campo_dos AS integer
IF ConectarBase() THEN RETURN 'CONECTAR A LA BASE DE DATOS
hResult = hConn.Exec("select * from nombre_de_la_tabla")
DO WHILE hResult.Available
campo_uno = hResult["columa_uno_de_la_tabla"]
campo_dos = hResult["columna_dos_del_la_tabla"]
ComboBox1.Add(campo_uno, campo_dos) 'campo_dos vendria siendo el index por lo tanto puede ser perfectamente el ID de lla base de datos u otro
hResult.MoveNext()
LOOP
CerrarConexion
END
DIM hResult AS Result
DIM campo_uno AS String
DIM campo_dos AS integer
IF ConectarBase() THEN RETURN 'CONECTAR A LA BASE DE DATOS
hResult = hConn.Exec("select * from nombre_de_la_tabla")
DO WHILE hResult.Available
campo_uno = hResult["columa_uno_de_la_tabla"]
campo_dos = hResult["columna_dos_del_la_tabla"]
ComboBox1.Add(campo_uno, campo_dos) 'campo_dos vendria siendo el index por lo tanto puede ser perfectamente el ID de lla base de datos u otro
hResult.MoveNext()
LOOP
CerrarConexion
END
bueno... espero que sea de ayuda...
saludos