Contoh dalam artikel ini menjelaskan cara menggunakan ADODB.Connection untuk menyambung ke database akses. Versi jenis drivernya adalah: Microsoft.Jet.OLEDB.4.0. Dalam pengoperasian database VB, menyambungkan ke database adalah langkah pertama dan paling mendasar. Contoh yang dijelaskan dalam artikel ini memiliki nilai referensi yang baik bagi pemula untuk mempelajari cara menyambung ke database Access di VB.
Kode implementasi spesifiknya adalah sebagai berikut:
VERSI 5.00Mulai VB.Form Operasi Basis Data Caption = "Basis Data Operasi VB" ClientHeight = 3645 ClientLeft = 4905 ClientTop = 4260 ClientWidth = 5895 LinkTopic = "Form1" ScaleHeight = 3645 ScaleWidth = 5895EndAttribute VB_Name = "Operasi Database" Atribut VB_GlobalNameSpace = FalseAttribute VB_Creatable = FalseAttribute VB_PredeclaredId = TrueAttribute VB_Expose = FalseOption ExplicitPrivate Sub Form_Load()Redupkan Database Sebagai ObjectSet Database = ADODB.ConnectionCall Database.Open("PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=Data.mdb;") ' Hubungkan ke databaseIf ((database.State) = (adStateOpen)) Kemudian MsgBox ("Koneksi berhasil!")Else MsgBox ("Koneksi gagal!")End If database.CloseSet database = NothingEnd SubContoh ini membuat objek ADODB.Connection baru bernama "database". Gunakan objek ini untuk menyambung ke database. Setelah koneksi berhasil, kotak pesan muncul untuk memberi tahu Anda tentang hasil koneksi Koneksi Access2003 pada dasarnya seperti ini. Silakan tempatkan database pengujian di direktori yang sama dengan VB. Data.mdb dapat dimodifikasi sesuai dengan jalur database Anda yang sebenarnya.