vb连接vfp的dbf数据库不成功？

Question

用 ADO 对象. 即 ADODB.Recordset 等:"Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver;SourceType=DBF;DBQ=c:\DATA"
其中"c:\data"为BDF所在的目录，此时相当于连接到数据库，将DBF视为该库中的表，进行操作即可。
 
 
 

Answer 1

用DAO行吗?我用
set db=opendatabase(dbpath,false,false,"foxpro 2.6;")
set rs=db.openrecodset(dbname,dbopentable)在执行到set rs=.....时出现错误:
" Microsoft Jet数据库引擎找不到对象"xxxx"(xxxx为DBF表名),请确认对象"xxxx"存在,并检查路径和名称什么的"
 到底怎么了???我看了别人的代码,也就是这样写的,为什么我的就会错!!??

Answer 2

可以用 DAO 连接. 但不是 你那种用法,请看:
------------------------------------------------------------------
      Dim Db As Database
      Dim Rs As Recordset      Private Sub Command1_Click()
          Set Rs = Db.OpenRecordset("Sheet1$")
          'This will print the spreadsheet Text values as Nulls.          Do While Not Rs.EOF
              Debug.Print Rs(0)
              Rs.MoveNext
          Loop      End Sub      Private Sub Form_Load()
          'HDR refers to the Excel header row.
      Set Db = OpenDatabase("C:\Temp\Book1.xls", _
               False, True, "Excel 8.0; HDR=NO; IMEX=1;")
      End Sub      Private Sub Form_Unload(Cancel As Integer)
          Db.Close
          Set Db = Nothing
      End Sub
==================================================================
另外,我们使用最多的用 ADO 或 EXCEL 的 Application 对象来操作 Excel  .
请参考:
SAMPLE: ExcelADO Demonstrates How to Use ADO to Read and Write Data in Excel Workbooks (Q278973)
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q278973

Answer 3

谢谢，用ADO我成功了，DAO还没试过，你的代码里怎么是EXCEL，能用你的代码来打开DBF数据表吗？为什么是XLS呢？

Answer 4

大侠：
我也有个同样的问题呀，我是用的VFP5.0在连接的时候，他说不能识别绑定的数据库，我想问一下这是什么原因呀？

Answer 5

To icbcnbxs(我来灌水) : ADO 通过了就行. 
   上面那段是连接 Excel的, 是我帖错了, 抱歉. To 3798: 你再试试下面这个. 如果不行. 估计是 驱动 与你 VFP 版本不对应有关.请你试试 VFP6 .
===================================================================oConnPEC.Open "Driver={Microsoft Visual FoxPro 
Driver};" & _
                   "SourceType=DBF;" & _
                   "SourceDB=C:\WINDOWS\Desktop\IIR\IIR_200
2\" & _
                   "Exclusive=No;"
                   
                   
                   
   rst.CursorType = adOpenKeyset
   rst.LockType = adLockOptimistic
   rst.Open "SELECT * FROM PEC", oConnPEC, , , adCmdText
===================================================================

Answer 6

在VB中引用.dbf及索引文件　　如何用FOX以外的编程语言来取得.dbf数据库的记录值和引用.idx 和.cdx索引一直都是程序员讨论的话题之一。现有一任务是在一个触摸屏系统中加入一个用户查询水费界面。每个用户可随时查询到自己的水费记录。我使用VB5.0，希望打开NetWare系统下营业收费系统的七个.dbf数据表并进行查询。每个数据表有将近10万条记录。通过10M集线器交换数据,查询的字段都不是唯一的。显然这样大的数据量，又是通过10M网络传递，如果VB使用SQL方式查询，则最少要2分钟时间才能得到答复。让一个用户在机器旁边等2分钟是不现实的。于是想利用FoxPro自身的.idx或.cdx索引文件来查找。
　　编程可用两种方式实现。一种是直接在VB中调用，另一种使用VB中的shell函数调用FoxPro的exe 程序。
　　方法一、直接在VB中调用.dbf文件
　　一、．在FoxPro数据库的所在目录下建立一个与FoxPro数据库文件名相同的.inf文本文件
　　步骤：1.创建文本文件＊.inf, 与数据表同名。
　　2.在文本文件的第一行，输入[FoxPro 2.5]；如果指定的是FoxPro 2.0索引，则输入[FoxPro 2.0]，其余以此类推。
　　3.依次输入各指定索引文件名 形式 IDXn=＊.idx 或 CDXn=＊.cdx 。其中n为数字，依次表示第1个IDX索引文件，第2个IDX索引文件。或第1个CDX索引文件，第2个……以此类推。
　　注意：如果不能将.inf 文件与数据库存储在同一目录下，或为了维护方便而希望将所有文件存储在一个共享点。可采用创建Windows注册表项的方法，指向存储.inf的文件路径。（详见VB5的联机手册）
　　二、编写程序
　　用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”)
　　′调用索引
　　tb.index=“abc1＃idx” ′注意索引名为“索引文件名＃后缀名”
　　tb.seek “=”, “111－111” ′搜索唯一值为“111－111”的记录
　　方法二、用shell() 函数调用VF的idx文件
　　用VB接受用户命令，然后调用VF的 .prg编译的.exe文件，按用户要求在数据库中查询，将查询结果放置在一个 .TXT文件中。VB从.TXT文件取数显示，再次将查询结果传递给VF的.prg编译的 .exe文件，查询取数结果。具体编程从略，这里要着重讨论shell()函数的特性：shell 函数是以异步方式来执行其它程序的。也就是说，用 shell 启动的程序可能还没有完成执行过程，就已经执行到 shell 函数之后的语句。 这种执行方式打乱了程序固有的顺序执行方式, 如果不加注意,程序的运行将产生混乱。
　　如果语句如下
　　……
　　shell(c:\file1.exe) ′ 调用file.exe文件，并把结果放置在 X1.txt中 
　　open c:\x1.txt for output as ＃1 ′打开X1.TXT文件，取查询结果。
　　……
　　按一般执行方式，上述语句应能正确执行。然而实际运行时，即使语句全部正确，也会弹出错误信息框：x1.txt文件不存在。原因就在于VB在执行shell（）语句时，file1.exe文件还未执行完，就继续下一行语句：打开file1文件创建的x1.txt；所以出现错误。
　　经过多次实验，我最后采用了VB工具条中的timer控件来完成时间等待，程序编程通过。
　　……
　　shell(c:\file1.exe)
　　‘运行计时器
　　timer1.enabled=true
　　……
　　sub timer1_timer()
　　if dir(“c:\x1.txt”)<>”” then
　　open c:\x1.txt for output as ＃1
　　……
　　timer1.enabled=false
　　end sub 
实际运行速度很快，2～3秒内完成查询操作。