一个Adodc1,一个DataGrid1
假如你需要显示E:\gz目录下的 "工资表.dbf"
Private Sub Form_Load()
Adodc1.ConnectionString = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=E:\GZ;"
Adodc1.RecordSource = "SELECT * FROM 工资表"
Set DataGrid1.DataSource = Adodc1
End Sub
连接字符串也可以先建立一个ODBC连接
dim conn as new adodb.connection,rs as new adodb.recordset
conn.connectionString="...."
conn.open
rs.cursorLocation=adUseClient
rs.open "select * from 表",conn,3,2
set datagrid1.dataSource=rs '把记录集的内容显示到DataGrid1中
ADO与DBF的连接方法:
Dim conn As New ADODB.Connection
conn.ConnectionString = "provider=msdasql;DRIVER=Microsoft Visual FoxPro Driver;UID=;Deleted=yes;Null=no;Collate=Machine;BackgroundFetch=no;Exclusive=No;SourceType=DBF;SourceDB=C:\FOX\DATA;"
conn.Open