ضغط وإصلاح قاعدة البيانات

(كود النسخ الاحتياطي فى المثال يقوم بالغط و الاصلاح)

*فورم* مثال علي انسخ الاحتياطي و التصدير و ربط الجداول

http://www14.brinkster.com/mtarafa/forms/3in1.zip

الأخ محمد طاهر أشكر لك تجاوبكم ... ولكن عزيزي الرابط يفنح على صفحة وليس للمثال ولك تحياتي

الأخ أبو على أهلا ومرحبا بك .

بعد إذن المشرف محمد طاهر .

بالنسبة للأكسيس 2000 لا يحتاج إلى كود ولكن يمكن أن يغضط القاعدة تلقائيا عن طريق ما يلي :

من قائمة الأكسيس أدوات اختار خيارات ومنها صفحة التبويب عام تجد خيار فى اليمين من أسف مكتوب أمامه ضغط عند الإغلاق .

علم عليه صح فقط لا غير وعند قفل القاعدة تجد عملية الضغط تتم تلقائي ويمكن ملاحظتها بخط أحمر أسف شاشة الأكسيس عند اغلاقك القاعدة .

أشرف خليل

الأخ أشرف

ضبطت الطريقة معايه والله يعطيك العافية .

تم تصحيح الرابط أعلاه

استكمالا لكلام أخونا أشرف

الطريقة بالكود تختصارا كما فى المثال أعلاه

  m3 = Trim$(datapath)
  m4 = Trim$(Backuppath)
 'MsgBox m3
 'MsgBox m4

  DBEngine.CompactDatabase m3, m4, DB_LANG_ARABIC

و هي تفيد فى حالة اعداد برنامج نهائي حيث أنه عادى ما تتم ازالة القوائم النمطية للأكسس فى البرامج التي تخرج فى هيئة نهائية

مشكور أخوي محمد بس ممكن لو سمحت توضح معنى m3 و m4 في الكود . :o

مجرد متغير للاحتفاظ بقيمة المسار

الاول لمسار القاعدة

و الثاني للمسار المطلوب الضغط اليه ( المسار للملف الجديد)

و يمكن الاستغناء عنها و كتابة القيم مباشرة فى السطر الأخير

و لكن الطريقة الاولي هي النموذجية و الله أعلم

و Trim هي دالة لازالة المسافات من قبل و بعد النص الخاص بالمسار

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

  DBEngine.CompactDatabase Trim$(datapath), Trim$(Backuppath), DB_LANG_ARABIC


أو مباشرة فى حالة عدم الحاجة الي تغيير المسارات أي استدعاؤها ووضعها فى الكود نتيجة لتغييرها من حالة الي أخري



  DBEngine.CompactDatabase "c:db1.mdb", "c:db2.mdb", DB_LANG_ARABIC

الأخ محمد طاهر والأخ أشرف مشكوووووورين .