关于转换数据库的问题？

Question

可能需要写程序吧
用sql语句

Answer 1

excel可以直接打开dbf,另存为就可以了
当然，非要写程序的话可以用ADO

Answer 2

谢谢各位，但还是不解决问题，我需要从DBF 格式转换到 EXCEL和TXT格式，
用ADO 如何编程序。

Answer 3

EMS quickexport，www.51delphi.com有下，可以转多种格式。很方便。

Answer 4

with TadoConnection.Create(nil) do try
       connectionstring:='Provider=Microsoft.Jet.OLEDB.4.0;data source=e:\db1.mdb;';
       loginprompt:=false;
       open;
       execute('select * into [excel 8.0;database=d:\jj].bb from [dbase 5.0;database=d:\].订单');
       execute('select * into [text;database=d:\].bb from [dbase 5.0;database=d:\].订单');
       close;
   finally
       free;
   end;
生成txt不能在winxp下，9x/me可以

Answer 5

我已经找到了解决excel的方法：
procedure GenerteXLSFile(strFileName:string); 
var 
ExcelApp,MyWorkBook:Variant; 
begin 
try 
try 
ExcelApp:=CreateOleObject('Excel.Application'); 
MyWorkBook:=CreateOleobject('Excel.Sheet'); 
except 
application.Messagebox('无法打开Xls文件，请确认已 经安装EXCEL.', 
",mb_OK+mb_IconStop); 
Exit; 
end; 
MyworkBook:=ExcelApp.workBooks.Add; 
//在此处插入读数据库及写Excel文档的代码 
try 
MyWorkBook.saveas(strFileName); 
MyWorkBook.close; 
ExcelApp.Quit; 
ExcelApp:=Unassigned; //释放VARIANT变量 
except //当存为一个已有的文档而又不覆盖时将 
MyWorkBook.close; //产生一个例外 
ExcclApp.Quit; 
end; 
end; 
其中写Excel文档的关键语句如下： 
MyWorkBook.WorkSheets[1].Cells[1,1].Value: ='1234'; 
相关的对象参考可以在OFFICE目录下的帮助文 件VBAXLS.HLP中找到。 
Delphi还提供了一个与WORD连接的例子供开 发者参考，不过没有考虑到中文WOR 
D所以“Insert query”按键无效，只能把窗体的标题修改为“简体中文 (中国) 
”。必须把其中判断语种的语句从 
if(Lang='Englist(US)')or(Lang='Englist(UK)')then 
修改为 
if Lang<>'Englist(US)'then 
//不等号的右边随便写一个字符串即可 
这样就可以在中文版的WORD中看到查询的结果了。 
二、数据导出为TXT文档 
利用Delphi中的QuickRep控件可以把打印结果 输出为文本格式。示例如下： 
MyQuickRep.ExportFilter:=TQRAscillExportFilter.Create('C:\test.txt'); MyQuickRep.Prepare; 
MyQuickRep.ExportFilter.Free;