Meskipun dBase sudah jarang yang memakai sebagai backend aplikasi-aplikasi di masa kini, tetap saja ada yang masih menggunakannya karena sudah terlanjur memakai dari sejak lama dan mereka tidak melihat alasan untuk mengganti ke model database yang baru.
Hal ini juga saya alami, ketika saya mendapat satu pesanan aplikasi yang harus bisa import data dari dBase. Data tersebut harus bisa di’lebur’ ke dalam database utama yang saya buat dengan MySQL. Untuk frontend saya memakai Visual Basic 6.0.
Pertamanya sih bingung juga, setelah cari sana-sini ketemu juga untuk membuka data dBase. Untuk connection string kita masih memakai bantuan konektor Microsoft Jet. Cara penulisan string nya sebagai berikut:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=folder_lengkap;Extended Properties=dBASE IV;User ID=Admin;Password=;"Di Data Source anda bisa ganti dengan path dan nama dBase nya, misalnya file dBase nya adalah contoh.dbf dan berada di folder C:\Data\ maka connection string nya menjadi seperti ini:
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data\;Extended Properties=dBASE IV;User ID=Admin;Password=;"Buka koneksi string itu dengan object Connection ADODB. Oya, anda bisa tetap memakai ADODB object untuk membukanya. Lalu untuk memakai koneksi di object recordset-nya anda bisa membuka table-nya dengan cara seperti ini:
rs.Open "SELECT * FROM nama_file sehingga dalam contoh ini, anda bisa membuka file contoh.dbf dengan menuliskan SQL statement seperti ini: rs.Open "SELECT * FROM contoh.dbf.
Nah, proses selanjutnya anda bisa mengelola nya seperti biasa dan untuk lebih jelasnya, rekan-rekan bisa melihat contoh dari aplikasi saya:
Dim conn_mpm As ADODB.Connection
Dim rs_data As New ADODB.Recordset
Dim con_string_mpm As String
Dim folder_data As String
Dim nama_file As String
Dim str_sql As String
'/berikan default nama file dan path db
folder_data = "C:\Data\"
nama_file = "contoh.dbf"
'/set connection string
con_string_mpm = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & folder_data & ";Extended Properties=dBASE IV;User ID=Admin;Password=;"
'/buka koneksi
Set conn_mpm = New ADODB.Connection
With conn_mpm
.ConnectionString = con_string_mpm
.CursorLocation = adUseClient
.Open
End With
'/string sql
str_sql = "SELECT * FROM " & nama_file
With rs_data
.CursorLocation = adUseClient
.Open str_sql, conn_mpm, adOpenStatic, adLockReadOnly
.Requery
If .RecordCount <= 0 Then
MsgBox "Tidak ada data di dalam file!", vbExclamation, "Kosong"
Else
masukan field ke control form anda.
End If
End With
'/hapus memory
Set rs_data = Nothing
Semoga artikel ini bisa sedikit bermanfaat.
Saya ingin menuliskan tentang fitur Faces di 
Dalam pembuatan satu programming project yang baik, tentu banyak melibatkan ‘melempar’ banyak parameter keluar. Sehingga untuk penyesuaian nilai parameter-parameter yang tidak konstan bisa di rubah dengan mudah dan tidak perlu merubah coding lagi. Biasa orang meletakan parameter-parameter itu di satu file yang biasa di beri ekstensi 
Langkah pertama untuk membuat proyek pemrograman database, tentu adalah mendesign blue print dari aplikasi itu sendiri. Tanpa design yang benar, kita seolah berjalan dengan mata tertutup, asal jalan saja. Tentu akan terjadi tambal sulam disana-sini di kemudian hari. Biasa setelah mendesign suatu program, saya mulai dengan membuat table-table database terlebih dahulu. Nah, kali ini saya akan mengajak anda berdiskusi tentang table-table di MySQL.
