النسخ الاحتياطي والاسترجاع - نسخة قابلة للطباعة

كود :
Sub Backup()



        Dim dt As DateTime = Today

            Dim destdir As String = "possystemdb" & System.DateTime.Now.ToString("dd-MM-yyyy_h-mm-ss") & ".bak"

            Dim objdlg As New SaveFileDialog

            objdlg.FileName = destdir

            objdlg.ShowDialog()

            Filename = objdlg.FileName

            Cursor = Cursors.WaitCursor

            Timer2.Enabled = True

            con.Open()

            Dim sql As String = "backup database possystemdb to disk='" & Filename & "'with init,stats=10"

            Dim cmd As New SqlCommand(sql)

            cmd.Connection = con

            cmd.ExecuteReader()

            con.Close()

            MessageBox.Show("تم حفظ النسخة الاحتياطية من قاعدة البيانات")



    End Sub



    Public Sub RestoreDatabase()

        Try

            With OpenFileDialog1

                .Filter = ("DB Backup File|*.bak;")

                .FilterIndex = 4

            End With

            'Clear the file name

            OpenFileDialog1.FileName = ""

            If OpenFileDialog1.ShowDialog() = DialogResult.OK Then

                Cursor = Cursors.WaitCursor

                Timer2.Enabled = True

                SqlConnection.ClearAllPools()

                con.Open()

                Dim sql As String = "USE Master ALTER DATABASE possystemdb SET Single_User WITH Rollback Immediate Restore database possystemdb FROM disk='" & OpenFileDialog1.FileName & "' WITH REPLACE ALTER DATABASE possystemdb SET Multi_User "

                Dim cmd As New SqlCommand(sql)

                cmd.Connection = con

                cmd.ExecuteReader()

                con.Close()

                MessageBox.Show("تمت استعادة قاعدة البيانات بنجاح", "استعادة القاعدة ", MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)

        End Try



    End Sub