VB连接DBF数据库事例！

Question

如题：求vb使用ODBC连接DBF数据库的代码

Answer 1

Private Sub Form_Load() 
    Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data   Source=jwl_dbf" 
    Adodc1.RecordSource = "select * from JWCK_BM" 
    Adodc1.Refresh 
End Sub 
jwl_dbf是VFP数据库ODBC名称

Answer 2

先建立ODBC，看看能不能连接。

Answer 3

'连接DBF
connStr = "Provider=MSDASQL.1;" & _
 "Driver=Microsoft Visual FoxPro Driver;" & _
 "SourceDB=" & App.Path & "\;" & _
 "Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF"
conn.Open connStr
rs.CursorLocation = adUseClient
sql = "select * from 工资表"    '工资表为dbf文件名称
rs.Open sql, conn, adOpenDynamic, adLockOptimistic