Das Beispiel in diesem Artikel beschreibt, wie Sie ADODB.Connection verwenden, um eine Verbindung zur Access-Datenbank herzustellen. Die Treibertypversion ist: Microsoft.Jet.OLEDB.4.0. Beim Datenbankbetrieb von VB ist die Verbindung zur Datenbank der erste und grundlegendste Schritt. Das in diesem Artikel beschriebene Beispiel bietet einen guten Referenzwert für Anfänger, um zu lernen, wie man eine Verbindung zur Access-Datenbank in VB herstellt.
Der spezifische Implementierungscode lautet wie folgt:
VERSION 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“ Attribut 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;") ' Mit Datenbank verbindenIf ((database.State) = (adStateOpen)) Then MsgBox („Verbindung erfolgreich!“)Else MsgBox („Verbindung fehlgeschlagen!“)End If Database.CloseSet Datenbank = NothingEnd SubIn diesem Beispiel wird ein neues ADODB.Connection-Objekt mit dem Namen „database“ erstellt. Nach erfolgreicher Verbindung wird ein Meldungsfeld angezeigt, das Sie über das Verbindungsergebnis informiert Access2003-Verbindungen sind im Grunde so. Bitte platzieren Sie die Testdatenbank im selben Verzeichnis wie VB. Data.mdb kann entsprechend Ihrem tatsächlichen Datenbankpfad geändert werden.