Cara Koneksi VB6 dengan Database Ms.Access

Selamat datang di blog Belajar VB, kali ini saya akan sedikit share mengenai cara mengkoneksikan VB6 dengan database Ms.Access. Berikut langkah-langkahnya:

- Buka VB6 nya dan pilih standard exe.

- Kemudian masuk ke Project >> References lalu centang Microsoft ActiveX Data Objects 2.0 Library. Lalu klik OK.

- Ketikan sintak berikut di Deklarasi General:

Public Conn As ADODB.Connection
Public Rs As New ADODB.Recordset
Public Str_sql As String

- dan sintak berikut untuk mengkoneksikan di form_activate:

On Error Resume Next
Set Conn = New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;" & "Persist Security Info=False;Data source=" & App.Path & "\nama_database.mdb"
If Conn.State = 1 Then Conn.Close
If Rs.State = 1 Then Rs.Close

Conn.Open
Conn.CursorLocation = adUseClient
Str_sql = "select * from nama_tabel"
Rs.Open Str_sql, Conn, adOpenDynamic, adLockOptimistic, adCmdText

- Dengan sintak seperti di atas anda sudah bisa mengkoneskikan database access dengan program VB6 anda.

Sekian dulu tutorialnya semoga bermanfaat & Selamat mencoba.