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

[mehdi_522]

با سلام
دوستان من در برنامه خودم برای ایجاد فایل پشتیبان و بازیابی ان از یکسری دستورات استفاده می کنم در قسمت ایجاد فایل پشتیبان خوب کار میکنه اما در قسمت بازیابی فایل با پیغام خطا اینکه دیتا بیس در حال اجرا است مواجه میشوم لطفا من را راهنمای کنید کدی که استفاده میکنم نیز برای برطرف کردن عیب میگذارم

PublicClass frm_database
Dim server As SQLDMO.SQLServer2Class
Dim database As SQLDMO.Database2
Dim restor As SQLDMO.Restore2
PrivateSub btn_restor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_restor.Click
server = New SQLDMO.SQLServer2Class
restor = New SQLDMO.Restore2
server.LoginSecure = True
server.Connect("(local)")
MsgBox("server{0}:" + server.Name)
database = server.Databases.Item("nortwind")
MsgBox("database{0}:" + database.Name) restor.Database = database.Name
restor.Files = "c:\nortwind.bak"
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing server = Nothing
MsgBox("اطلاعات بازگردانده شد")
End Sub

End Class

[sepehr.net]

سلام
درسته شما وقتی به بانک متصل هستی اجازه ی بازگردانی رو بتون نمیده برای این بتونین این کار رو انجام بدین قطعه کد زیر رو در برنامتون قرار بدین

Cmd.CommandText = "ALTER DATABASE ِdbname SET SINGLE_USER with ROLLBACK IMMEDIATE;" & _
"RESTORE DATABASE dbname FROM DISK= '" & path & "' with REPLACE;" & _
"ALTER DATABASE dbname SET MULTI_USER"
Cmd.ExecuteNonQuery()
اگه جواب نداد یه UseMaster هم قبلش انجام بدین