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

لضغط قاعدة البيانات نستخدم الكود التالي :

Private Sub Command1_Click() 'ضغط قاعدة البيانات
    DBEngine.CompactDatabase App.Path & "\db1.mdb", "c:\db2.mdb"
End Sub

أما لإصلاح قاعدة بيانات فنستخدم الكود التالي :

Private Sub Command2_Click()
    DBEngine.RepairDatabase Path
End Sub

وهناك طريقة أخرى عن طريق استخدام مكتبة Microsoft Access ثم استخدام خواصها .

طبعاً الأكواد التي أعطيتك إياها تنفع لـ 97 فأقل تقريباً ...

هذا ما أعرفه أنا ... :D

بسم الله الرحمن الرحيم

اشكرك جدا يأخ شهاب هذا ما كنت أبحث عنه

و اذا كنت تعرف طريقة الضغط بمكتبة اكسس كما قلت ارجو ان تعلمها لى

و شكرا