To:爱 可以引用ADO对象来搞定。 你首先要在VB菜单中: “工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.1 Library” 示例:Private Sub Form_Load() Dim cn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim cnstr As String cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _ "SourceType=DBF;" & _ "SourceDB=;" & app.path & "\data" & _ "Exclusive=No" cn.Open cnstr rs.CursorLocation = adUseClient rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic Set DataGrid1.DataSource = rs DataGrid1.Refresh End Sub以上示例程序的作用是将XXX.dbf表中的数据显示在datagrid1控件中。
可以引用ADO对象来搞定。
你首先要在VB菜单中:
“工程”-->“引用”-->“Microsoft AxtiveX Data Objects 2.1 Library”
示例:Private Sub Form_Load()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim cnstr As String
cnstr = "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB=;" & app.path & "\data" & _
"Exclusive=No"
cn.Open cnstr
rs.CursorLocation = adUseClient
rs.Open "select * from XXX.DBF", cn, adOpenKeyset, adLockBatchOptimistic
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
End Sub以上示例程序的作用是将XXX.dbf表中的数据显示在datagrid1控件中。