如何将数据库里的字段和数据导出成TXT文本格式？？？

Question

请问如何将数据库里的个别字段和数据导出成TXT文本格式？？？

Answer 1

ADOConnection.Execute('Select field1,field2 Into [Text;Database=c:\temp].xw.txt From temp');
temp 为sql数据库。
xw.txt 在c盘的temp目录之下。

Answer 2

xw.txt 在SQLServer服务器c盘的temp目录之下。
         ^^^^^^^^^^^^^^^

Answer 3

SQL SERVER 可以用DTS导入\导出数据向导

Answer 4

var
txt:tstrings;
i:integer;
x:string
begin
x:='';
txt:=tstringlist.Create;
for i:=0 to table.FieldCount-1 do
    x:=x+table.Fields[i].FieldName+#39+#39;//先保存字段名
txt.Add(x);
with table do
  begin
    First;
    while not Eof do
      begin
        x:='';
        for i:=0 to FieldCount-1 do
        x:=x+Fields[i].AsString+#39; //一条记录联成一人字符串
       txt.add(x);
       dm.tusers.Next;
  end;
end;
txt.SaveToFile('c:\test.txt');)end;

Answer 5

很久以前做的procedure TForm1.Button1Click(Sender: TObject);
var
  Tablenamestr: string;
  Expstr,Where,kong: string;
  StrOut: tstringlist;
  i:integer;
begin
  if query1.Active then query1.Close;
  Tablenamestr:= ComboBox1.Text;
  query1.Active:=true;
  If tablenamestr='SUPPBASE' Then
  begin
    query1.Close;
    query1.SQL.Clear;
    query1.SQL.Add('select 字段1,字段2,字段3... ');
    query1.SQL.Add('From SUPPBASE');
    query1.SQL.Add('Where... ');
    query1.Open;
  end;
  
  StrOut:=tstringlist.Create;
  While Not Query1.Eof do
  begin
    Expstr:='';
    For i:=0 to query1.FieldCount-1 do
      Expstr:=Expstr + query1.Fields[i].AsString + '|||'; //保存完一条记录后加一个 结束符
    delete(Expstr,length(Expstr)-2,3);   //不记得干嘛了                  
    StrOut.Add(Expstr);
    query1.Next;
  end;
  StrOut.SaveToFile('E:\new\' + tablenamestr + '.txt' );
end;