Koneksi Database MsAccess dengan VB 6

Dalam tulisan kali ini akan dibahas bagaimana cara mengoneksikan VB6 dengan database MsAccess.

Langkah pertama adalah dengan membuat database MsAccess sendiri. Cara membuat database dengan access tidak akan dibahas pada tulisan ini. Sampeyan bisa cari di google atau ntar suatu hari nanti saya akan menuliskannya di blog ini, entah kapan.

Tapi agar bisa mencoba programnya saya akan memberikan 1 contoh database dari MsAccess untuk di download.

Klik disini untuk download database msaccess

Dalam database tersebut hanya terdapat 2 tabel, yaitu tabel anggota dan simpanan. Tabel anggota terdiri dari 2 field, yaitu no_anggota dan nama. Sedangkan pada tabel simpanan terdiri dari 2 field juga, yaitu no_anggota dan saldo_simpanan.

Kalo lebih jelasnya seperti di bawah ini:

Anggota	Simpanan
no_anggota	no_anggota
nama	saldo_simpanan

tulisan yang ditebalkan adalah nama tabelnya, klo tulisan yang gag tebal itu fieldnya.

Selanjutnya kita akan membahas bagaimana cara mengkoneksikan database tersebut dengan Visual Basic 6.:

1. Buka VB 6 dan buat sebuah modul

 2. Pada Project tekan Ctrl+T untuk menampilkan Component dan centang Microsoft ADO Data Control 6.0

3. Klik dua kali pada tool Adodc untuk menampilkannya pada form 

4. Pada bagian modul ketik script di bawah ini

Public RsPaidi As New ADODB.Recordset 

Public Kon As New ADODB.Connection 

Public dbx, AdiSQL As String 

Public Sub Konek() 

On Error GoTo koneksi_Error 

dbx = App.Path & "\koperasi.mdb" 

Kon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & dbx Kon.CursorLocation = adUseClient Exit Sub koneksi_Error: MsgBox "Server Error alias gag kenek!",vbCritical 

End 

End Sub

Fungsi yang diketikan di modul adalah sebagai jembatan untuk koneksi dengan database. Coba lihat gambar yang dilingkari untuk lebih jelasnya. Pada gambar lingkaran bagian atas terdapat nama dari database sedangkan pada bagian bawah adalah perintah untuk menampilkan pesan jika terjadi error atau dengan kata lain database tidak konek.

5. Kemudian simpan Project ini dalam folder yang sama dengan database.

6. Klik dua kali Pada Form1 dan ketikkan perintah seperti ini

7. Jalankan program. Jika muncul kata "Konek Bos!!!" berarti database telah konek.

Oke,, tulisan di atas adalah cara mengoneksikan VB6 dengan database msaccess. Pada artikel berikutnya akan membahas bagaimana cara untuk menampilkan data dari database.

Untuk mengunduh source codenya secara lengkap klik disini

sekian trims.. komen plizz!!