菜鸟的问题：如何打开Vfp的自由表。

Question

各位高手怎么才能查询vfp的dbf文件内容啊
我用
Dim Adoconn As New ADODB.Connection
Dim adoRs As New ADODB.Recordset
Adoconn.ConnectionString = "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;DBQ="C:\a.dbf"
Adoconn.CommandTimeout = 60
Adoconn.CursorLocation = adUseServer
Adoconn.Open
SqlStr = "select * from a.dbf"
Set adoRs = Nothing
下面语句出错：错误信息是odbc数据源不支持属性
adoRs.Open SqlStr, Adoconn, adOpenDynamic, adLockOptimistic

Answer 1

conn2.Open "Provider=MICROSOFT.JET.OLEDB.4.0;dBase 5.0;DATABASE=" & "dbf所在目录"
  DatabaseTable = "表名"
  Set rs2 = New Recordset
  rs2.CursorLocation = adUseClient
  rs2.Open "select * from " & DatabaseTable, conn2, adOpenStatic, adLockOptimistic

Answer 2

还是报错"外部表不是预期格式",我的是VB6.0+sp6调用的是VFP6.0
我试着将conn2.Open "Provider=MICROSOFT.JET.OLEDB.4.0;dBase 5.0;DATABASE=" & "dbf所在目录"
中的dbase 5.0 改成6.0 报错是找不到可安装isam

Answer 3

在Mdac2.6版本以上微软放弃了对Vfp的支持不提供相应驱动.
你挡个Mdac2.6,2.5安装一下就好.
详情参阅微软Mdac2.7说明文档.