Vb6 Ms Access: Koneksi Visual Basic 6 (Vb6) Dengan Ms Access

Ternyata masih ada juga yang cari  VB6 dengan database Miscrosoft Access. Karena itu rani coba bikin acuan gimana caranya mengkoneksikan VB6 database Ms Access ini.

Kita akan menggunakan koneksi ADO adalah ActiveX Data Object, atau terkadang disebut ADODB. Dan perlu di catat, disini Rani ga akan pakai ADODC control dan ODBC. Kenapah? alasannya pengalaman langsung ADODC fitur nya terbatas dan koneksi ODBC bikin nambah kerjaan dikala proses deployment.

Pada project kita, dalam sebuah form kita tambahkan sebuat CommandButton mirip berikut:

Kemudian kita tambahkan dulu reference nya dengan klik menu Project --> Reference...

Centang pada Microsoft ActiveX Data Object 2.7 Libary kemudian klik OK.
Pada jendela code, kita mulai dengan Option Explicit dan mendeklarasikan variable yang diperlukan.
Option Explicit
Dim oConn As New ADODB.Connection
Dim strConn As String 

Variable string strConn untuk menyimpan connection string. Kita beri nilai ketika event Form_Load.
Data source kita beri nilai App.Path & "\latihan.mdb", dengan perkiraan bahwa database access kita yang bernama latihan.mdb berada dalam lokasi/folder yang sama dengan file aplikasi (.EXE) atau file project VB yang sedang kita buat.

Private Sub Form_Load()
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=" & App.Path & "\latihan.mdb;" & _
          "Persist Security Info=False"
End Sub

Jika kita menempatkan dilokasi tertentu misalnya C:\latihan.mdb, connection string bisa kita tuliskan selaku berikut:
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
          "Data Source=C:\latihan.mdb;" & _
          "Persist Security Info=False"

Kemudian kita buat sub untuk membuka koneksi:
Sub Open_Connection()
Set oConn = New ADODB.Connection
oConn.ConnectionString = strConn
oConn.Open
End Sub

Terakhir kita akan panggil sub Open_Connection pada event  Command1_Click. Rani tambahkan messagebox untuk pertanda koneksi sukses terhubung, juga error handling untuk memberi berita jikalau terdapat error koneksi.
Private Sub Command1_Click()
On Error GoTo errHandler

Open_Connection

MsgBox "Koneksi Berhasil!!!"

oConn.Close
Set oConn = Nothing

Exit Sub
errHandler:
MsgBox Err.Number & ":" & Err.Description
End Sub

Terakhir mari kita coba dan jikalau koneksi berhasil maka akan terlihat selaku berikut:

Artikel selanjutnya:
Menampilkan Data di Datagrid


Click here if you like this article.



Sumber http://rani-irsan.blogspot.com