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
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhqIjn8a2P24d0hmSf8JZv63ljhatUvDE0Me2usyNH_wOELvVzp4wAaSqRXVELqzlJuQC2UMz0PxsaW6B7Mhyphenhyphen6IuCdlgKhrc4byyNUV2At9SD4TFKRdbAckLVvbpZTzEhrHKZEPCTJb6XU/s320/1.jpg)
- Buat 1 form dan 1 modul untuk koneksi
- klik kanan pada tombol2 > pilih components
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEhYRUfPS9dqaZ4mM31kBebvd8tayhwSYCpWKMS0WQePl6RhabdH2KN1TL_B2fveOhAVGO7VgG4JK9AKRIdTqz1UMGFky3VMwFC8dMinxKa2SrSiZuWhLdt6pyhT8hOQvVP8TNDABD-GiSk/s320/2.jpg)
- Trus cari file "Microsoft ado data control 6 ( OLEDB )"
- Tekan Ok
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEiFTyv-6uHLD8K42kizGcikXXykgNnQii4-1zlr7NlHppFBqUx7sv_LU21kSKL-ScBesO0x3n-j8lyB2FWaCH3_SlrJqvrFSs9KBSF-KZ0fjsix4j8lKbyFKMyIl0qtW9jttR3XSx67jO4/s320/3.jpg)
- pada tambahkan OLEDB tadipada form
- klik kanan object tersebut "OLEDB properties"
- klik tombol build
- cari koneksi "microsoft jet 4 oledb" (khusus dt base mdb)
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEibRuvC39TZohyphenhyphenGqRt9eMDOljN9Aw0V4yhFfqqlSItRBVysRceDgNliZadl51ipD1pdlrJvCIV7g4tdxpZZIzMFWmOEWqrPD3Zj54A66R791QRiEvnGV_1Ou7JG5Q8LKNrrkpmgr7wEVWo/s320/4.jpg)
- untuk accdb ada caranya tersendiri
- klik next > Cari file database mdb anda
![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjLWtZCIehLc0uDAG32t8jt0vjN5Qokij1WL6jPEc-vTCh9ecJ84t8_qWW6IX0nMb4c4c00mwnzsiKNk9L9MmLaaa0gFt2bl6gRewgv6W2ingRX9LeUsuOMbptVP_lbK75FGqMpOOD39N4/s400/5.jpg)
- 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 !