[moftah70]

السلام عليكم ورحمة الله تعالى وبركاته
الاخوة الاكارم تحية طيبة لكم جميعاً
لدي طلب والمساعدة لتعديل كود نسخ واستعادة قاعدة بيانات اكسس

كود النسخ هو

كود :

Private Sub BtnBackup_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnBackup.Click
       If fbd.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim sourcepath As String = Application.StartupPath & "\vacc.accdb"
           Dim destinationpath As String = fbd.SelectedPath & "\vacc.accdb"
           File.Copy(sourcepath, destinationpath, True)
           'File.Copy(sourcepath, True)
           MsgBox("تمت عملية النسخ الاحتياطي بنجاح", MsgBoxStyle.Information, "تأكيد")
       End If
   End Sub

وكود الاستعادة هو

كود :

Private Sub BtnRestore_Click(ByVal sender As Object, ByVal e As EventArgs) Handles BtnRestore.Click
       ofd.Filter = "Access files |*.accdb"
       If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
           Dim fi As New FileInfo(ofd.FileName)
           If fi.Name = "vacc.accdb" Then
               Dim source As String = ofd.FileName
               Dim destination As String = Application.StartupPath & "\vacc.accdb"
               File.Copy(source, destination, True)
               MsgBox("تمت عملية الاستعادة بنجاح", MsgBoxStyle.Information, "تأكيد")
           Else
               MsgBox("الملف المطلوب يجب أن يكون باسم " & "vacc.accdb", MsgBoxStyle.Information, "خطأ")
           End If
       End If
   End Sub

الكود شغال تمام في حالة ان قاعدة البيانات موجودة في مجلد المشروع    
ولان وجود قاعدة البيانات في مجلد المشروع يسبب مشكلة عند تتبيث البرنامج على جهاز اخر لهذا السبب وضعت قاعدة البيانات في مجلد Roaming موجود بهذا الامتداد  

C:\Users\MY PC\AppData\Roaming

علماً اني استعمل جملة الاتصال هذه للأتصال بقاعدة البيانات    

 

كود :

Public con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;" & "Data Source=" & (Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)) & "\vacc.accdb")

المشكلة عند وضع قاعدة البيانات في هذا المسار كود النسخ والاستعادة لا يعمل كيف يمكن تعديل الكود ليتناسب مع هذا المسار بحيث يتعرف على مسار قاعدة البيانات ؟؟؟