| try
DeleteFile(BAckUPFile); //若备份文件已经存在就删除之
try
dmoBack:=coBackup.create;
backupdrv:=coBackupDevice.Create ; //创建对象
backupdrv.name:=DBName+''''Bak''''; //指定备份设备的名字
backupdrv.Type_ :=SQLDMODevice_DiskDump;
backupdrv.PhysicalLocation :=BackupFile ;
//添加备份设备
try
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);
result:=false;
&nbs 上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >> | 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 