مشکل در restore در هنگام باز بودن برنامه

[elmira_63]

سلام دوستان
من توی برنامم می خوام با کد زیر یه فایل .bak رو restore کنم ولی یه err مبنی بر در حال استفاده بودن دیتابیس بهم می ده


Dim server As SQLDMO.SQLServer2Class
Dim database As SQLDMO.Database2
Dim restor As SQLDMO.Restore2
server = New SQLDMO.SQLServer2Class
restor = New SQLDMO.Restore2

server.LoginSecure = True
server.Connect("(local)")

MsgBox("server{0}:" + server.Name)
database = server.Databases.Item("zaban")
MsgBox("database{0}:" + database.Name)
restor.Database = database.Name

restor.Files = "e:\zaban\backup\zaban.bak"
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing
server = Nothing

می خواستم از کد زیر استفاده کنم برای حل این مشکل ولی این خط رو قبول نمی کنه

server.KillAllProcesses("zaban")

[elmira_63]

مشکل مارو کسی نمی دونه؟؟
کد بالا فکر کنم اشتباه بود این کدم برای backup می گه Public member 'SQLRestore' on type
'Backup2Class' not found



server = New SQLDMO.SQLServer2Class
bakup = New SQLDMO.Backup2
server.LoginSecure = True
server.Connect("(local)")
MsgBox("server{0}:" + server.Name)
index1 = lst_database.SelectedIndex
database = server.Databases.Item("zaban")
MsgBox("database{0}:" + database.Name)
bakup.Database = database.Name
bakup.Files = "c:\data.bak"
bakup.SQLRestore(server)
server.DisConnect()
bakup = Nothing
server = Nothing
MsgBox("تهیه نسخه پشتیبان از اطلاعات تمام شد")

برای restore هم میگه دیتابیس در حال استفاده است

server = New SQLDMO.SQLServer2Class
restor = New SQLDMO.Restore2
server.LoginSecure = True
server.Connect("(local)")
MsgBox("server{0}:" + server.Name)
index1 = lst_database.SelectedIndex
database = server.Databases.Item("zaban")
MsgBox("database{0}:" + database.Name)
restor.Database = database.Name
restor.Files = "e:\zaban.bak"
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing
server = Nothing
MsgBox("باز گرداندن اطلاعات تمام شد")

[Sub Zero]

دوست عزیز در تاپیک حل مشکل پشتیبان گیری و بازیابی برای همیشه (http://barnamenevis.org/forum/%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%D8%AF%D8%B1-vb-net/104288-%D8%AD%D9%84-%D9%85%D8%B4%DA%A9%D9%84-%D9%BE%D8%B4%D8%AA%DB%8C%D8%A8%D8%A7%D9%86-%DA%AF%DB%8C%D8%B1%DB%8C-%D9%88-%D8%A8%D8%A7%D8%B2%DB%8C%D8%A7%D8%A8%DB%8C-%D8%A8%D8%B1%D8%A7%DB%8C-%D9%87%D9%85%DB%8C%D8%B4%D9%87.html) در مورد سوال شما بحث شده .