写这篇文章的目的就是让像我一样的初学者不要走太多弯路，起初我用的是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

评论