Agar aplikasi dan database tersinkronisasi, aplikasi dan database harus di hubungkan atau di koneksikan terlebih dahulu. Di Kesempatan ini, saya akan memberitahu cara mengkoneksikan atau menghubungkan aplikasi dengan database menggunakan sintak.
Keuntungan menggunakan sintak adalah, kita dapat meletakkan file database dimanapun, yang penting masih ada dalam komputer ataupun jaringan lan. Mari kita mulai .
1. Buatkan sebuah Module baru dan isi dengan sintak berikut :
Public Con As New ADODB.Connection
Public Sub Koneksi()
On Error GoTo Error
If Con.State = 1 Then Con.Close
'sesuaikan database .mdbnyadengan database anda
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\database.mdb;Persist Security Info=False"
Exit Sub
Error:
MsgBox "Koneksi ke database gagal!" & vbCrLf & "Detail Error : " &Err.Description, vbCritical, "Peringatan"
End Sub
2. Beralih ke form, isikan pada Form_Load dengan sintak berikut :
Koneksi 'pemanggilan koneksi database
Adodc1.ConnectionString = Con.ConnectionString
Adodc1.RecordSource = "select * from Buku"
Adodc1.Refresh
Catatan :
- App.Path : adalah lokasi aplikasi kamu;
- database.mdb : adalah nama database kamu;
Selamat mencoba!
No comments:
Post a Comment