vb打开FoxPro的DBF文件的例子

在窗体上拉一个DataGrid控件,再用下列代码测试

Dim conn As New ADODB.Connection

Dim rss As New ADODB.Recordset


conn.ConnectionString = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=" & App.Path & "\gcmc1.DBF"
conn.Open
rss.Open "select * from gcmc1", conn, 1, adLockOptimistic
Set DataGrid1.DataSource = rss