1。你如果装了sql server
可以用它把数据导出道文本中;很方便2。自己写程序
with not qry.eof do
begin
txt.writeln
for i:=0 to qry.fieldcount-1 do
txt.write(qry.fileds[i].asstring+' ')
qry.next
end;
可以用它把数据导出道文本中;很方便2。自己写程序
with not qry.eof do
begin
txt.writeln
for i:=0 to qry.fieldcount-1 do
txt.write(qry.fileds[i].asstring+' ')
qry.next
end;
但编译时总是有错误。以下是我的程序
procedure TForm1.Button1Click(Sender: TObject);
var
MyText:TextFile;
i:integer;
begin
AssignFile(MyText,'MyTextFile.txt');
Rewrite(MyText);
try
with not table1.Eof do
begin
for i:=0 to table1.fieldcount-1 do
writeln(Mytext,table1.fields[i].asstring)
Next
end finally
CloseFile(MyText);
end;
end;
var
MyText:TextFile;
i:integer;
begin
AssignFile(MyText,ExtractFilePath(Paramstr(0))+'MyTextFile.txt');
Rewrite(MyText);
try
TABLE1.FIRST;
WHILE not table1.Eof do
begin
for i:=0 to table1.fieldcount-1 do
writeln(Mytext,table1.fields[i].asstring);
Next
end
finally
CloseFile(MyText);
end;
end;
其实并没有那么多数据,为什么呀?帮帮我!