Koneksi Database MS Access dengan ADODB

Baca Juga

Menanggapi permintaan mas gilang di facebookku kemarin, berikut saya sampaikan langkah-langkah koneksi database dengan ADODB, nah kali ini saya pakai contoh yang sedrhana saja ya, pakai data dari Microsoft Access 2003. Mungkin bagi yang sudah mahir gak perlu baca nih artikel karena buang-buang waktu...

Pertama yang harus dilakukan adalah menambahkan compenent/reference ADODB ke dalam project, caranya adalah sbb:

Buat sebuah project baru.

Pilih dalam pilihan menu, Project>>References

 

Kemudian muncul jendela :

 

Pilih/contreng (kaya pemilu aja he ... 2) Microsoft ActiveX Data Object 2.7 Library, kemudian tekan OK. sudah ??? 

Kalau sudah berarti ADODB sudah dapat digunakan, Selanjutnya buat sebuah module baru, kemudian tuliskan code seperti di bawah ini:

 

Public ado As ADODB.Connection

Public rs As ADODB.Recordset

Langkah selanjutnya buat sebuah form dan tambahkan sebuah listbox untuk menampilkan data dengan ADODB, kemudian tulis code dibawah ini :

Private Sub Form_Load()

Set ado = New ADODB.Connection

ado.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/db1.mdb"

'membuka tabel 

Set rs = New ADODB.Recordset

rs.Open "table1", ado

If Not rs.EOF Then

Do Until rs.EOF

    List1.AddItem rs(0)

    rs.MoveNext

Loop

End If

End Sub

*) yang merah-merah itu bisa diganti-ganti sesuai letak database, nama tabel dan nama fieldnya.

Terus di Run (tekan F5), akan tampil datanya seperti ini ni …

 

Beres dech, selamat mencoba ya! Anda bisa mengembangkan code ini sendiri untuk pengolahan data yang lebih rumit, misalnya bagi yang sudah familier dengan SQL, ADODB sangat cocok untuk di pakai, file Zip yang berisi sourcenya bisa di download disini.