数据库

Question

procedure TFmainform.N1Click(Sender: TObject);
var
   filstr:Tfilename;
begin
   // jyd.ADOConnection1.Connected:=false;
 if messagedlg('请确认是否执行恢复！！',mtwarning,[mbyes,mbno],0)=mryes then
   begin
     if opendialog1.Execute then
        filstr:=opendialog1.FileName ;
     messagedlg('恢复过程中，！！',mtconfirmation,[mbok],0);
     jyd.ADOConnection1.Connected:=false;
     jyd.ADOCommand1.CommandText:='alter database jydfc set offline with rollback immediate';
     jyd.ADOCommand1.Execute ;
     jyd.ADOCommand1.CommandText:=format('restore database jydfc from disk=''%s''',[filstr]);
     jyd.ADOCommand1.Execute;
     jyd.ADOCommand1.CommandText:='alter database jydfc set online    with rollback immediate';
     jyd.ADOCommand1.Execute ;
      messagedlg('数据库恢复成功，！！',mtconfirmation,[mbok],0);
  end;
end;