Comenzando-la base y la conexión

Como siempre, vamos a crear la base de datos de nuestro programa. Podéis hacerlo con sqlitebrowser,o, como lo hice en este caso, con el gestor de base de datos de gambas 2(utilidad que se extraña en gambas 3).   Os dejo aquí el enlace para descargar la base de datos y ver su estructura o directamente usarla, ya que lo que nos interesa es avanzar con gambas 3.Creamos un nuevo modulo llamado modcon y le agregamos el siguiente còdigo:
Private hconn As Connection
Public Sub ConectarBase() As Connection

If Not Exist(User.Home &/ “.reporte/reporte”)
Try Mkdir User.Home &/ “.reporte”
Copy “reporte” To User.Home &/ “.reporte/reporte”
Endif

hconn = New Connection
hconn.Host = User.Home &/ “.reporte”
hconn.name = “reporte”
hconn.type = “sqlite3”
Try hconn.Open()
Return hconn
If Error Then
hconn = Null
Message.Error(“error al conectar con la base”)

Endif

End
Public Sub cerrarconexion()

If hconn = Null Then Return
hconn.Close()
hconn = Null

End
Dentro de este hemos creado el procedimiento para comprobar si la base existe, si no existe crea el directorio .reporte y copia allí la base de datos, luego abre la misma para poder trabajar con ella. Como siempre declaramos primero la variable hconn como conecttion.

Con este mòdulo vamos a poder abrir y cerrarla base desde cualquiera de los formularios del programa anteponiendo al procedimiento el nombre del modulo.

Ejemplo

hconn=modcom.conectarbase()

continuará…….

Anuncios
Esta entrada fue publicada en programación y etiquetada , , , . Guarda el enlace permanente.

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión / Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión / Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión / Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión / Cambiar )

Conectando a %s