[Microformt]

السلام عليكم
هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟
نأمل في المساعدة
تحياتي

[Taha Okla]

وعليكم السلام ورحمة الله وبركاته

كود :

Dim TempDb As String, DbName As String

DbName = App.Path & "\TA_MB State.mdb"      ' مسار واسم قاعدة البيانات

'   db.Close   ' يجب أن تكون قاعدة البيانات مغلقة قبل بدء الضغط والاصلاح
TempDb = DbName & "_"           ' مسار اسم قاعدة البيانات بعد الضغط
CompactDatabase DbName, TempDb  ' ضغط قاعدة البيانات
Kill DbName                     ' مسح الملف الأساسي لقاعدة البيانات   - ويمكنك تغيير اسمه بدل حذفه
Name TempDb As DbName           ' تغيير اسم قاعدة البيانات بعد الضغط لاسم القاعدة كما كان قبل الضغط

'   db.Open (....)               ' يمكنك الان فتح قاعدة البيانات

MsgBox "The 'Compact Database' was done Successfully", , "Compact Database"  ' رسالة التأكيد على نجاح العملية