Cara Koneksi VB dengan Database Access

Selamat datang di blog Belajar Visual Basic, untuk postingan ini saya akan membahas mengenai cara mengkoneksikan VB6 dengan database Ms.Access (.mdb), langkah-langkah sebagai berikut:

- Buka vbnya kemudian buat sebuah form, simpan di folder tempat databasenya.

- Masukan Sintak berikut di general:

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

- Kemudian masukan di Form_Activate sintak berikut:

Private Sub 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
End If

If Rs.State = 1 Then
    Rs.Close
End If

Conn.Open
Conn.CursorLocation = adUseClient
str_Sql = "select* from nama_tabel"
Rs.Open str_Sql, Conn, adopendinamyc, adLockOptimistic, adCmdText
End Sub

pada sintak nama_database.mdb sesuaikan dengan nama databasenya dan pada str_Sql = "select* from nama_tabel" nama_tabel merupakan nama tabel dalam database.

Sekian tutorial cara koneksi databasenya,selamat mencoba & semoga bermanfaat.