数据导出问题

Question

在delphi写的程序中,怎样写代码或用控件把Access数据库中的数据导出,导出生成的文件类型有哪些?有没有 *.txt类型的? 字段值之间用"|(\键上的字符)"分隔.

Answer 1

如果要导出，便于以后使用，我建议你导出成记录文件，便于以后的处理！
当然txt也可以，一样的。

Answer 2

o-o
 o
var 
strl:Tstrings
strl:=tstringlist.creat;
query1.close;
query1.sql.clear;
query1.sql.add(Select * from table);
query1.open
for i:=1 to query1.recordcount do 
   begin
   strl.add(query3.FieldByName('字段明').Value+query3.FieldByName('字段明').Value+..+..);
    query1.next;
    end;
strl.savetofile('c:\data.txt');

Answer 3

看看这个吧，我试过的，
肯定可以的，呵呵
应该能够看懂吧。呵呵
Procedure TForm1.Button1Click(Sender: TObject);
Var
  StrList: TStringList;
  sp, StrLine: String;
  i, l, p: integer;
Begin
  StrList := TStringList.Create();
  sp := '|';
  Try
    ads.Open();
    For i := 0 To ads.RecordCount - 1 Do
    Begin
      For l := 0 To ads.Fields.Count - 1 Do
      Begin
        If l < ads.Fields.Count - 1 Then
          StrLine := StrLine + sp + ads.Fields[l].AsString
        Else
          StrLine := StrLine + ads.Fields[l].AsString;
      End;
      p := StrList.Add(StrLine);
      ads.Next();
    End;
    StrList.SaveToFile('c:\aa.txt');
  Finally
    FreeAndNil(StrList);
  End;
End;