怎样快速将Oracle的数据导成DBF文件？

[pennyxu2003]

怎样可以将Oracle数据库大量数据（30多万条记录）快速导成DBF文件？请各位指教！！

[pennyxu2003]

没人会吗？

[pennyxu2003]

能不能通过ADO来做？

[pennyxu2003]

up一下

[aiirii]

生成對應的 rave 或者 quickreport 或者 crystal report , 然後其中都有一個對應 export 為pdf 的操作

[pennyxu2003]

再UP

[pilicat]

呵呵，用Delphi中自带的DataDump程序也可以搞定啊！


大量电脑书籍下载：
http://www.netyi.net/in.asp?id=ForMoreU

[pennyxu2003]

要求不用SQL SERVER(因为没装)

[wu_small]

没用过Oracle，郁闷！
up!!!

[delphi_xizhousheng]

SQL SERVER 的 DTS 什么都能导

[pennyxu2003]

我是想通过程序来实现

[pennyxu2003]

没人会吗？

[ailibuli]

procedure createDBF(dataSet:TDataSet; fileName:String);
var
i:integer;
temporaryTable:TTable;
activity:boolean;
begin
activity:=dataSet.Active;
dataSet.Active:=true;
dataSet.First;
temporaryTable:=TTable.Create(nil);
try
temporaryTable.FieldDefs:=dataSet.FieldDefs;
temporaryTable.TableName:=fileName;
temporaryTable.CreateTable;
temporaryTable.Active:=true;
while not dataSet.Eof do begin
temporaryTable.Append;
for i:=0 to dataSet.Fields.Count-1 do
if not dataSet.Fields[i].Calculated then
temporaryTable.FieldByName(dataSet.Fields[i].FieldName).Value:=dataSet.FieldByName(dataSet.Fields[i].FieldName).Value;
temporaryTable.Post;
dataSet.Next;
end;
temporaryTable.Active:=false;
finally
temporaryTable.Free;
end;
dataSet.Active:=activity;
end;

調用方法：createDBF(ADOQuery1, '...\yourFile.dbf');

（注：不過30多万条记录的情況下没試過、几万没問題）