写这篇文章的目的就是让像我一样的初学者不要走太多弯路，起初我用的是data控件来连接dbf文件，在用的过程中发现经常出现错误，感觉data控件很不稳定，后来用ado来操作一点问题都没有了，特贡献给大家参考

Public DBFcon As New ADODB.Connection

'打开DBF文件
Public Function OpenDBF(DirPath As String) As Boolean
On Error GoTo err
     DBFcon.open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=" + DirPath + ";SourceType=DBF; "
     OpenDBF = True
     Exit Function
err:
  OpenDBF = False
  MsgBox err.Description
End Function

‘关闭dbf文件
Public Sub CloseDBF()
    If DBFcon.state = adStateOpen Then DBFcon.Close
End Sub

’执行select ，update，delete 操作
Public Function ExeDBF(sql As String, rs As ADODB.Recordset) As Boolean
On Error GoTo err
    rs.open sql, DBFcon, adOpenKeyset, adLockOptimistic
    ExeDBF = True
    Exit Function
err:
    ExeDBF = False
End Function

评论