Cara Mudah Koneksi Database ADODC di Visual Basic 6

Artikel pemrograman yang akan  saya share kali ini yaitu tentang bagaimana caranya membuat koneksi database Ms. Access  ke Visual Basic 6 dengan pembahasan yang ringkas dan mudah untuk diimplementasikan. 

Caranya anda buka proyek program yang sudah anda buat, anda juga bisa membuat baru. designnya sesuaikan dengan database yang anda buat. 

Tambahkan satu module, dan ketikkan listing di bawah ini :

Public Conn As New ADODB.Connection

Public rsanggota As ADODB.Recordset

Public Sub BukaDB()

Set Conn = New ADODB.Connection

Set rsanggota = New ADODB.Recordset

Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbanggota.mdb"

End Sub

Sesuaikan huruf yang dicetak tebal pada listing di atas dan sesuaikan pula nama database yang berwarna merah tersebut dengan database program anda. (catatan: simpan database tepat di file program yang sedang anda buat. jika berada di dalam direktori tertentu, maka tambahkan \namadirektori. contoh \dbase\namadatabase.mdb)

Tutup module dan buka form. beralih ke jendela code dan ketikan listing di bawah ini :

Private Sub loaddb()

Call BukaDB

adoanggota.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\dbanggota.mdb"

adoanggota.RecordSource = "anggota"

adoanggota.Refresh

End Sub

Jangan lupa untuk menambahkan komponen Adodc di program anda. jika anda tidak menemukannya, klik kanan pada toolbox, tambahkan Ms. Ado Data Control 6.0 (OLEDB).

Sesuaikan huruf yang dicetak tebal hitam dengan nama ADODC di form anda. sesuaikan pula nama database anda pada huruf berwarna merah. untuk huruf berwarna hijau, sesuaikan dengan nama tabel yang anda tuju.

satu langkah lagi, tambahkan pada sub form_load listing berikut :

call loaddb

nah, database anda sudah terkoneksi dengan Visual Basic. tandanya adalah, Adodc akan muncul dengan warna jelas. jika belum terkoneksi, adodc akan terlihat seperti samar (Enabled=false).

Semoga bermanfaat.