大师们!adoquery的查询结果另存为文件 给些方法!!!!

Question

在intraweb里 我用IWDBgrid显示adoquery的查询结果 我需要实现下面的功能
1。将结果 另存为一个文件(文本的)
2。将结果 打印出来你 有什么好的办法 给我一些建议

Answer 1

procedure SaveToText(dataset:TDataset;FieldName:string;Showed:boolean=true);
var F:TextFile;
    I,j:integer;
    exportsize:integer;
    TitleSize:integer;
    bookMark:TBook;
begin
    assignFile(f,FieldName);
    rewrite(f);
    for i:=0 to dataset.FieldCount-1 do
    begin
        write(f,dataset.fields[i].displaylabel,'');
        write(f,char(#9),'');
    end;
    writeln(f);
    dataset.DisableControls;
    bookMark:=dataset.GetBook;
    dataset.First;
    for i:=0 to dataset.RecordCount-1 do
    begin
        for j:=0 to dataset.FieldCount-1 do
        begin
            write(f,dataset.fields[j].asstring,'');
            write(f,char(#9),'');
         end;
         dataset.Next;
         writeln(f);
    end;
    dataset.GotoBook(bookMark);
    dataset.FreeBook(book);
    dataset.EnableControls;
    writeln(f);
    closeFile(f);
end;

Answer 2

可以直接存为文本格式，看看SQL SERVER 帮助，关键字
opendatasource()

Answer 3

存成EXECL文件格式最直观好看：）刚好它可以存成一个二维表呢：）查询的字段作列，记录就是行：）

Answer 4

TCustomADODataSet.SaveToFile 
不行么？

Answer 5

zhaofuquan(福全) 
   你的方法 可以详细一些吗