关闭

备份SQL SERVER数据库代码

标签: sql server数据库数据备份databaseapplicationdisk
840人阅读 评论(1) 收藏 举报
分类:

procedure Tfrm_planmana.N20Click(Sender: TObject);
var
  ado:TADOCommand;
  msg:tfrm_hfdb_list;

begin
//操作员没有些权限
if admin_flag='2' then
begin
MessageBox(handle,'您没有权限进行此操作!','提 示',MB_OK);
exit;
end;
// 确实要备份吗?
if(MessageBox(handle,'确实要备份吗?','提 示',mb_IconInformation+mb_YesNo)=mrno) then exit;
//如果没有这个目录将创建此目录
     
      msg := tfrm_hfdb_list.Create(application);
      //msg.SetMessage('正在备份,可能需要几分钟时间。');
        ado := TADOCommand.Create(nil);
        ado.Connection := dm1.ADOConnection1;
        ado.CommandTimeout := 300;
        //deletefile('d:/工作计划管理软件数据备份/plan_mana');//只能删除本机的文件
        msg.Show;
        application.ProcessMessages;
        //ado.CommandText := 'BACKUP DATABASE plan_mana TO DISK = ''' + SaveDialog1.FileName + '''';
        ado.CommandText := 'BACKUP DATABASE plan_mana TO DISK = ''d:/工作计划管理软件数据备份/plan_mana''';
        msg.Close;
        msg.Free;
        try
          ado.Execute;
        except
          MessageBox(handle,'数据库备份失败','      提 示',MB_OK);
          Exit;
        end;
        ado.Free;
        MessageBox(handle,'操作成功,数据库已备份。','      提 示',MB_OK);

end;

0
0

猜你在找
【直播】机器学习&数据挖掘7周实训--韦玮
【套餐】系统集成项目管理工程师顺利通关--徐朋
【直播】3小时掌握Docker最佳实战-徐西宁
【套餐】机器学习系列套餐(算法+实战)--唐宇迪
【直播】计算机视觉原理及实战--屈教授
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之矩阵--黄博士
【套餐】微信订阅号+服务号Java版 v2.0--翟东平
【直播】机器学习之凸优化--马博士
【套餐】Javascript 设计模式实战--曾亮
查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:108368次
    • 积分:2152
    • 等级:
    • 排名:第17561名
    • 原创:104篇
    • 转载:20篇
    • 译文:0篇
    • 评论:8条
    文章分类
    最新评论