Comunidad Gambas-es

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.

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