VB 6.0 - Cara Koneksi Database Access .Accdb

Pada Tutorial Gratis VB 6.0 kali ini akan dibahas mengenai : Cara Koneksi Database Access .accdb. Jika sebelumnya anda telah mengetahui apa itu extension .mdb dan .accdb pada database Access yang telah kami posting pada Tutorial sebeumnya, kini saatnya kita akan mempraktikan bagaimana cara mengkoneksikan database access .acdb pada VB 6.0

Berikut langkahnya :
Buatlah database dengan nama : DBJNM.accdb
Kemudian buat tabel dengan nama : TBL_SUPPLIER
Design TBL_SUPPLIER adalah sebagai berikut :

Jika sudah,
Buka Visual Basic 6.0
Design Form1 seperti gambar dibawah ini :

Jika sudah Klik Project - Reference

Checklist seperti gambar diatas
Klik OK

Jika sudah masukan koding dibawah 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.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DBJNM.accdb"
End Sub
Private Sub Form_Load()
    Call BukaDB
    Adodc1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source= " & App.Path & "\DBJNM.accdb; "
    Adodc1.RecordSource = "TBL_SUPPLIER"
    Adodc1.Refresh
    Set DataGrid1.DataSource = Adodc1

End Sub

Silahkan KLIK DISINI Untuk download Source Code Project diatas

Demikianlah Cara Koneksi Database Access .accdb pada VB 6.0, semoga bermanfaat untuk sobat Anak Desa dimanapun anda berada :)