Script Koneksi ODBC Visual Basic 6 Dengan Visual Voxpro Database......

Sebelum Mengkoneksikan Kita terlebih dahulu harus tau kalau extension *.dbf mana yang akan kita koneksikan. Perlu diketahui bahwa *.dbf itu di punyai oleh beberapa jenis bahasa paket: antara lain Dbase III, Dbase IV, Dbase V, Clliper, Arcview dan lain-lain.
Untuk Bahasan Ini saya hanya membahas Koneksi Visual Basic dengan database Visual Foxpro dengan Koneksi type ODBC(Script),,,,

######################################################################################
Option Explicit
Public con As ADODB.Connection
Public rec As ADODB.Recordset
Dim strstring As String

Set con = New ADODB.Connection
Set rec = New ADODB.Recordset

strstring = "PROVIDER=MSDASQL.1;Persist Security Info=False;Driver={Microsoft FoxPro VFP Driver (*.dbf)};UID=;SourceDB=C:\BATMAN\DATA\MENJIN.DBC;SourceType=DBC;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;"

con.Open strstring

rec.ActiveConnection = con

SQL = "SELECT * from Nama_tabel where Nama_field='Kondisi' ORDER BY Field_tertentu" ' where eventstype = 'Normal'

rec.Open (SQL), con, adOpenDynamic, adLockBatchOptimistic

######################################################################################

Ini hanya skript Koneksi, Belum termasuk Manipulasi data/tabel.
mudah-mudahan berguna bagi Pembaca.....