بحث طويلا في المنتدى لكن لم اجد جوابا داخله لكن وجدت هذا الكود لكنه لم يعمل معي لم افهم فيه بعض التفاصيل
الكود
Private Sub اخذنسخةاحتياطيةلقاعدةالبياناتToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles اخذنسخةاحتياطيةلقاعدةالبياناتToolStripMenuItem.Click
Dim sDBFile As String = "E:\myDB.mdb"
Dim sBackUpFile As String = "E:\myDB_BackUp.mdb"
' Backup *.mdb database
If File.Exists(sDBFile) Then
Dim db As New dao.DBEngine
'CompactDatabase has two parameters, creates a copy of compact DB at the Destination path
db.CompactDatabase(sDBFile, sBackUpFile)
End If
'Restore the original file from the compacted file
If File.Exists(sBackUpFile) Then
File.Copy(sBackUpFile, sDBFile, True)
End If
End Subوما فهمته من المتغيرين الاول والثاني ان الاول مكان تخزين النسخة
و الثاني قاعدة البيانات التي يعمل منها البرنامج
فقمت بغيير المسار الثاني الى مسار البرنامج حيث قاعدة البيانات
لكن يظهر المشكل انه لا يتعرف على الباث الاول
وانا لم اعرف لماذا لم يجعل المتغير من نوع path
ارجو المساعدة جزاكم الله خيرا وان كان هناك طريقة افضل او رابط بغير الانجليزية اكون شاكرا
تقبل الله منا و منك الصيام والقيام