jas1387
شنبه 19 مرداد 1387, 09:17 صبح
سلام
من یک فرم دارم که بر روی آن یک datagridview قرار دارد که در رویداد فرم لود از دیتابیس مقدار می
گیرد
قسمت Backup گیری نیز در این فرم قرار دارد که وقتی می خواهم backup بگیرم پیغام می دهد که
دارد از دیتابیس استفاده می شود این هم کدش ( راستی وقتی کد درون فرم لود مربوط به مقدار گیری
datagridview را پاک می کنم جواب می دهد )
Dim server As New SQLDMO.SQLServer2
Dim database As SQLDMO.Database2
Dim backup As New SQLDMO.Backup2
Dim restor As New SQLDMO.Restore2
Private Sub restore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restore.Click
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("phone")
restor.Database = database.Name
path = openfiledialog1.FileName
restor.Files = path
restor.ReplaceDatabase = True
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing
server = Nothing
MsgBox("restor انجام شد")
End If
End Sub
لطفا به من کمک کنید متشکرم:لبخندساده:
من یک فرم دارم که بر روی آن یک datagridview قرار دارد که در رویداد فرم لود از دیتابیس مقدار می
گیرد
قسمت Backup گیری نیز در این فرم قرار دارد که وقتی می خواهم backup بگیرم پیغام می دهد که
دارد از دیتابیس استفاده می شود این هم کدش ( راستی وقتی کد درون فرم لود مربوط به مقدار گیری
datagridview را پاک می کنم جواب می دهد )
Dim server As New SQLDMO.SQLServer2
Dim database As SQLDMO.Database2
Dim backup As New SQLDMO.Backup2
Dim restor As New SQLDMO.Restore2
Private Sub restore_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles restore.Click
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("phone")
restor.Database = database.Name
path = openfiledialog1.FileName
restor.Files = path
restor.ReplaceDatabase = True
restor.SQLRestore(server)
server.DisConnect()
restor = Nothing
server = Nothing
MsgBox("restor انجام شد")
End If
End Sub
لطفا به من کمک کنید متشکرم:لبخندساده: