Método de implementación del código ADODB para conectarse a la base de datos Access usando VB6

El ejemplo de este artículo describe cómo utilizar ADODB.Connection para conectarse a la base de datos de acceso. La versión del tipo de controlador es: Microsoft.Jet.OLEDB.4.0. En la operación de la base de datos de VB, conectarse a la base de datos es el primer paso y el más básico. El ejemplo descrito en este artículo tiene un buen valor de referencia para que los principiantes aprendan cómo conectarse a la base de datos de Access en VB.

El código de implementación específico es el siguiente:

 VERSIÓN 5.00Begin VB.Form Operation Database Caption = "VB Operation Database" ClientHeight = 3645 ClientLeft = 4905 ClientTop = 4260 ClientWidth = 5895 LinkTopic = "Form1" ScaleHeight = 3645 ScaleWidth = 5895EndAttribute VB_Name = "Operation Database" Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Exposed = FalseOption ExplicitPrivate Sub Form_Load()Dim Database As ObjectSet Database = New ADODB.ConnectionCall Database.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") ' Conéctese a la base de datosSi ((base de datos.Estado) = (adStateOpen)) Luego MsgBox ("¡Conexión exitosa!") Else MsgBox ("¡Conexión fallida!") Fin si base de datos.CloseSet base de datos = NothingEnd Sub

Este ejemplo crea un nuevo objeto ADODB.Connection llamado "base de datos". Utilice este objeto para conectarse a la base de datos. Una vez que la conexión sea exitosa, aparecerá un cuadro de mensaje para informarle el resultado de la conexión. Las versiones anteriores a Access2003 Connections son básicamente así. Coloque la base de datos de prueba en el mismo directorio que VB. Data.mdb se puede modificar de acuerdo con la ruta de su base de datos real.