bueno... espero que le ayude a alguien...

primero generamos la siguiente variable en el inicio del codigo



luego creamos la funcion para conectarse y un sub para desconectarnos



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



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

saludos

Aunque el post sea antigüo quiero añadir alguna cosa que falta para que cualquier perdido como yo lo consiga..

1.- Hay que añadir gb.db (proyecto --> propiedades --> Componentes)
2.- Creo que hay un error - En mi cabeza está
3.- gambas puede crear bases de datos desde herramientas --> Gestor de bases de datos (a veces se pone tonto con ese formulario y la mitad del mismo se "esconde" en la parte derecha y parece que no está)

Igualmente muchas gracias.. Ya era hora de empezar a hacer algo por mi parte -.-

BrunoIV escribió: [Ver mensaje]

2.- Creo que hay un error

Citar:

IF NOT ConectarBase() THEN RETURN          'CONECTAR A LA BASE DE DATOS

No, no hay un error. Si te fijas en la función, devuelve true si falla y devuelve false si tiene éxito, por lo tanto    es correcto. Sin embargo la función sí contiene un error en la parte de código donde comprueba si hay error, donde debería devolver true, y no false:



Claro está que si te gusta más preguntar si la conexión NO está establecida, en lugar de como lo hizo el autor, siempre puedes modificar las instrucciones RETURN para que devuelvan lo esperado.

===================
Jesús Guardón

Por favor, usemos el corrector ortográfico antes de pulsar el botón "Enviar".

"uo ǝs ʇɐu pıɟıɔıן ɐdɹǝupǝɹ ɐ dɹoƃɹɐɯɐɹ, soןo ɥɐʎ bnǝ dɹodouǝɹsǝןo"

No dije nada..xD Pensé que retorna false si se produce un error.. Pero ya está todo solucionado  

Debemos crear un modulo con cualquier nombre para usarlo en coneeciones de bases de datos y sentencias sql en mi caso es asi:

PUBLIC asiscon AS Connection 'variable que contiene los parametros para administrar la conexion
PUBLIC asisresul AS Result  'variable de tipo table que guarda el resultado de una busqueda


PUBLIC FUNCTION conectarbase() AS Boolean

 IF asiscon <> NULL THEN RETURN FALSE 'verifica si la base de datos esta cerrada
 'verifica si la base de datos esta cerrada
    asiscon = NEW Connection
    'hConn.CLOSE  ' Cerramos la conexion con la base de datos
    asiscon.Host = "/home/jousseph/DESARROLLO-JOU/GAMBAS/control_asistencia" 'ubicacion de la base de datos
    asiscon.Name = "asistencia_asesores" 'nombre base de datos"
    asiscon.Type = "sqlite" 'tipo de la base de datos
  
    TRY asiscon.Open() 'trata de abrir la base de datos
    
    IF ERROR THEN 'mostra error si no se pudo conectar a la base de datos
    Message.Error("ERROR AL CONECTARSE A LA BASE DE DATOS")
    QUIT
    RETURN TRUE
    END IF
    RETURN FALSE
END

PUBLIC FUNCTION cerrarconexion()
  IF asiscon = NULL THEN
    asiscon.Close()
  asiscon = NULL
ENDIF


END

Un saludo

===================
CONTROL SYSTEMS-((CELIS))