如何将abc.mdb转换为abc.txt文本文件？

Question

谢谢

Answer 1

用ado連接打開,爾後一條條導出

Answer 2

下面的代码是将数据库通过网格DBGRID转化为TXT文件、
采用PARADOX建库、
正面是整个程的代码、用到了控件Datasource1的DATASET 的属性为TABLE1
TABLE1的DATABASENAME的属性为“DEMO",TABLENAME属性为"DANGYUAN.DB",ACTIVE为TRUE
把DBGRID1/DBNAVIGATOR1的DATSOUCE的属性为DATASOURCE1设置BUTTON1的CAPTION属性为”将数据库文件存盘“
设置SAVEDIALOG1的FILTER属性为”文本文件（*.txt)|*.txt"
全部代码如下所示：（不好意思把所有的源码全COPY下来了）
procedure TForm1.Button1Click(Sender: TObject);
begin
  DbgridToTxt(dbgrid1);
end;
procedure Tform1.DbgridToTxt(source:Tobject);
var
  filename:Textfile;
  Dataset:Tdataset;
  titlestr,valuestr,tempstr:string;
  counter:integer;
begin
  if (source is Tdbgrid)then
    Dataset:=Tdbgrid(source).DataSource.DataSet
    else
      Dataset:=TDataset(source);
  if ((Dataset.IsEmpty)or(not Dataset.Active))then
    exit else
    begin
      Dataset.DisableControls;
      Dataset.First;
      if savedialog1.Execute then
        begin
          assignfile(filename,savedialog1.FileName);
          rewrite(filename);
          for counter:=0 to Dataset.FieldCount-1 do
          titlestr:=titlestr+char(9)+Dataset.Fields[counter].DisplayLabel;
          titlestr:=trim(titlestr);
          writeln(filename,titlestr);
         //记下每条记录
          while not Dataset.Eof do
            begin
              valuestr:='';
              for counter:=0 to Dataset.FieldCount-1 do
              begin
                tempstr:=Dataset.Fields[counter].Text;
                valuestr:=valuestr+char(9)+tempstr;
              end;
              valuestr:=trim(valuestr);
              writeln(filename,valuestr);
              Dataset.Next;
            end;
              closefile(filename);
          end;
              Dataset.EnableControls;
    end;
end;end.