[عبدالله الدوسري]

ملاحظات :

أخذ نسخة إحتياطية :

   

إستعادة القاعدة من ملف النسخة الإحتياطية :

   





أخذ نسخة إحتياطية :

كود :

   Private Sub Button_Backup_Click(sender As Object, e As EventArgs) Handles Button_Backup.Click
       Dim BackupFullFileName As String = "C:\Backups\smart_sales_system2 " & Now.ToString("yyyy-MM-dd-HH-mm-ss") & ".Bak"
       Using CMD As New SqlClient.SqlCommand
           CMD.Connection = New SqlClient.SqlConnection("Data Source=.;Initial Catalog=master;Integrated Security=True")
           CMD.CommandType = CommandType.Text
           CMD.CommandText = "BACKUP DATABASE smart_sales_system2 TO DISK = '" & BackupFullFileName & "'; SELECT 'Backup Database Successfully Processed' AS Result"
           Try
               CMD.Connection.Open()
               Dim Res As String = CMD.ExecuteScalar()
               MsgBox(Res)
           Catch ex As Exception
               MsgBox(ex.Message)
           Finally
               CMD.Connection.Close()
           End Try
       End Using
   End Sub

إستعادة القاعدة من ملف النسخة الإحتياطية :

كود :

   Private Sub Button_Restored_Click(sender As Object, e As EventArgs) Handles Button_Restored.Click
       Dim BackupFullFileName As String = ""
       Using OFD As New OpenFileDialog
           With OFD
               .Filter = "Database Backup |*.Bak"
               If .ShowDialog = DialogResult.OK Then
                   BackupFullFileName = .FileName
                   Using CMD As New SqlClient.SqlCommand
                       Try
                           CMD.Connection = New SqlClient.SqlConnection("Data Source=.;Initial Catalog=master;Integrated Security=True")
                           CMD.CommandType = CommandType.Text
                           CMD.Connection.Open()
                           '---------------------------------------------------------------------------------------------------
                           CMD.CommandText = "ALTER DATABASE [smart_sales_system2] SET Single_User WITH Rollback Immediate;"
                           CMD.ExecuteNonQuery()
                           '---------------------------------------------------------------------------------------------------
                           CMD.CommandText = "RESTORE DATABASE smart_sales_system2 From DISK = '" & BackupFullFileName & "' WITH REPLACE;
                                              SELECT 'Database Restored Processed Successfully.' AS Result"
                           Dim Res As String = CMD.ExecuteScalar()
                           '---------------------------------------------------------------------------------------------------
                           CMD.CommandText = "ALTER DATABASE [smart_sales_system2] SET Multi_User With ROLLBACK IMMEDIATE;"
                           CMD.ExecuteNonQuery()
                           '---------------------------------------------------------------------------------------------------
                           MsgBox(Res)
                       Catch ex As Exception
                           MsgBox(ex.Message)
                           '---------------------------------------------------------------------------------------------------
                           CMD.CommandText = "ALTER DATABASE [smart_sales_system2] SET Multi_User With ROLLBACK IMMEDIATE;"
                           CMD.ExecuteNonQuery()
                           '---------------------------------------------------------------------------------------------------
                       Finally
                           CMD.Connection.Close()
                       End Try
                   End Using
               End If
           End With
       End Using
   End Sub

---

تذكر : الحذر مطلوب لعدم ضياع البيانات عن طريق الخطاء .