Question

VBA怎么读取DBF文件？我已经

Function OpenFile()
Dim sql
Dim Connect
Dim Recordset
Set Connect = CreateObject("adodb.Connection")
Set Recordset = CreateObject("adodb.RecordSet")

With Application.FileDialog(msoFileDialogFilePicker)
.InitialFileName = "F:\"
.Title = "Please select the folder path."
If .Show Then 'set true
strpath = .SelectedItems(1)
Else
End
End If
End With

With Connect
.Provider = "MSDASQL.1;Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;"
.ConnectionString = "SourceDB=" & strpath
.Open
End With
If Connect.State = 1 Then
MsgBox "连接成功！"
End If
sql = "select * from SLBH.dbf"
Recordset.Open sql, Connect, 3, 3
End Function
连接已经成功，但是编译程序提示（Recordset.Open行）ODBC驱动程序不支持所需属性。请问怎么解决？

Answer 1

Set Recordset= New ADODB.Recordset
要先new，再用

追问

这个问题解决了，是我路径没设好的关系，请问你知道Recordset这个对象的方法和属性吗?怎么操作获取指定行或列的数据？如果能交流就采纳你的吧，谢谢。

追答

recordset记录集打开后( 写简单点rs), 用move方法进行纵向从头到尾遍历，move一共4个方法
Do whilt not rs.eof

rs.movenext
loop

for x = 0 to rs.fields.count -1
变量 = rs.fields(x) ' 对fields对象进行横向字段的遍历

next x