用adodb怎么连接一个dbf文件?

Question

怎样连接import.dbf文件。
do while ....FileCopy App.Path & "\EXPVCH.STD", App.Path & "\Import.dbf" '权限07Dim rsdbf As ADODB.Recordset
Dim condbf As ADODB.Connection
Set rsdbf = New ADODB.Recordset
Set condbf = New ADODB.Connection
    
Dim strCnnImport As String
strCnnImport = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=dBASE Files;Initial Catalog=" & App.Path  
condbf.ConnectionString = strCnnImport
rsdbf.Open "select * from import", condbf, adOpenKeyset, adLockOptimistic
'上行有错。rsdbf.addnew
....
rsdbf.updateloop
--------------------------
运行上面的代码，提示错误：
实时错误'3709'
the Connection cannot be used to perform this operation.
Tt is either closed or invalid in this context.
--------------------------正确的连接方法要怎么写？对不同的版本dbf文件，是否有不同的写法？？
最好是完全用代码的方法来写！因为这具import.dbf文件是临时生成的，还有，它可能是dbfIII文件，（但也可能不是这个版本,我不能决定！）    

Answer 1

最好自己建立DSN控制面板……》管理工具……》数据源（ODBC）……》系统DSN……》Driver ... for DBF()

Answer 2

'用下面的连接方法就行了.Sub fox()
    Dim iRe As ADODB.Recordset
    Dim iConc As String
    
    iConc = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Visual FoxPro Tables;UID=;SourceType=DBF" & _
        ";SourceDB=f:\My Documents"""
        
    Set iRe = New ADODB.Recordset
    iRe.Open "select * from [aa.dbf]", iConc, adOpenKeyset, adLockOptimistic
    
    MsgBox iRe.Fields(0)
End Sub

Answer 3

'你的应该修改为:do while ....
FileCopy App.Path & "\EXPVCH.STD", App.Path & "\Import.dbf" '权限07
Dim rsdbf As ADODB.Recordset
Dim condbf As ADODB.Connection
Set rsdbf = New ADODB.Recordset
Set condbf = New ADODB.Connection
    
Dim strCnnImport As String
strCnnImport = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=""DSN=Visual FoxPro Tables;UID=;SourceType=DBF" & _
        ";SourceDB=" & App.Path  
condbf.ConnectionString = strCnnImport
rsdbf.Open "select * from [import.dbf]", condbf, adOpenKeyset, adLockOptimistic