您的位置:首页 > 编程语言 > Delphi

delphi操作sql数据库的备份和强制还原

2020-03-01 01:30 12 查看
delphi操作sql数据库的备份和强制还原

procedure TFrmMain.NSystBackupClick(Sender: TObject);
var strFile:string;
begin
  //  数据库备份
  SaveDlgData.Filter:='All files (*.*)|*.*';
  SaveDlgData.FileName:='DataBack'+DateToStr(now);

  if SaveDlgData.Execute then
  begin 
    strFile:=SaveDlgData.FileName;     StatusBar1.Panels[1].Text:='正在备份数据库...';
    DataModuleMain.ADOQBack.Close;
    DataModuleMain.ADOQBack.SQL.Clear;
    DataModuleMain.ADOQBack.SQL.Add('backup database DangerWaste to disk='''+strFile+''' ');
    
    try
      DataModuleMain.ADOQBack.ExecSQL;       Application.MessageBox(pchar('数据库已经备份到'+strFile+'!'),'提示',MB_OK+MB_ICONINFORMATION );
      //write log
      DataModuleMain.AddLog(currentUser.Name,'备份数据库到'+strFile,DateTimeTostr(now));
      StatusBar1.Panels[1].Text:='';
    except
      Application.MessageBox('文件写入错误!','错误',MB_OK+MB_ICONERROR ); 
    end;   end; 
end; procedure TFrmMain.NSysRestoreClick(Sender: TObject);
//数据库还原
var strFile:string;
begin
  if OpenDlgRestore.Execute then
  begin
    
    strFile:=OpenDlgRestore.FileName;
    if messagedlg('是否确定还原',mtconfirmation,[mbyes,mbno],0)=mryes then
    begin       StatusBar1.Panels[1].Text:='正在恢复数据库...';
      try
        with DataModuleMain do
        begin
          ADOConnMain.Close;
          ADOConnectRestore.Open();//主义这个connection连接的是master数据库
          ADOQRestore.Close;
          ADOQRestore.SQL.Clear;
          ADOQRestore.SQL.Add('ALTER DATABASE DangerWaste SET OFFLINE WITH ROLLBACK IMMEDIATE');
          ADOQRestore.ExecSQL;
          ADOQRestore.Close;
          ADOQRestore.SQL.Clear;
          ADOQRestore.SQL.Add('restore database DangerWaste From disk='''+strFile+''' ');
          ADOQRestore.ExecSQL;
          ADOConnectRestore.Close;
          ADOConnMain.Connected:=true;
        end;         Application.MessageBox(pchar('数据库恢复成功!'),'提示',MB_OK+MB_ICONINFORMATION );         DataModuleMain.AddLog(currentUser.Name,'还原数据库从'+strFile,DateTimeTostr(now));
        StatusBar1.Panels[1].Text:='';
      except
        Application.MessageBox('数据库联接错误','错误',MB_OK+MB_ICONERROR);
      end;
    end;
  end;
end; posted on 2012-03-09 16:24 davidlover99 阅读(...) 评论(...) 编辑 收藏

转载于:https://www.cnblogs.com/manshow/archive/2012/03/09/2387819.html

  • 点赞
  • 收藏
  • 分享
  • 文章举报
diequ5588 发布了0 篇原创文章 · 获赞 0 · 访问量 31 私信 关注
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: