Cara Koneksi Database Menggunakan Objek dan Coding App.Path Pada VB

Setelah Sebelumnya Vainit memposting Cara Koneksi Database Menggunakan Objek Pada VB. Anda juga bisa menggunakan cara yang kedua yaitu dengan Menggunakan Objek dan Coding App.path saran dari kami adalah dengan Metode ini, karena Metode sebelumnya mempunyai kelemahan jika file database pindah posisi ke folder lain maka project akan error, karena database tidak ditemuka. Bagaimana caranya, silakan ikuti instruksi berikut ini :

1.    Tambahkan form baru (project > add form > open)
2.    Buatlah form seperti gambar berikut

3.    Double klik form di area yang kosong
4.    Ubah Form_load() menjadi Form_activate()
5.    Ketiklah coding dalam form_activate() sebagai berikut:

Private Sub Form_Activate()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\DBAccess.mdb"
Adodc1.RecordSource = "Barang"
Adodc1.Refresh
Set DataGrid1.DataSource = Adodc1
DataGrid1.Refresh
End Sub

6.    Agar data dalam datagrid tidak dapat diedit, klik datagrid
7.    Ubah properti allow update menjadi false

8.    Run project (F5)

Catatan : Dalam pemrograman inilah model yang direkomendasikan

Tweet