vb 中如何用ado连接dbf数据库？

Question

应该与打开Access一样，不过data source为dbf数据库所在目录。打开后，每一个dbf为一个表。

Answer 1

用OPENDATABASE方法直接打开外部FoxPro表。
　　主要语句如下：
　　dim db as database
　　dim tb as recordset
　　′打开外部数据库
　　set db=opendatabase(“c:\fox\”,false,false,”foxpro 2.5;”) ′注意FoxPro 与2.5之间必须有空格
　　set tb=db.openrecordset(“abc”)
　　

Answer 2

我需要的是如何用ado连接dbf数据库？和具体的connectionstring 如何写？ 

Answer 3

Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceDB=e:\dbfs;SourceType=DBF;Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;DBQ=e:\dbfs;SourceType=DBF;

Answer 4

最简单的方法是抄袭----adodc控件的的ConnectString，具体做法：
讲一个adodc的控件加至一个form中右键击控件，左件点击其属性选择用用户连接字符串的选项点build....配置好之后再回来看，会自动生成一个字符串，考下来用就是了！这样你可以得到任何数据库连接的字符串！
听我的没错的！
别忘了给分！

Answer 5

Public cn As New ADODB.Connection
cn.ConnectionString = "DSN=MS Access 97 Database;" & _
                    "DBQ=" & App.Path & "\数据库名.mdb;" & _
                    "DefaultDir=" & App.Path & "\数据库名.mdb;" & _
                    "DriverId=281;" & _
                    "FIL=MS Access;" & _
                    "MaxBufferSize=2048;" & _
                    "PageTimeout=5;" & _
                    "UID=admin;"