如何将access文件转成TXT文件

[wuaizhonghua]

现在我要将access文件转成TXT文件，需要带有字段名称，请问如何实现

[5207]

Access有个导出的功能,里面可以选择导出为 txt

[GDTOPONE]

刚写的,没有调试,你自行调试一下:
ADOQUERY的SQL.TXT是:select x_a as 工号,x_b as 姓名 from x_eng;

procedure TForm1.Button1Click(Sender: TObject);
var
 s1: TStringList;
 i:integer;
 str:string;
begin

 with adoquery1 do begin
  if not IsEmpty then begin
   First;
 if SaveDialog1.Execute then begin
   s1:= TStringList.Create;
   try
   for i :=0  to Fields.Count-1 do {写字段名}
    str:=str+' '+Fields[i].FieldName;
   s1.Add(str);


   {写内容}
   while not eof do begin
   str:='';
   for i :=0  to Fields.Count-1 do begin
   str:=str+' '+Fields[i].Value;
   s1.Add(str);
   next;
   end;
   end;

   s1.SaveToFile(SaveDialog1.FileName);
   messagebox(0,'资料导出完毕','提示',MB_ICONINFORMATION);

  finally
   close;
   s1.Free;

  end;

 end;
 end;
 end;
end;

[GDTOPONE]

sql.text:select x_a as 工号,x_b as 姓名 from x_eng;
加了AS是为了显示中文字样

[GDTOPONE]

以下是经调试了的:

procedure TForm1.Button1Click(Sender: TObject);
var
 s1: TStringList;
 i:integer;
 str:string;
begin

 with adoquery1 do begin
  if not IsEmpty then begin
   First;
 if SaveDialog1.Execute then begin
   s1:= TStringList.Create;
   try
   for i :=0  to Fields.Count-1 do {写字段名}
    str:=str+' '+Fields[i].FieldName;
   s1.Add(str);


   {写内容}
   while not eof do begin
   str:='';
   {如果要转换类型的请自行加代码转换类型}
   str:=FieldValues['工号']+' '+FieldValues['姓名'];
   s1.Add(str);
   next;
   end;
   s1.SaveToFile(SaveDialog1.FileName);
   messagebox(0,'资料导出完毕','提示',MB_ICONINFORMATION);
  finally
   close;
   s1.Free;
  end;
 end;
 end;
 end;
end;