编程可用两种方式实现。一种是直接在VB中调用，另一种使用VB中的shell函数调用FoxPro的exe程序。
方法一、直接在VB中调用.dbf文件
一、．在FoxPro数据库的所在目录下建立一个与FoxPro数据库文件名相同的.inf文本文件
步骤：1.创建文本文件＊.inf,与数据表同名。
2.在文本文件的第一行，输入[FoxPro2.5]；如果指定的是FoxPro2.0索引，则输入[FoxPro2.0]，其余以此类推。
3.依次输入各指定索引文件名形式IDXn=＊.idx或CDXn=＊.cdx。其中n为数字，依次表示第1个IDX索引文件，第2个IDX索引文件。或第1个CDX索引文件，第2个……以此类推。
注意：如果不能将.inf文件与数据库存储在同一目录下，或为了维护方便而希望将所有文件存储在一个共享点。可采用创建Windows注册表项的方法，指向存储.inf的文件路径。（详见VB5的联机手册）
二、编写程序
用OPENDATABASE方法直接打开外部FoxPro表。
主要语句如下：
dimdbasdatabase
dimtbasrecordset
′打开外部数据库
setdb=opendatabase(“c:\fox\”,false,false,”foxpro2.5;”)′注意FoxPro与2.5之间必须有空格
settb=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中
openc:\x1.txtforoutputas＃1′打开X1.TXT文件，取查询结果。
……
按一般执行方式，上述语句应能正确执行。然而实际运行时，即使语句全部正确，也会弹出错误信息框：x1.txt文件不存在。原因就在于VB在执行shell（）语句时，file1.exe文件还未执行完，就继续下一行语句：打开file1文件创建的x1.txt；所以出现错误。
经过多次实验，我最后采用了VB工具条中的timer控件来完成时间等待，程序编程通过。
……
shell(c:\file1.exe)
‘运行计时器
timer1.enabled=true
……
subtimer1_timer()
ifdir(“c:\x1.txt”)<>””then
openc:\x1.txtforoutputas＃1
……
timer1.enabled=false
endsub
实际运行速度很快，2～3秒内完成查询操作。->
文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!
