https://foro.gambas-es.org/viewtopic.php?f=3&t=65&p=200#p200
-----------------------------------
DEATH
Jueves, 24 Septiembre 2009, 18:38

Conectar  Y Obtener Datos De Una BD SQLITE
-----------------------------------
bueno... espero que le ayude a alguien...

primero generamos la siguiente variable en el inicio del codigo

[code linenumbers=false syntax=gambas]
PRIVATE hConn AS Connection
[/code]

luego creamos la funcion para conectarse y un sub para desconectarnos

[code linenumbers=false syntax=gambas]
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[/code]

ahora nos conectaremos... por ejemplo lo haremos al inicar el formulario y obtendremos datos para llenar por ejemplo un combobox

[code linenumbers=false syntax=gambas]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[/code]

bueno... espero que sea de ayuda...

saludos


