Резервное копирование базы данных SMO

Question

Я использую следующую функцию для резервного копирования базы данных SQL Server с помощью SMO .. но резервная копия не работает ... Я понятия не имею, почему это не получается ... любая помощь приветствуется.

Private Sub BackupSqlDatabase() 

    Dim conn As New ServerConnection("MONO-PC\SQLEXPRESS") ' -- set SQL server connection given the server name, user name and password 
    Dim oSQLServer As New Server(conn) '--create the SMO server object using connection 

    Dim OrigBackupPath As String = oSQLServer.Information.MasterDBPath.Replace("\DATA", "C:\Backup\DB_BACKUP_NAME.BAK") ' -- set the path where backup file will be stored 

    Dim bkDevItem As New BackupDeviceItem(OrigBackupPath, DeviceType.File) ' -- create SMO.Backupdevice object 

    With oBackup ' Set the backup object property 
     .Action = BackupActionType.Database 
     .Database = "LIC.MDF" 
     .Devices.Add(bkDevItem) 
     .Initialize = True 
     .Checksum = True 
     .ContinueAfterError = True 
     .Incremental = False 
     .LogTruncation = BackupTruncateLogType.Truncate 
     .SqlBackup(oSQLServer) ' backup SQL database 
    End With 

End Sub 

Answer 1

Какую версию сервера sql вы используете? Я использовал, полагаю, 10.5 (sql server 2008 R2 Service Pack 1), а объект SMO не поддерживался.

Вместо этого я использую вызовы sql.

BACKUP DATABASE DBNAMEHERE TO DISK = 'destPath' WITH FORMAT