+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 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