ضغط قاعدة البيانات وعمل نسخة إحتياطية vb.net 2003

تعزيزاً لما سبق قمت بإرفاق نفس المثال السابق ولكن بـ VB6 حتى يتمكن الجميع من الاستفادة ومن هذا المثال الصغير يمكنك عمل التالي : -

1- ضغط لقاعدة بياناتك .

2- عمل نسخة إحتياطية على نفس الجهاز او على اي جهاز اخر

3- إستعادة النسخة الاحتياطية .

ملحوظة : لإستخدام هذا المثال أرجو الانتباه الي التالي :

1- يجب أخذ نسخة من قاعدة بياناتك قبل البدء في تنفيذ الكود حتى تتأكد من ان كل شي يسير على مايرام .

2- التاكد من وضع قاعدة البيانات في المسار المطلوب كما هو موجود في الموديل المرفق وبالطبع يكنك تغير هذه المسارات كيفما تشاء وحسب تخطيطك .

3- لا يمكن أن تتم عملية الضغط أو النسخ مادامت قاعدة البيانات مفتوحة بمعنى أخر قم بكل هذه العمليات من ضغط ونسخ قبل فتح قاعدة البيانات .

Folder_compactDB1.rar

حبيبنا الغالي .... الله يوفقك

البرنامج يعطي خطأ عند الخروج في هذه النقطة

Private Sub Hide_()

Dim CEff As New clsWndEffects

يصادفني .. مثل هذا .... هل من الممكن التوضيح

ألا يوجد طريقة لاصلاح القاعدة و هي مفتوحة .. مثل نسخها و هي مفتوحة

أخي العزيز ابو زيد

أسف جداً على هذا الخطاً فالمثال من المفترض ان يضاف اليه class يقوم بإقلاق النموذج بطريقة ظريفة من الممكن ان تستخدمه في جميع نماذجك سوف أقوم بإرفاق هذا الكلاس وكل ما عليك فعله إضافة هذا الكلاس الي مشروعك وقم بمشاهده طريقة إغلاق النموذج .. ولاتنسانا بالدعاء الصالح والتوفيق

أنظر الملف المرفق بعد التعديل

ASWANY

Folder_compactDB2.rar