کمک - باز گرداندن پشتیبان بانک اطلاعاتی

[arman_Delta2002]

سلام من با این توابع از بانکم پشتیبان میگیرم ولی با این کد که در زیر آمده نمیتونم اطلاعات رو ریستور کنم ؟ ممکنه علتش از این باشه که برنامه با بانک در اتصال هست؟


Imports Microsoft.SqlServer.Management.Smo
Imports Microsoft.SqlServer.Management.Common

Module Backup_Restore_Module1

' Backup

'--Declare the backup object

Dim WithEvents oBackup As New Backup
Dim WithEvents oRestore As New Restore


Public Sub BackupSqlDatabase_Full(ByVal Path_Str As String)

Dim conn As New ServerConnection(DbConnection1) ' -- 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
' -- set the path where backup file will be stored
Dim bkDevItem As New BackupDeviceItem(Path_Str, DeviceType.File) ' -- create SMO.Backupdevice object
With oBackup ' Set the backup object property
.Action = BackupActionType.Database
.Database = "CDBase"
.Devices.Add(bkDevItem)
.Initialize = True
.Checksum = True
.ContinueAfterError = True
.Incremental = False
.LogTruncation = BackupTruncateLogType.Truncate
.SqlBackup(oSQLServer) ' backup SQL database
End With

End Sub


' Restore

Public Sub RestorSQLDatabase_Full(ByVal Path_Str As String)

Dim conn As New ServerConnection(DbConnection1) ' -- 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 bkDevItem As New BackupDeviceItem(Path_Str, DeviceType.File) ' -- create SMO.Backupdevice object

With oRestore ' Set the Resotre object property
.Action = RestoreActionType.Database
.Database = "CDBase"
.Devices.Add(bkDevItem)

.NoRecovery = False
.SqlRestore(oSQLServer) ' Resotre SQL database
اینجا میگه نمیتونه بازگردونه اطلاعات رو
End With


End Sub
End Module