Mengoneksikan Database VB ke Access menggunakan source App.path

Sementara ini para pembaca newbe mengoneksikan database nya dengan cara mudah, yakni dengan menggunakan ADODC atau menggunakan DATA1, nah namun ada cara lain untuk menggoneksikan database ke dalam project VB anda, bagaimana caranya  ?

Kali ini kita akan membahas mengoneksikan database Access ke Vb menggunakan souce yang memanfaatkan objek ADODC, hm.. gimana maksutnya ? ya.. pertama kita akan menggunakan objek ADODC pada form, namun kita akan menyisipkan sedikit source yang sebenartnya fungsionalnya hamper sama dengan settingan properties pada ADODC, terus Apa kelebihannya ? ya.. seperti kita ketahui, jika kita menggunakan settingan properties pada ADODC, maka penempatan project pada computer menjadi bersifat statis, sehingga jika kita merubat letak file, maka niscaya program akan tidak bias dijalankan , dan akan muncul pesan pesan error mengenai pengoneksian database, nah jika kita menggunakan model pengoneksian database ini , maka aplikasi yang kita buat akan bersifat portable dan tidak masalah jika kita copykan ke computer lain dengan letak file yang berbeda beda.

Langsung saja kita mulai :

1. Siapkan Database access yang ingin dikoneksikan (namadatabase : dsbase, namatable : bukutelpon, field : nama(text(30)) & telpon((30)) ).
2. Buat Form terlebih dahulu
3. Buat Objek ADOBC yang terdapat pada component Microsoft Ado Data Control 6.0  di Formnya. Untuk lebih mudahnya mari kita buat form inputan sederhana dan juga data grid untuk menampilkan hasilnya.

Buat Tampilan Form Seperti ini : 

4. Simpan Project dan Formnya pada satu FOLDER dengan database yang sudah disiapkan tadi.

5. Setlah Form telah siap, maka kita akan bermain codding skarang , pertama kita buat script untuk mengoneksikan database degan obyek ADOBC,

Public Conn As New ADODB.Connection ‘deklarasi variable untuk koneksi Public Sub koneksi() On Error GoTo konekErr If Conn.State = 1 Then Conn.Close ‘keluar database jika sudah terkoneksi sebelumnya ‘driver koneksi, sesuaikan database dsbase.mdb nya dengan database anda Conn.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dsbase.mdb; “ Exit Sub konekErr: ‘hanya koreksi jika database gagal dihubungi MsgBox “Gagal menghubungkan ke Database ! Kesalahan pada : ” & Err.Description, vbCritical, “Peringatan” End Sub

6.  Coba cek dengan meruning program, jika tidak ada error maka lanjutkan.

7. skarang, kita coba mengoneksikan nya dengan data1, letaknya pada  form_load :

Private Sub Form_Load() koneksi ‘pemanggilan koneksi database Adodc1.ConnectionString = Conn.ConnectionString Adodc1.RecordSource = “select * from bukutelpon “ Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 End Sub

8.  Jalankan Aplikasi skarang, maka akan ada sedikit perubahan pada datagrid, nah itu menandakan bahwa database sudah terkoneksikan dengan benar.

9. Sekarang coba kita tambahkan tombol save, dan kita akan meletakkan souce untuk save pada tombol save tersebut.
sebenarnya jika sudah terkoneksi dengan benar. Maka metode untuk penyimpanan , pengeditan dan pendeletan, sama dengan menggunakan ADOBC biasa, tapi coba kita bahas secara singkat untuk mennyimpan pada database.

Private Sub Command1_Click() With Adodc1.Recordset .AddNew !nama = Text1.Text !telpon = Text2.Text .Update End With Adodc1.Refresh DataGrid1.Refresh End Sub

10.  Nah selesai sudah pengoneksian database menggunakan source yang memanfaatkan objek ADODC, dengan metode penempatan file app.path.

Harap ilmu ini bermanfaat,

Salam diaz

Wasalam.

Jika ingin download tutorial lengkap dengan banyak gambar.

silakan download di SINI

Mengoneksikan_Database_Access_menggunakan_source_App.path_by_fendiaz

atau pembaca ingin mendownload source lengkapnya VB6

silakan download di Sini

http://diaz.netau.net/data/ds_VB_cobapath.rar