Cara membuat koneksi vb dengan acces cukup mudah, silahkan ikuti cara seperti di bawah ini :
- Buka Visual basic 6 yang sudah terinstal di komputer anda
- Pilih Standard exe
- Buat 1 form dan 1 modul untuk koneksi
- klik kanan pada tombol2 > pilih components
- Trus cari file "Microsoft ado data control 6 ( OLEDB )"
- Tekan Ok
- pada tambahkan OLEDB tadipada form
- klik kanan object tersebut "OLEDB properties"
- klik tombol build
- cari koneksi "microsoft jet 4 oledb" (khusus dt base mdb)
- untuk accdb ada caranya tersendiri
- klik next > Cari file database mdb anda
- Klik tobol tes koneksi untuk memastikan agar koneksi sesuai
- stelah koneksi sukses, selanjutnya copy paste koneksi tadi yang ada di sebelah tombol build ke modul yang sudah di siapkan
- Ketikkan coding seperti dibawah ini :
Public Con As New ADODB.Connection Public rs As New ADODB.Recordset
Sub bukakoneksi()If Con.State = adStateOpen Then Con.Close
'tanpa password :Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" + App.Path + "\DATA BASE\dbperpustakaan1.accdb;Persist Security Info=False"'tulisan bercetak biru untuk mengetahui file berada meskipun dipindah2.
'dengan password : Con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\DATA BASE\dbperpustakaan1.accdb;MS access; pwd=myprojec"'tulisan bercetak biru untuk mengetahui file berada meskipun dipindah2.
MsgBox "Koneksi data sukses.", vbInformationEnd Sub
Comments
Post a Comment
Silakan berkomentar sesuai dengan topik. Jangan menyisipkan link pada komentar dan jangan sampai komentar Anda masuk komentar SPAM.
Jangan salahkan saya bila komentar Anda dihapus !