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);

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >>