Código para la conexión:
Public ConexionBD As New Connection
Public ResultadoBD As Result
Public Sub Conectar()
'Datos para la conexion de la base de datos
ConexionBD = New Connection
ConexionBD.Type = "sqlite3"
ConexionBD.Host = "Direcorio de La Base de Datos"
ConexionBD.Name = "Nombre de Base de Datos"
'Aviso si hay algun fallo en la conexion
Try ConexionBD.Open()
If Error Then
Message.Error("Error al conectar a la base de datos.")
ConexionBD = Null
Endif
End
Public Sub Form_Open()
Conectar()
End
Public ResultadoBD As Result
Public Sub Conectar()
'Datos para la conexion de la base de datos
ConexionBD = New Connection
ConexionBD.Type = "sqlite3"
ConexionBD.Host = "Direcorio de La Base de Datos"
ConexionBD.Name = "Nombre de Base de Datos"
'Aviso si hay algun fallo en la conexion
Try ConexionBD.Open()
If Error Then
Message.Error("Error al conectar a la base de datos.")
ConexionBD = Null
Endif
End
Public Sub Form_Open()
Conectar()
End