Koneksi Database Ms Access Dengan Adodb

Koneksi Database MS Access dengan ADODB Oleh : Nur Suhadi, http://vbjadul.blogspot.com 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. Anda dapat membaca artikel-artikel lain, seputar visual basic 6.0, crystal report di http://vbjadul.blogspot.com