[خالد كامل1]

السلام غليكم ورحمة الله
ااحبتى الكرام
لدى برنامج مصمم بثلاث قواعد بيانات DB1,DB2,DB3 اريد عمل نسخه احتياطيه للثلاث قواعد بيانات بضغظة زر وحفظها فى مجلد BACKUP

[تركي الحلواني]

لعمل نسخة احتياطية من ثلاث قواعد بيانات مختلفة (DB1، DB2، DB3) بضغطة زر في VB.NET، يمكنك استخدام الكود التالي. افترض أن قواعد البيانات الخاصة بك هي قواعد بيانات SQL Server وتريد حفظ النسخ الاحتياطية في مجلد BACKUP


الخطوات:

1. إنشاء مجلد BACKUP إذا لم يكن موجودًا.
   
2. عمل نسخة احتياطية لكل قاعدة بيانات وحفظها في المجلد
   
3. ربط العملية بزر في الفورم.
   

PHP كود :

Imports System.Data.SqlClient
Imports System.IO

Public Class Form1
    ' مسار المجلد لحفظ النسخ الاحتياطية
    Private backupFolder As String = "C:\BACKUP"

    ' دالة لعمل نسخة احتياطية
    Private Sub BackupDatabase(databaseName As String)
        Try
            ' تحقق من وجود المجلد، وإذا لم يكن موجودًا، يتم إنشاؤه
            If Not Directory.Exists(backupFolder) Then
                Directory.CreateDirectory(backupFolder)
            End If

            ' مسار حفظ النسخة الاحتياطية
            Dim backupFile As String = Path.Combine(backupFolder, $"{databaseName}_{DateTime.Now.ToString("yyyyMMdd_HHmmss")}.bak")

            ' استعلام النسخة الاحتياطية
            Dim backupQuery As String = $"BACKUP DATABASE {databaseName} TO DISK = '{backupFile}'"

            ' الاتصال بقاعدة البيانات
            Using connection As New SqlConnection("Server=.;Database=master;Integrated Security=True;")
                connection.Open()

                ' تنفيذ استعلام النسخة الاحتياطية
                Using command As New SqlCommand(backupQuery, connection)
                    command.ExecuteNonQuery()
                End Using

                connection.Close()
            End Using

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

    ' زر النسخ الاحتياطي
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ' عمل نسخة احتياطية لكل قاعدة بيانات
        BackupDatabase("DB1")
        BackupDatabase("DB2")
        BackupDatabase("DB3")
    End Sub
End Class