数据库数据导出TXT文件(30分)

S

shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-27

• #1

利用以下语句导出，编译时TQRAsciiExportFilter. 没有通过。
P HELP ME！
MyQuickRep.ExportFilter:=TQRAsciiExportFilter.Create(′C:/test.txt′);
MyQuickRep.Prepare;
MyQuickRep.ExportFilter.Free;

 

W

wuyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-27

• #2

我没用过，但猜想应有一个 ExportToFilter 把结果输出去。

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-27

• #3

你没有加入单元qrexport:
uses ...,qrexport;

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-27

• #4

TQRAsciiExportFilter的作用如何、父类是谁、是D3下的吗？

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-28

• #5

这个我也没用过,不过由于是编译能不过,就用'查找'找一下TQRAsciiExportFilter
所在的dcu,加上就行了.

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-28

• #6

你用它解决何问题呢？能否问一下？(最好能解释解释！)

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-28

• #7

做打印程序时,我从不用QR,我们用Rb.
由于他的问题是'编译能不过', 所以帮一下,仅此而已.

 

S

shi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-28

• #8

各位：
我只是想将数据库中的数据转换为文本文件（TXT）所以才
用到前面的语句，请问有其它的好办法吗？既简单又方便的，
请知道的贴出来，谢了。

 

J

Jams

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-29

• #9

噢！这个问题似乎可以：(算法)
begin
....
AssignFile(FilVar);
Rewrite(FilVar);
With Table1do
begin
Open;
First;
While Not Eofdo
begin
str1 := FieldByName('字段1').AsString;
str2 := FieldByName('字段2').AsString;
.....
Writeln(FilVar, Str1,str2, ...);
Next;
end;
Close;
end;

CloseFile(FilVar);

end;
这仅为一个算法！对于其它的过程，如文件是否存在等则需你自己完成！

 

L

liuzhw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-29

• #10

可以使用batmove控件，它的源和目的都是一个Table,源的table就是你所要的数据
库，目的的table的datebasename属性为文本文件的目录，tablename为文本文件名。

 

D

datoncg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-29

• #11

我原来是用PB来将数据库中的数据导出成TXT文件的。在DELPHI中还没用过。
希望知道在DELPHI中怎样将数据库中的数据导出成TXT文件的，又可一将TXT文件
导入数据库中。

 

D

datoncg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-07-29

• #12

得到详细的例子

 

C

cytown

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-08-20

• #13

如果这还不值30分，你就是谋财害命了
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
s: string;
memo1:TStrings;
begin
memo1:=TStringList.Create;
memo1.Clear;
with Table1do
begin
s:='';
for i := 0 to Table1.FieldCount - 1do
s := s + Table1.Fields.FieldName + #9;
memo1.Append(s);
while Not Eofdo
begin
s:='';
for I := 0 to Table1.FieldCount - 1do
begin
s:=s+ Trim(table1.Fields.AsString) + #9;
end;
memo1.Append(s);
Next;
end;
end;
memo1.SaveToFile('c:/test.txt');
memo1.Free;
end;

 

曹

曹晓钢

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-11

• #14

接受答案了.