如何将access文件转成TXT文件

Question

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

Answer 1

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

Answer 2

刚写的,没有调试,你自行调试一下:
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;

Answer 3

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

Answer 4

以下是经调试了的: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;