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

وإليكم كود استرجاع قاعدة البيانات الاحتياطية 

مع ملاحظة أنه يجب إضافة أداة SaveFileDialog1 للكود الأول الخاص بنسخ قاعدة البيانات


وإضافة أداة OpenFileDialog1 لهذا الكود الخاص باسترجاع قاعدة البيانات المحفوظة سابقا



ودمتم بخير .

كود :

Dim myDataBaseName As String = "Test" ' اكتب اسم قاعدة البيانات الافتراضي

       OpenFileDialog1.Filter = "Restore Database (*.accdb)|*.accdb"
       OpenFileDialog1.InitialDirectory = Application.StartupPath
       OpenFileDialog1.Title = "استرجاع قاعدة بيانات"
       OpenFileDialog1.FileName = ""
       OpenFileDialog1.RestoreDirectory = True

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

       My.Computer.FileSystem.DeleteFile(Application.StartupPath & "\" & myDataBaseName & ".accdb")
       My.Computer.FileSystem.CopyFile(OpenFileDialog1.FileName, Application.StartupPath & "\" & myDataBaseName & ".accdb")

       MessageBox.Show("تم استرجاع قاعدة البيانات السابقة بنجاح", " استرجاع قاعدة البيانات", MessageBoxButtons.OK, MessageBoxIcon.Information)