[أبو خالد الشكري]

مرحبًا بالجميع


هذا نموذج من تأليفي لنسخ قاعدة البيانات
على افتراض أن قاعدة البيانات اسمها Test
فقط قم بتغيير هذا الاسم إلى اسم قاعدة البيانات التي يعمل عليها برنامجك

وعيش حياتك

كود :

       Dim myDataBaseName As String = "Test" ' اكتب اسم قاعدة البيانات الافتراضي
       Dim ThisDay As String = " (Date " & Today.Day & "_" & Today.Month & "_" & Today.Year & " Time " & My.Computer.Clock.LocalTime.ToString("hh_mm_ss") & ")"
       Dim MyBackupFileName As String = myDataBaseName & ThisDay & ".accdb"

       SaveFileDialog1.Filter = "Backup Database (*.accdb)|*.accdb"
       SaveFileDialog1.FileName = MyBackupFileName
       SaveFileDialog1.Title = "إنشاء نسخة احتياطية لقاعدة البيانات"
       SaveFileDialog1.InitialDirectory = Application.StartupPath
       SaveFileDialog1.RestoreDirectory = True

       Dim result = SaveFileDialog1.ShowDialog()
       If result = DialogResult.Cancel Then
           Exit Sub
       End If

       My.Computer.FileSystem.CopyFile(Application.StartupPath & "\" & myDataBaseName & ".accdb", SaveFileDialog1.FileName)
       MessageBox.Show("تم نسخ قاعدة البيانات بنجاح", "نسخ قاعدة البيانات", MessageBoxButtons.OK, MessageBoxIcon.Information)