اقتباسبسم الله والحمد لله والصلاة والسلام على رسول الله وعلى آله وصحبه ومن والاه وبعد
اقتباسعندما نريد عمل نسخة احتياطية من قاعدة بيانات مصممة SQL server وليكن اسمها optics يكون الكود
Private BackupPath As String
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Save As New SaveFileDialog
Save.Filter = "bak files (*.bak)|*.bak"
If Save.ShowDialog() = DialogResult.OK Then
Me.BackupPath = Save.FileName
Dim SQL_Connection As New SqlConnection("data source=" + Environment.MachineName + "; initial catalog=master;Integrated Security=true;;Connect Timeout=5")
Dim cmd As SqlCommand = SQL_Connection.CreateCommand()
cmd.CommandType = CommandType.Text
cmd.CommandText = "USE master BackUp DATABASE optics TO DISK= '" + Me.BackupPath + "'"
SQL_Connection.Open()
Try
Me.Cursor = Cursors.WaitCursor
cmd.ExecuteNonQuery()
MessageBox.Show(Me, "تم عمل نسخة إحتياطية من قاعدة البيانات", "حفظ", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Cursor = Cursors.Default
Catch ex As Exception
MessageBox.Show(ex.Message)
MessageBox.Show(Me, "خطأ فى أخذ النسخة الإحتياطية من قاعدة البيانات", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Cursor = Cursors.Default
Finally
SQL_Connection.Close()
End Try
End If
End Sub
اقتباسعندما نريد استرجاع نسخة احتياطية من قاعدة بيانات مصممة SQL server وليكن اسمها optics يكون الكود
Private RestorePath As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim open As New OpenFileDialog
'open.Filter = "bak files (*.bak)|*.bak"
If open.ShowDialog() = DialogResult.OK Then
Me.RestorePath = open.FileName
Dim SQL_Connection As New SqlConnection("data source=" + Environment.MachineName + "; initial catalog=master;Integrated Security=true;;Connect Timeout=5")
Dim cmd As SqlCommand = SQL_Connection.CreateCommand()
cmd.CommandType = CommandType.Text
cmd.CommandText = "RESTORE DATABASE optics FROM DISK= '" + Me.RestorePath + "'"
SQL_Connection.Open()
Try
Me.Cursor = Cursors.WaitCursor
cmd.ExecuteNonQuery()
Me.Cursor = Cursors.Default
MessageBox.Show(Me, "تم إسترجاع النسخة الإحتياطية من قاعدة البيانات", "إسترجاع", MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.Cursor = Cursors.Default
Catch ex As Exception
MessageBox.Show(ex.Message)
MessageBox.Show(Me, "خطأ فى إسترجاع النسخة الإحتياطية من قاعدة البيانات", "خطأ", MessageBoxButtons.OK, MessageBoxIcon.Error)
Me.Cursor = Cursors.Default
Finally
SQL_Connection.Close()
End Try
End If
End Sub
اقتباسمع ملاحظة ضرورة وجود قاعدة بيانات بنفس الاسم ( يمكن انشاء قاعدة جديدة لها نفس الاسم فقط ) عند تنقيذ عملية الاسترجاع
اقتباسمع ملاحظة اغلاق أى اتصال بالقاعدة عند تنقيذ عملية الاسترجاع
اقتباسمع ملاحظة اغلاق قاعدة البيانات ان كانت فى وضع التصميم عند تنقيذ عملية الاسترجاع
اقتباسمرفق ملف الكود السابق
اقتباستحياتى وتقديرى لكل من يضيف الى هذا المنتدى