Muy buenas noches !!! Saludos a todos en el foro !!!
Yvan, brother !!! Cómo anda todo?
Bueno amigo ale_xi, aquí te dejo 2 subs que utilizaba cuando programaba en VB .Net (no es que no lo haga actualmente, lo que pasa es que me he volcado de lleno al C# -que de verdad me ha parecido muy interesante y potente !!!)...
Option Explicit On
Option Strict On
'//
Imports FirebirdSql.Data.FirebirdClient
'//
'//
Module modDBConnection
Public FbConn As New FbConnection
Public Sub ConnectToDB()
Dim strConnectionString As String = ""
'//
strConnectionString = "ServerType=0;User=SYSDBA;Password=masterkey;Size=4096;" & _
"Dialect=3;Pooling=FALSE;database=" & Application.StartupPath() & _
"\NombreDeLaBaseDeDatos.FDB"
Try
FbConn.ConnectionString = strConnectionString
If FbConn.State = ConnectionState.Closed Then
FbConn.Open()
End If
Catch errfb As FbException
MessageBox.Show("Error al conectar de la base de datos. Descripcion del error: " & _
errfb.Message, "Error", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Catch ex As Exception
MessageBox.Show("Error. Descripcion del error: " & Err.Description, "Error", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Public Sub DisconnectDB()
Try
If FbConn.State = ConnectionState.Open Then
FbConn.Close()
End If
Catch errfb As FbException
MessageBox.Show("Error al desconectar de la base de datos. " & _
"Descripcion del error: " & errfb.Message, "Error", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
Catch ex As Exception
MessageBox.Show("Error. Descripcion del error: " & Err.Description, "Error", _
MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
End ModuleCon estas 2 subs, establezco la conexión con la BD, llamando a
ConnectToDB, y por supuesto, para la desconexión:
DisconnectDB.
El 'ConnectionString' lo tienes la sub que sirve para conectarse.
Espero te sirva de algo !!!
Saludos !!!
Manuel F. Borrego S.
Barcelona, Edo. Anzoátegui. Venezuela.
