VBA连接FOXPRO DBF文件
各位大虾,小弟用VBA连接VFP的DBF文件,总是报以下错误
执行阶段错误,'-2147467259(80004005)':
Automation错误
无法指出的错误
原代码如下:
Sub tt()
Dim i As Integer
Dim cn, rst, cnnstr
Dim sql As String
Set cn = CreateObject("ADODB.connection")
Set rst = CreateObject("ADODB.recordset")
cnnstr = "driver={microsoft visual foxpro driver};sourcetype=dbf;sourcedb=f:\;exclusive=no;"
cn.Open cnnstr
sql = "select count(*) from admit"
rst.Open sql, cn
Range("B4") = rst.Fields(0).Value
rst.Close
cn.Close
Set rst = Nothing
Set cn = Nothing
End Sub
哪位大虾知道,先谢谢了,可以补加分的
[解决办法]
你最好是指出运行到哪行出问题了,还是说根本开始不了,按F8一行行调试下
rst.Open sql, cn,1,1(试一试加这个参数看看)
[解决办法]
DBF格式是否正确,用VFP9的OLEDB试试