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