如何在delphi高速导出oracle数据库中的数据,把数据保存成txt文件?
存成insert into 形式?
存成insert into 形式?
解决方案 »
- 非常十分以及极其迷糊中,,,,,,,,,,,,,,,,,,,,,,,
- 如何控制扫描仪
- 一个排列函数,看不懂,我想改一下,请问怎么改? (
- 我想在我的软件中加入给手机发短信息的功能,该如何做呢?
- 请问怎样同时对一个stringlist赋予多个item值???
- 如何让窗口关闭后才运行下一段程序
- 调sqlserver时,sql explorer里怎样才能不显示“dtproperties”,“sysconstraints”“syssegment”三个表
- 一个常见的关于数据统计的一个问题(急)
- 网页制作的问题。
- 请问用Delphi能编写服装设计软件吗?
- ehlib2.4版在win98上用 一点问题都没有, 装在win2000上一堆问题,有谁遇到过。
- 怎样可以实现批打印证书!!!
//DataSet.将数据集转换为字符串**************************************************
//==============================================================================
function DataSetToStr(DataSet: TDataSet): WideString;
var SavePlace: TBook;
j: integer;
begin
if DataSet.IsEmpty then Exit;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Result := '';
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
with DataSet do
begin
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//字段名称******************************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
for j:=1 to Fields.Count do Result := Result + Fields[j-1].DisplayName + #9;
Result := Result + #13;
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
//数据内容******************************************************************
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
SavePlace := GetBook;
DisableControls;
First;
while not Eof do
begin
for j:=1 to Fields.Count do Result := Result + Fields[j-1].AsString + #9;
Result := Result + #13;
Next;
end;
DataSetTryGotoMark(DataSet, SavePlace);
EnableControls;
end;
end;