Red de conocimiento informático - Computadora portátil - Cómo conectar la base de datos accsee en la programación vba (para acceder

Cómo conectar la base de datos accsee en la programación vba (para acceder

Opción explícita

096 Dim Database As Object

097 Private Sub Form_Load()

098 Set Database = New ADODB ("PROVIDER=Microsoft.Jet.OLEDB. .4..0;Data Source=Data.mdb;") 'Conectarse a la base de datos

100 Si ((Database.State) = (adStateOpen)) Entonces

101 MsgBox ( "¡Conexión exitosa!" )

102 Else

103 MsgBox ("¡Conexión fallida!")

104 End If

105 End Sub

106 Private Sub Form_Unload(Cancelar como entero)

107 Database.Close 'Cerrar la base de datos

108 Set Database = Nothing 'Borrar las variables de la base de datos

109 Subtítulo final