Question

delphi 如何从数据库表中逐条导出数据到txt格式的文档中，并以TAB键为分隔符

表中有15个字段，要求只要13个字段

Answer 1

while not table1.eof do
begin
str:='';
for i=0 to 12 do
str:=str+table1.field[i].asstring+' ';
memo1.lines.add(str+#13);
end;
memo1.lines.savetofile('c:\aaa.txt') // savetofile这个可能是错的，记不住了，反正存盘的函数

追问

按照你的方法我试了，但是memo1中插入数据是空的，也就是数据没插入，是什么原因？

追答

while not table1.eof do
begin
str:='';
for i=0 to 12 do
str:=str+table1.field[i].asstring+' ';
memo1.lines.add(str); //这里有修改，用了add就不用加#13了
label1.next; //这里忘记移动记录了
end;
memo1.lines.savetofile('c:\aaa.txt') // savetofile这个可能是错的，记不住了，反正存盘的函数

追问

with qry5 dobegin
Close;
SQL.Clear;
SQL.Add('select * FROM Y_SALES_DATAUP where DEPOTID='''+DEPOTID+'''');
Open;
first;
while not qry5.Eof do
begin
st:='';
for i:=0 to 12 do
st:=st+qry5.Fields[i].asstring+' ';
mmo1.lines.add(st);
qry5.Next;end;
mmo1.lines.savetofile('d:\aaa.txt')
end;
帮我看下，那里错了？还是没数据的，数据库表是有数据的

追答

这句里SQL.Add('select * FROM Y_SALES_DATAUP where DEPOTID='''+DEPOTID+'''');
不明白DEPOTID='''+DEPOTID+'''' 这个条件是搞什么的，如果是要模糊查询，应该用link而不是=
请先检测下你的查询是不是有问题，查出的数据是不是为0.

Answer 2

对delphi不了解