VB 6.0 - Cara Koneksi Database Access .mdb

Pada Tutorial Gratis VB 6.0 kali ini akan dibahas mengenai Cara Koneksi Database Access .mdb dengan Visual Basic 6.0. Bagi anda yang ingin belajar VB 6.0, koneksi database adalah hal yang sangat penting. Jika anda sudah bisa membuat Koneksi Database maka anda akan mudah dalam membangun sebuah Aplikasi Dengan VB 6.0

Berikut caranya :
Buatlah Database Dengan Nama : DBJNM.mdb
(jika anda belum tahu cara membuat Database Access .mdb bisa  KLIK DISINI)
Buatlah tabel dengan nama : TBL_ANGGOTA
Design Tabel Anggota adalah seperti dibawah ini :

Buka Visual Basic 6.0 anda
Kemudian jika sudah muncul Form1, buatlah form seperti dibawah ini :

Jika sudah membuat design form seperti gambar diatas,
masukan koding dbawah ini :

Dim Koneksi As New ADODB.Connection
Dim RSBarang As ADODB.Recordset
Sub BukaDB()
Set Koneksi = New ADODB.Connection
Set RSBarang = New ADODB.Recordset
Koneksi.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBJNM.mdb"
End Sub
Private Sub Form_Load()
Call BukaDB
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\DBJNM.mdb; "
Adodc1.RecordSource = "TBL_ANGGOTA"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
End Sub

Jika sudah semua, silahkan anda run project anda

Silahkan KLIK DISINI untuk mendownload Sourcecode diatas