我想打开一个dbf文件,将结果作为记录集使用,代码如下:
Dim conn As New Adodb.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBASE IV;Data Source=" & strPath 'strPath是dbf文件所在的文件夹
strSql = "select * from " & tbName & " where code='" & strcode & "' and Market='" & strMarket & "' and Fdate='" & Format(dtmDate, "YYYYMMDD") & "'"
Rs.Open strSql, cnn, adOpenStatic, adLockOptimistic
当运行到Rs.Open语句时出现如下错误:
“实时错误 '-2147467259(80004005)':系统不支持的排序。 ”点击“调试”按钮(那台机器上未安装MSDN,不能点“帮助”),错误指向“Rs.Open strSql, cnn, adOpenStatic, adLockOptimistic”,然后按F8,系统继续往下执行,而不再弹出刚才的错误消息,也能正常的返回结果集。
请问诸位,是什么原因导致此问题的出现?除了调用On Err 语句外,其他有什么办法能处理此问题?谢谢!!!
Dim conn As New Adodb.Connection
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=dBASE IV;Data Source=" & strPath 'strPath是dbf文件所在的文件夹
strSql = "select * from " & tbName & " where code='" & strcode & "' and Market='" & strMarket & "' and Fdate='" & Format(dtmDate, "YYYYMMDD") & "'"
Rs.Open strSql, cnn, adOpenStatic, adLockOptimistic
当运行到Rs.Open语句时出现如下错误:
“实时错误 '-2147467259(80004005)':系统不支持的排序。 ”点击“调试”按钮(那台机器上未安装MSDN,不能点“帮助”),错误指向“Rs.Open strSql, cnn, adOpenStatic, adLockOptimistic”,然后按F8,系统继续往下执行,而不再弹出刚才的错误消息,也能正常的返回结果集。
请问诸位,是什么原因导致此问题的出现?除了调用On Err 语句外,其他有什么办法能处理此问题?谢谢!!!
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
由于某种原因,我必须使用dBase IV的驱动,不能使用VFP的驱动,否则就会出问题。