40分求ado+access 数据库备份和还原的源代码？

Question

小第是个初学者，请高手说出用到了哪些控件，以及这些控件的作用？谢谢？

Answer 1

Access不象Sqlserver
直接复制mdb文件就行了！！！
还原就把mdb复制回来就OK了

Answer 2

具体代码（备份）
==========================
直接FILECOPY就行了，这个不要什么的呀procedure TFrmSjbf.SpeedButton1Click(Sender: TObject);
var
  Ispath,ispath1:string;
begin
  Ispath:=ExtractFilePath(paramstr(0))+'sdsf.mdb';//修改你自己的数据库名字
  if copy(ml.Path,length(ml.Path),1)='\' then
    begin
     ispath1:=ml.Path+'sdsf.mdb';
    end
  else
    begin
     ispath1:=ml.Path+'\sdsf.mdb';
    end;
  copyfile(PChar(Ispath),PChar(ispath1),true);
  application.MessageBox('备份成功!!','系统',64)
end;

Answer 3

重新写了一个，以下代码都假设数据库文件“House.dbf”和你的可执行文件在同一目录下备份代码
===================
procedure TForm.SpeedButton1Click(Sender: TObject);
var 
  failure: boolean;
begin
  failure:=false;
  if not copyfile('House.dbf','a:\House.dbf',false) then//备份文件
     failure := true;
  if failure then 
    showmessage('备份成功!!')
  else
    showmessage('备份失败!!')
end;
------------------------------------------------------------------------
恢复代码
===================
procedure TForm.SpeedButton1Click(Sender: TObject);
var
  failure;boolean;
begin
  failure:=false;
  //关闭你正在使用的连接比如说table,query等，根据你具体使用的组件而定
  if FileExist('House.dbf') then
  begin
    DeleteFile('House.dbf');//删除原文件
    if not copyfile('a:\House.dbf','House.dbf',false) then//开始复制文件
      failure := true;
  end;
  if failure then 
    showmessage('恢复成功!!')
  else
    showmessage('恢复失败!!')
end;

Answer 4

最简单的方法还是，直接执行sql语句use master
go
RESTORE database House FROM DISK = 'd:\test.bak' with replace ,stats//还原
backup database databasename to disk='d:\server\jun.bak'  with  init   //备分