libral
چهارشنبه 13 بهمن 1389, 21:29 عصر
سلام دوستان
من یه برنامه نوشتم که از کدهای زیر برای backup & restore بانکم( sql server express) استفاده کردم. عمل backup رو درست انجام میده، ولی موقع restore، خطا میگیره (restore failed for server:...) ر
Sub Backup(ByVal strpath As String)
Connect()
Dim objserverconnection As ServerConnection = New ServerConnection(con)
Dim objserver As Server = New Server(objserverconnection)
Dim objitem As BackupDeviceItem = New BackupDeviceItem(strpath, DeviceType.File)
Dim objbackup As Backup = New Backup()
objbackup.Devices.Add(objitem)
objbackup.Action = BackupActionType.Database
objbackup.Database = con.Database
objbackup.SqlBackup(objserver)
End Sub
Sub myRestore(ByVal strpath As String)
con.ChangeDatabase("master")
Connect()
Dim objserverconnection As ServerConnection = New ServerConnection(con)
Dim objserver As Server = New Server(objserverconnection)
Dim objitem As BackupDeviceItem = New BackupDeviceItem(strpath, DeviceType.File)
Dim objRestore As Restore = New Restore()
objRestore.Devices.Add(objitem)
objRestore.ReplaceDatabase = True
objRestore.Database = con.Database
objRestore.SqlRestore(objserver)
End Sub
ممنون میشم اگه کمکم کنید.
من یه برنامه نوشتم که از کدهای زیر برای backup & restore بانکم( sql server express) استفاده کردم. عمل backup رو درست انجام میده، ولی موقع restore، خطا میگیره (restore failed for server:...) ر
Sub Backup(ByVal strpath As String)
Connect()
Dim objserverconnection As ServerConnection = New ServerConnection(con)
Dim objserver As Server = New Server(objserverconnection)
Dim objitem As BackupDeviceItem = New BackupDeviceItem(strpath, DeviceType.File)
Dim objbackup As Backup = New Backup()
objbackup.Devices.Add(objitem)
objbackup.Action = BackupActionType.Database
objbackup.Database = con.Database
objbackup.SqlBackup(objserver)
End Sub
Sub myRestore(ByVal strpath As String)
con.ChangeDatabase("master")
Connect()
Dim objserverconnection As ServerConnection = New ServerConnection(con)
Dim objserver As Server = New Server(objserverconnection)
Dim objitem As BackupDeviceItem = New BackupDeviceItem(strpath, DeviceType.File)
Dim objRestore As Restore = New Restore()
objRestore.Devices.Add(objitem)
objRestore.ReplaceDatabase = True
objRestore.Database = con.Database
objRestore.SqlRestore(objserver)
End Sub
ممنون میشم اگه کمکم کنید.