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, sekarang 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 yakni sebagai berikut :
Jika sudah,
Buka Visual Basic 6.0
Design Form1 menyerupai gambar dibawah ini :
Jika sudah Klik Project - Reference
Checklist menyerupai gambar diatas
Klik OK
Jika sudah masukan koding dibawah ini :
Silahkan KLIK DISINI untuk melihat Tutorial diatas supaya anda lebih jelas
Silahkan KLIK DISINI Untuk download Source Code Project diatas
Demikianlah Cara Koneksi Database Access .accdb pada VB 6.0, semoga bermanfaat untuk teman JNM dimanapun anda berada :)
Berikut langkahnya :
Buatlah database dengan nama : DBJNM.accdb
Kemudian buat tabel dengan nama : TBL_SUPPLIER
Design TBL_SUPPLIER yakni sebagai berikut :
Jika sudah,
Buka Visual Basic 6.0
Design Form1 menyerupai gambar dibawah ini :
Jika sudah Klik Project - Reference
Checklist menyerupai 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 melihat Tutorial diatas supaya anda lebih jelas
Silahkan KLIK DISINI Untuk download Source Code Project diatas
Demikianlah Cara Koneksi Database Access .accdb pada VB 6.0, semoga bermanfaat untuk teman JNM dimanapun anda berada :)