Delphi实现操作Foxpro的dbf文件,并导出整合实现txt和dbf互相转换

foxpro

foxpro

最近做程序的时候需要用到delphi和foxpro的dbf表,想通过delphi来操作dbf表!

delphi操作foxpro的表有好多的办法,

如用datasorce连接tquery组件把查询结果显示在dbgrid表格里

这样没有办法导出查询的结果!

可是想把查询dbf表的结果给导出为dbf文件就比较麻烦了!

经过一番努力找到了一个好办法!

在foxpro中完成这些工作简直太容易了,

但很多功能必须用delphi实现。

虽然可以用foxpro做个小程序,

然后再用delphi调用,可是比较麻烦。

这就 让我想到了可以用Delphi通过调用Com组件的方式

直接执行foxpro命令来实现,代码如下:

foxPro:=CreateOleObject(‘VisualFoxPro.Application’);
foxPro.DoCmd(‘USE F:\zhuchong\练习\ckc.dbf’);

foxPro.DoCmd(‘select *form ckc.dbf where bmddm=’1221′  into table bmddm.dbf’);//导出dbf文件
foxPro.DoCmd(‘copy to F:\zhuchong\练习\student.txt delimited with tab’);//导出txt文件
foxPro.Quit;
foxPro:=  Unassigned;

上面的代码是将ckc.db文件导出到student.txt文件。

如果想导入,可以使用append命令

这样就完美的解决了这个问题

 » 本站地址:http://www.gomoth.com

标签: ,