منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
طريقة اجراء نسخة احتياطية و استرجاعها ؟ - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : طريقة اجراء نسخة احتياطية و استرجاعها ؟ (/showthread.php?tid=45850)



طريقة اجراء نسخة احتياطية و استرجاعها ؟ - Osama NY - 09-04-23

السلام عليكم.

عندي استفسار لطريقة عمل نسخة احتياطية و استرجاعها لقاعدة بيانات من نوع localdb .mdf ؟


RE: طريقة اجراء نسخة احتياطية و استرجاعها ؟ - محمد العموري - 07-02-24

وأنا كذلك أحتاج الإجابة عن هذا السؤال نرجوا الإفادة


RE: طريقة اجراء نسخة احتياطية و استرجاعها ؟ - Kamil - 07-02-24

وعليكم السلام

كود النسخ الاحتياطي :

PHP كود :
Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnBackup_Click
(sender As ObjectAs EventArgsHandles btnBackup.Click
        Try
            Dim connectionString 
As String "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Path\To\Your\Database.mdf;Integrated Security=True"
 
           Dim backupPath As String "C:\Path\To\Backup\YourDatabaseName.bak"

 
           Using connection As New SqlConnection(connectionString)
 
               connection.Open()

 
               Dim query As String = $"BACKUP DATABASE [YourDatabaseName] TO DISK = '{backupPath}'"
 
               Using command As New SqlCommand(queryconnection)
 
                   command.ExecuteNonQuery()
 
               End Using
            End Using

            MessageBox
.Show("Backup completed successfully.""Success"MessageBoxButtons.OKMessageBoxIcon.Information)
 
       Catch ex As Exception
            MessageBox
.Show($"Error during backup: {ex.Message}""Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
       End Try
 
   End Sub
End 
Class 


لاستعادة قاعدة البيانات:

PHP كود :
Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnRestore_Click
(sender As ObjectAs EventArgsHandles btnRestore.Click
        Try
            Dim connectionString 
As String "Data Source=(LocalDB)\MSSQLLocalDB;Integrated Security=True"
 
           Dim backupPath As String "C:\Path\To\Backup\YourDatabaseName.bak"
 
           Dim databaseName As String "YourDatabaseName"

 
           Using connection As New SqlConnection(connectionString)
 
               connection.Open()

 
               Dim query As String = $"RESTORE DATABASE [{databaseName}] FROM DISK = '{backupPath}'"
 
               Using command As New SqlCommand(queryconnection)
 
                   command.ExecuteNonQuery()
 
               End Using
            End Using

            MessageBox
.Show("Restore completed successfully.""Success"MessageBoxButtons.OKMessageBoxIcon.Information)
 
       Catch ex As Exception
            MessageBox
.Show($"Error during restore: {ex.Message}""Error"MessageBoxButtons.OKMessageBoxIcon.Error)
 
       End Try
 
   End Sub
End 
Class