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

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

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

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

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

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

PHP كود :

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnBackup_Click(sender As Object, e As EventArgs) Handles 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(query, connection)
                    command.ExecuteNonQuery()
                End Using
            End Using

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

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

PHP كود :

Imports System.Data.SqlClient

Public Class Form1
    Private Sub btnRestore_Click(sender As Object, e As EventArgs) Handles 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(query, connection)
                    command.ExecuteNonQuery()
                End Using
            End Using

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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Osama NY

محمد العموري

Kamil