+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ (/showthread.php?tid=46634)
هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ - Microformt - 27-07-23
السلام عليكم
هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟
نأمل في المساعدة
تحياتي
RE: هل يوجد كود لضغط وإصلاح قاعدة البيانات ، أعني قاعدة بيانات Access؟ - Taha Okla - 27-07-23
وعليكم السلام ورحمة الله وبركاته
كود :
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" ' رسالة التأكيد على نجاح العملية