请问：如何用程序控制access数据库的数据备份或导出？

Question

急！！！

Answer 1

你在窗口放几个组件
ADOConnection1、ADODataSet1在设计在连好比需要的access数据库[以大富翁的库为例]
procedure TForm1.Button1Click(Sender: TObject);
var
   ssql:string;
   //RoomIndex:integer;
begin
     //目的：是查询c:\delphibbs.mdb中的letters表中数据通过
     //ADODataSet1，将结果ADODataSet1中的数据集送DBGrid1数据感知组件中
     //---1---定义sql语句
     ssql:='select id,subject,userfrom,points,regdatetime,replytimes,status from letters where parent = 0 and roomid = 1';
     //---2---开始查询，将结果放在ADODataSet1中的数据集中
     with ADODataSet1 do
     begin
                if Active then close;
                CommandText := ssql;
                open;
     end;
     //---3---
      if (FileExists('d:\SaveFile')) then begin
         DeleteFile('d:\SaveFile');
     showmessage( '删除先前文件d:\SaveFile是成功的');
      end;
      //将保存的本地的数据文件用格式pfADTG [有两种格式pfADTG、pfXML);]
      ADODataSet1.SaveToFile('d:\SaveFile', pfADTG);
end;

Answer 2

var s,t:Tfilestream;
   f:string;
begin
  s := TFilestream.Create('d:\t70.mdb',fmOpenReadWrite);
  if SaveDialog1.Execute then
    t := TFilestream.Create(SaveDialog1.FileName ,fmOpenWrite or fmCreate);
  t.CopyFrom(s,s.Size);
end;