Delphi7下如何把数据库中的数据输出到txt文本里？

Question

需要把一些统计数据放到txt文本里。谢谢高手。

Answer 1

用ADOQuery或ADOTable连接到数据库，打开表（查询）后，可以用 ADOQuery.FieldByName('字段名').AsString 读出字段的内容，然后，写到文本文件里即可。还可以使用EHLib等第三方控件来实现。

Answer 2

var
  ss:TStringStream;
  ms:TMemoryStream;
  function DataSetToText(mDataSet: TDataSet): string;
  var
    vBook: string;
    I: Integer;
    S: string;
  begin
    Result:= '';
    vBook:= mDataSet.Book;
    mDataSet.First;
    while not mDataSet.Eof do
    begin
      S:= '';
      for I:= 0 to mDataSet.FieldList.Count - 1
      do
        S:= S + #9 + mDataSet.FieldList[I].DisplayText;
      Delete(S, 1, 1);
      Result:= Result + S +   #13#10;
      mDataSet.Next;
    end;
    mDataSet.Book   :=   vBook;
  end;
begin
 ss:=TStringStream.Create( DataSetToText( self.ADODataSet1 ) );
 ms:=TMemoryStream.Create;
 ms.LoadFromStream( ss );
 ms.SaveToFile( 'c:\1.txt' );
 ms.Free;
 ss.Free;
end;