备份SQL SERVER数据库代码
2006-05-31 18:15
218 查看
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;
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;
相关文章推荐
- SQL Server数据库备份代码
- 如何使用代码备份SQL Server数据库
- 一个SQL Server数据库备份与还原操作的类
- mysql定时备份代码
- ASP连接SQL Server数据库的代码
- PHP备份数据库生成SQL文件并下载的函数代码
- VB实现SQL Server数据库备份/恢复
- 通过Windows批处理命令执行SQL Server数据库备份
- 五个SQL Server数据库备份与恢复必需知道并且会用的具体操作
- 20160308 C#代码实现Excel数据导入到SQL Server数据库中
- 数据库备份与还原(VB代码示例)
- 备份SQL Server数据库
- ASP.NET将EXCEL导入SQL SERVER数据库的代码
- [转]Sql Server数据库定时自动备份
- SQL Server数据库备份与还原
- 一个简单的Sqlite双备份代码
- 常用代码备份--获取路径下多有文件之文件名
- SQL SERVER数据库备份时出现“操作系统错误5(拒绝访问)。”错误的解决办法
- 通过批处理,实现SQL Server数据库定期备份到ftp
- 通过T-SQL语句实现数据库备份与还原的代码