VB6 - Koneksi Database Fox Pro (DBF)

1. Buatlah sebuah Module dan ketik kode berikut :

Public KonekDB As New ADODB.Connection
Public Rs As New ADODB.Recordset
Public strKonekDB As String
Public SQL As String

Public Sub BukaDatabase()
strKonekDB = "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & App.Path & ";Exclusive=No"

If KonekDB.State = adStateOpen Then
    KonekDB.Close
    Set KonekDB = New ADODB.Connection
Else
    KonekDB.Open strKonekDB
End If

If err.Number <> 0 Then
    MsgBox "Koneksi ke database gagal, mohon periksa kembali.", vbCritical + vbOKOnly, "Error"
    End
Else
    MsgBox "Koneksi ke database berhasil.", vbInformation + vbOKOnly, "Berhasil"
End If
End Sub

2. Kode dalam Form_Load

Private Sub Form_Load()
Call BukaDatabase
End Sub

3. Sintaks SQL

Set Rs = New ADODB.Recordset
SQL = "SELECT * FROM database.dbf"
Rs.Open SQL, KonekDB, adOpenDynamic, adLockOptimistic