[elgokr]

اخى الحبيب النسخة الاحتياطية لقاعدة البيانات من نوع Access

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

حتى ابسط الامر لك تخيل ان قاعدة البيانات ملف او صورة او اى شئ

وانت تريد عمل نسخ الملف من مكان الى مكان من خلال البرنامج

طيب عشان اقوم بعمل ذلك مع قاعدة البيانات من نوع Access

ما المطلوب فعله تماماً

اذا كنت تريد عمل نسخة احتياطية كل يوم مرة واحدة 

فهنا يجب ان تقوم بعمل حقل فى Settings يكون تحت اسم وليكن BupDB

ويكون من نوع تاريخ وسيكون القيمة الافتراضية تاريخ اليوم مثلاً

طيب الان قمنا بعمل هذا ماذا بعد ذك

قبل اتمام عمل النسخ ستحتاج لكود يقوم بالتحقق هل الاتصال بقاعدة البيانات 

مغلق ام لا واذا كان لا فيجب عليك تنفيذ امر الاغلاق

جميل حتى الان الكود بسيط ويمكننا فعل ذلك

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

طيب كيف يمكننى فعل الكود كاملاً 

الامر كالتالى سيكون الكود بهذا الشكل اذا كان فى واجهة فتح البرنامج

او فى جميع الشاشات البرنامج فكما تشاء اين تريد وضع الكود

كود :

       REM كود التحقق من التاريخ اخر سحب نسخة باكس اب اصبح اصغر من التاريخ الحالى
       If My.Settings.BupDB < Now.Date Then
           REM كود اغلاق الاتصال بقاعدة البيانات
           If con.State = ConnectionState.Open Then con.Close()
           REM هذا السطر يقوم بالتحقق بمسار مجلد الاحتفاظ بنسخة قاعدة البيانات الا كان غير موجود يقوم بانشاء المجلد
           If (Not System.IO.Directory.Exists("C:\Backup\")) Then IO.Directory.CreateDirectory("C:\Backup\")
           REM اتمام عملية نسخ قاعدة البيانات
           My.Computer.FileSystem.CopyFile(Application.StartupPath & "/NameDB.accdb", "C:\Backup\BupDB-" & Now.Date.ToString("dd-MM-yyyy") & ".accdb", True)
       End If

القى نظرة لهذا الكود يحتوى على الشرح

كل ما عليك فقط تغيير مسمى قاعدة البيانات التى لديك

والمسمى والمسار المطلوب حفظ به قاعدة البيانات

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

تحياتى لك

وتمنياتى لك التوفيق