كود ضغط وصلاح قاعدة الجداول المقسمة

[qathi]

أخواني وأساتذتي الافاضل 

ممكن كود ضغط واصلاح قاعدة الجداول المقسمة ؟؟ 

[صالح حمادي]

السلام عليكم

هناك العديد من الطرق و هناك العديد من الأمثلة في المنتدى لهذا الأمر و من بينها هذا الكود:

Dim new_Data As String
Dim old_Data As String
old_Data = CurrentProject.Path & "\DB.accdb" 'اسم و مسار قاعدة البيانات المراد ضغطها
new_Data = CurrentProject.Path & "\DB_compact.accdb"

  Set acc2007 = CreateObject("DAO.DBEngine.36")
  acc2007.CompactDatabase old_Data, new_Data, Nothing, Nothing
  Set acc2007 = Nothing
  Kill old_Data
Name new_Data As old_Data
MsgBox "لقد تم ضغط القاعدة بنجاح"

 

[qathi]

أشكرك أستاذي الغالي @صالح حمادي على سرعة ردك .. سعيد جد بذلك 

41 دقائق مضت, صالح حمادي said:

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

نعم بحثت في المنتدى لكن تفاجات أن بعض النقاشات تدور أنهُ يوجد مشاكل في هذا الامر .. ويجب أن تكون قاعدة البيانات الجداول غير مرتبطة ومغلقة حتى يتم الضغط والاصلاح بطريقة صحيحة وبدون مشاكل

 

فما رئيك أستاذي ؟؟

 

[qathi]

للأسف أستاذي الغالي @صالح حمادي  الكود الذي وضعته يقوم بحذف قاعدة الجداول 

[صالح حمادي]

في ٢٢‏/١٢‏/٢٠١٩ at 14:09, qathi said:

عم بحثت في المنتدى لكن تفاجات أن بعض النقاشات تدور أنهُ يوجد مشاكل في هذا الامر .. ويجب أن تكون قاعدة البيانات الجداول غير مرتبطة ومغلقة حتى يتم الضغط والاصلاح بطريقة صحيحة وبدون مشاكل

 

فما رئيك أستاذي ؟؟

هذا صحيح عند تطبيق عملية الضغط و الإصلاح يجب إغلاق جميع النماذج المرتبظة بالجداول و وضع الكود في نموذج غير منظم

في ٢٢‏/١٢‏/٢٠١٩ at 18:44, qathi said:

للأسف أستاذي الغالي @صالح حمادي  الكود الذي وضعته يقوم بحذف قاعدة الجداول 

الكود يعمل معي بكفاءة كبيرة و أنا أضعه في جميع برامجي سوف أضع لك مثال لتجربه

[صالح حمادي]

هذا مثال للكود قم باختيار القاعدة و اضغط على زر الضغط و لاحظ النتيجة

Compact.accdb

[qathi]

أشكرك أستاذي الغالي @صالح حمادي والله أسعد جداً لما تاتيني بحلولك الرائعة والمدهشة

 

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

 

لكن خطرت ببالي فكرة ساقوم بتجربتها لاحقاً 

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

فيقوم بتنفيذ الضغط ويغلق القاعدة مباشرة 

 

فما رأئيك أستاذي ؟؟

تم تعديل ديسمبر 24, 2019 بواسطه qathi

[صالح حمادي]

في ٢٤‏/١٢‏/٢٠١٩ at 16:46, qathi said:

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

أولا: آسف على الإطالة بسبب سفري لحضور جنازة قائدنا العسكري الذي وقف مع الشعب

آه أنت تريد ضغط و إصلاح القاعدة الحالية

لك هذا المثال الرائع للأستاذ محمد الصالح جزاه الله كل خير

mas_backup2.rar

[qathi]

أشكرك أستاذي الغالي @صالح حمادي على ردك رغم ضروفك

في ٢٧‏/١٢‏/٢٠١٩ at 01:06, صالح حمادي said:

أولا: آسف على الإطالة بسبب سفري لحضور جنازة قائدنا العسكري الذي وقف مع الشعب

رحمت الله على موتاكم وموتى المسلمين جميعا

لله ما أخذ وله ما أعطى

رزقكم الله الصبر على مصابكم

وانا لله وانا الية راجعون

 

في ٢٧‏/١٢‏/٢٠١٩ at 01:06, صالح حمادي said:

آه أنت تريد ضغط و إصلاح القاعدة الحالية

لك هذا المثال الرائع للأستاذ محمد الصالح جزاه الله كل خير

mas_backup2.rar 23.42 kB · 1 تنزيلات

أشكرك أستاذي على هذا المثال الرائع

.. ليس لدي درايه كافية لتعديله

 

هل تقصد استاذي أنه يعمل على قاعدة الواجهة وقاعدة الجداول المرتبطة بنفس الوقت ؟؟؟

-

[صالح حمادي]

10 ساعات مضت, qathi said:

هل تقصد استاذي أنه يعمل على قاعدة الواجهة وقاعدة الجداول المرتبطة بنفس الوقت ؟؟؟

إذا كنت تريد ضغط قاعدة الخلفية فالمثال الأول يقوم بالمطلوب.

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

[صالح حمادي]

تفضل لقد قمت بالتعديل على الملف ليقوم بضغط الواجهة مباشرة  دون ظهور خيارات أخرى

mas_backup2.mdb