Red de conocimiento informático - Material del sitio web - ¡Cómo crear un módulo de conexión de base de datos de Access para VB y cómo llamar a este módulo!

¡Cómo crear un módulo de conexión de base de datos de Access para VB y cómo llamar a este módulo!

'Agrega el siguiente código en el módulo ------------------

Public cn As New ADODB.Connection

Public rs As Nuevo ADODB.Recordset

'Conectar a la base de datos

Función pública ConnectDB(strDb como cadena) Como cadena

En caso de error, Ir a ErrH:

Con cn

Si .State <> adStateClosed Entonces .Close

.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDb &";"

.ConnectionTimeout = 30

.CursorLocation = adUseClient

.Open

Finalizar con

Función de salida

ErrH:

ConnectDB = "Error al conectarse a la base de datos:" & Err.

Función final

'Función de inicio del programa

Sub Main()

dim strResult como cadena

dim strDatabase como cadena

'Ruta de la base de datos

strDataBase= App.Path & "test.db"

strResult=ConnectDB()

'Conectarse a la base de datos

si strResult<>" entonces

Msgbox strResult, vbCritical

End

End If

MsgBox "¡Conexión a la base de datos exitosa! "

'Abre la tabla de datos (Tabla1 es tu tabla de datos)

rs.Abre "select * from Table1",cn,adOpenKeyset,adLockOptimistic

MsgBox "**** encontrado" & rs.RecordCount & "Record! "

rs.Close

Fin Sub