try
DeleteFile(BAckUPFile); //若备份文件已经存在就删除之
dmoBack:=coBackup.create;
backupdrv:=coBackupDevice.Create ; //创建对象
backupdrv.name:=DBName+''''Bak''''; //指定备份设备的名字
backupdrv.Type_ :=SQLDMODevice_DiskDump;
backupdrv.PhysicalLocation :=BackupFile ;
//添加备份设备
sqlServer.BackupDevices.Add(backupdrv);
except
//由于这里的异常不会返回值,没有办法,只能认为添加异常是由于已经存在这个备份集
end;
//进行备份
dmoBack.action:=SQLDMOBackup_Database;
dmoBack.database:=DBName;
dmoBack.Devices :=DBName+''''Bak'''';
dmoBack.SQLBackup(sqlserver) ;
Result:=True;
Except
On E:EOleException do
begin
ShowMessage(e.Message);
上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18