Cara Membuat Koneksi Visual Basic 6 ke database MS Access

Cara Membuat Koneksi Visual Basic 6 ke database MS Access

04 Mar 2020 0 Comment tutorial vb 6

Pastikan teman-teman sudah membuat database Accessnya dan telah menyimpan di root directori dimana project teman-teman tersimpan. Dan saya sarankan teman-teman agar membuat database Access dengan extensi 2003.

 

Selanjutnya memasukan Reference Data Objects, caranya : Menu Project -> Reference kemudian centang pada Microsoft ActiveX Data Objects 2.8 Library dan Kilk OK!

 

Selanjutnya seperti biasa untuk koneksi ke database kita buat dimodul, caranya : Menu Project -> Add Module pada form yang terbuka pilih Module dan klik Open Kemudian anda bisa ganti nama modulnya di properties.

 

Kemudin copy/paste kode berikut ke module tersebut !

Option Explicit
Dim CONN As New ADODB.Connection

Public Sub ConnectDb()
 On Error GoTo gagal:
 Set Conn = New ADODB.Connection
     Conn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;" _
            & "Data Source=" & App.Path & "db.mdb;" _
            & "Jet OLEDB:Database Password=''"
     Conn.CursorLocation = adUseClient
 Exit Sub
gagal:
 MsgBox "Gagal terhubung ke Database ! Kesalahan pada : " & Err.Description, vbCritical, "Peringatan"
End Sub

 

Sehingga jika anda ingin mengkoneksikan Aplikasi teman-teman ke databasenya tinggal memanggil Call ConnectDb di form manapun untuk melakukan crud.

Share


Article Posted By Hariadi

Seorang freelancer website and software developer, gemar dengan ilmu seputar IT serta penuh semangat untuk belajar.


Related Articles

0 Comment

No Comment


Leave a Comment ...