elmira_63
دوشنبه 28 اردیبهشت 1388, 16:49 عصر
سلام دوستان
برای restore کردن یک فایل backup در برنامم میام قبل از restore کردن پروسس برنامم رو اینجوری kill می کنم
Dim AllProcesses() As Process = Process.GetProcesses
OnErrorResumeNext
ForEach _Process As Process In AllProcesses
If _Process.ProcessName = "phon1"Then
_Process.kill()
EndIf
Next
برای بار اول درست بازیابی میکنه اطلاعات رو ولی اگه دوباره بخوام بازیابی کنم نمی شه فکنم چون پروسسم kill شده
حالا چیکار کنم که دوباره بتونم یه فایل رو restore کنم
اینم کل کد بازیابی
Dim openfiledialog1 As New OpenFileDialog
Dim path As String
server = New SQLDMO.SQLServer2
server.LoginSecure = True
openfiledialog1.Filter = "(*.bak)|*.bak"
openfiledialog1.Title = "تعیین فایل برای بازیابی"
If openfiledialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
server.Connect(My.Computer.Name)
database = server.Databases.Item("telephon")
Dim AllProcesses() As Process = Process.GetProcesses
On Error Resume Next
For Each _Process As Process In AllProcesses
If _Process.ProcessName = "phon1" Then
_Process.kill()
End If
Next
restor.Database = database.Name
path = openfiledialog1.FileName
restor.Files = path
restor.ReplaceDatabase = True
SqlConnection.ClearAllPools()
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing
server = Nothing
MsgBox(" کلیه اطلاعات بازیابی شد")
End If
برای restore کردن یک فایل backup در برنامم میام قبل از restore کردن پروسس برنامم رو اینجوری kill می کنم
Dim AllProcesses() As Process = Process.GetProcesses
OnErrorResumeNext
ForEach _Process As Process In AllProcesses
If _Process.ProcessName = "phon1"Then
_Process.kill()
EndIf
Next
برای بار اول درست بازیابی میکنه اطلاعات رو ولی اگه دوباره بخوام بازیابی کنم نمی شه فکنم چون پروسسم kill شده
حالا چیکار کنم که دوباره بتونم یه فایل رو restore کنم
اینم کل کد بازیابی
Dim openfiledialog1 As New OpenFileDialog
Dim path As String
server = New SQLDMO.SQLServer2
server.LoginSecure = True
openfiledialog1.Filter = "(*.bak)|*.bak"
openfiledialog1.Title = "تعیین فایل برای بازیابی"
If openfiledialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
server.Connect(My.Computer.Name)
database = server.Databases.Item("telephon")
Dim AllProcesses() As Process = Process.GetProcesses
On Error Resume Next
For Each _Process As Process In AllProcesses
If _Process.ProcessName = "phon1" Then
_Process.kill()
End If
Next
restor.Database = database.Name
path = openfiledialog1.FileName
restor.Files = path
restor.ReplaceDatabase = True
SqlConnection.ClearAllPools()
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing
server = Nothing
MsgBox(" کلیه اطلاعات بازیابی شد")
End If