VB可否直接打开FOXPRO数据库？

Question

Dim myDB as Database,myDBF as Recordsetset myDB=Opendatabase("dbfpath",false,false,";FoxPro 2.6")
set myDBF=myDB.OpenRecordset("dbffilename",dbopentable)
txtFieldData=myDBF.Fields("FieldName")
...
myDBF.Close
myDB.Close

Answer 1

Dim dbFox as Database,rsDBF as RecordsetSet dbFox=OpenDatabase("dbfPath",False,False,";FoxPro 2.6")
Set rsDBF=dbFox.OpenRecordset("DBFName",dbOpenTable)txtFieldData=rsDBF.Fields("FieldName")...rsDBF.Close
dbFox.Close

Answer 2

Dim dbFox as Database,rsDBF as RecordsetSet dbFox=OpenDatabase("dbfPath",False,False,";FoxPro 2.6")
Set rsDBF=dbFox.OpenRecordset("DBFName",dbOpenTable)txtFieldData=rsDBF.Fields("FieldName")...rsDBF.Close
dbFox.CloseDim dbFox as Database,rsDBF as RecordsetSet dbFox=OpenDatabase("dbfPath",False,False,";FoxPro 2.6")
Set rsDBF=dbFox.OpenRecordset("DBFName",dbOpenTable)txtFieldData=rsDBF.Fields("FieldName")...rsDBF.Close
dbFox.Close

Answer 3

不通过ODBC？
用原始的方法，直接打开文件进行读写操作不就行了，
文件结构找一些老的FOXPRO书，上面有说明的，
以前我用C读过，那主要是为文件加解密，不过现在有这么方便的方法不用，太可惜了。

Answer 4

用DAO采用外部数据库的方式直接就可以打开了呀。此时文件夹就相当于ACCESS的库文件，foxpro的库文件就相当于表。
就象如下格式：
Set 源库 = OpenDatabase(m源数据库路径名, True, True, "Foxpro 2.6")
Set 源表 = 源库.OpenRecordset("select * from " & m源数据库文件名, dbOpenDynaset)

Answer 5

Dim dbFox as Database,rsDBF as RecordsetSet dbFox=OpenDatabase("dbfPath",False,False,";FoxPro 2.6")
Set rsDBF=dbFox.OpenRecordset("DBFName",dbOpenTable)txtFieldData=rsDBF.Fields("FieldName")...rsDBF.Close
dbFox.CloseDim dbFox as Database,rsDBF as RecordsetSet dbFox=OpenDatabase("dbfPath",False,False,";FoxPro 2.6")
Set rsDBF=dbFox.OpenRecordset("DBFName",dbOpenTable)txtFieldData=rsDBF.Fields("FieldName")...rsDBF.Close
dbFox.Close