هل يمكن إنشاء ماكرو لضغط و صيانة قاعدة البيانات

[صالح حمادي]

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

هل يمكن إنشاء ماكرو لضغط و صيانة قاعدة بيانات

كيف يمكن إنشاء كود لضغط و صيانة قاعدة بيانات من داخل قاعدة بيانات أخرى

[jjafferr]

لماذا تريد ان تقوم بهذا العمل؟

 

جعفر

[صالح حمادي]

أنا أريد إنشاء برنامج و أجعل قاعدة البيانات منفصلة على البرنامج.

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

تم تعديل ديسمبر 13, 2016 بواسطه صالح حمادي

[jjafferr]

تفضل انظر في هذا الرابط:

.

جعفر

[ابو جودي]

جرب المرفق ده 
 

compact_repair.rar

[jjafferr]

8 ساعات مضت, ابا جودى said:

جرب المرفق ده 

compact_repair.rar

السلام عليكم أخي محمد

 

في حلول ، والاهم ، في مناقشة ومعلومات حلوه في الرابط اللي انا ارفقته ، فياريت تأخذ نظره هناك

 

جعفر

[صالح حمادي]

13 ساعات مضت, jjafferr said:

تفضل انظر في هذا الرابط:

.

ما شاء الله حوار مثمر و ممتاز أغلب الأسئلة التي تدور في ذهني وجدتها في هذا الحوار و الله يا أستاذ جعفر لا أستطيع أن أرد لك جميلك إلا بالدعاء لك بالخير

9 ساعات مضت, ابا جودى said:

جرب المرفق ده 
 

compact_repair.rar

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

[صالح حمادي]

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

DBEngine.CompactDatabase "e:\100.mdb", "f:\100.mdb", dbLangGeneral, dbEncrypt

لكن المشكل لا يعمل على قواعد البيانات 2007 و  2010 إمتداد accdb

[jjafferr]

 

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

لكن المشكل لا يعمل على قواعد البيانات 2007 و  2010 إمتداد accdb

هذا الرابط فيه الكود للعمل الذي تريده

http://stackoverflow.com/a/3133849

 

ولكن ما رايك في برنامج جاهز ، تقوم  بادخال قواعد البيانات ، وهو يقوم بالعمل

http://www.peterssoftware.com/cal.htm

 

جعفر

[صالح حمادي]

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

FileCopy "f:\100.accdb", "e:\100.accdb"
Kill "f:\100.accdb"
Set acc2007 = CreateObject("DAO.DBEngine.36")
acc2007.CompactDatabase "e:\100.accdb", "f:\100.accdb", Nothing, Nothing
Set acc2007 = Nothing
Kill "e:\100.accdb"
MsgBox "لقد إنتهت المهمة بنجاح"
Quit

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

[jjafferr]

وعليكم السلام أخي صالح

 

اعتذر منك على التأخر في الرد

ردا على سؤالك: ما دام الكود شغال عندك وبدون مشاكل ، فعلى بركة الله

ولكن رأيي هو ان تجعل الكود يعمل بالطريقة التالية:

1. ان تجعل الكود يتعرف على نسخة الاكسس التي تُستعمل الان (2003 او 2007 او... ) ،

2. على اساس النسخة ، يقول الكود بإستخدام الكود المناسب ،

3. بهذه الطريقة يكون الكود عام لجميع اصدارات الاكسس

 

جعفر

[co2002co]

في 12/14/2016 at 14:32, jjafferr said:

ولكن ما رايك في برنامج جاهز ، تقوم  بادخال قواعد البيانات ، وهو يقوم بالعمل

http://www.peterssoftware.com/cal.htm

واااااااااااااااااااااااااااااااااااااااااااااو

جد رهيبه القاعده

من 36 ميقا الى 5

 

 

تشكررررررررررررررات

[صالح حمادي]

في 25‏/12‏/2016 at 09:40, jjafferr said:

وعليكم السلام أخي صالح

 

اعتذر منك على التأخر في الرد

ردا على سؤالك: ما دام الكود شغال عندك وبدون مشاكل ، فعلى بركة الله

ولكن رأيي هو ان تجعل الكود يعمل بالطريقة التالية:

1. ان تجعل الكود يتعرف على نسخة الاكسس التي تُستعمل الان (2003 او 2007 او... ) ،

2. على اساس النسخة ، يقول الكود بإستخدام الكود المناسب ،

3. بهذه الطريقة يكون الكود عام لجميع اصدارات الاكسس

مرحبا بك أستاذ جعفر

أفكارك ممتازة و لهذا نحن نعتز بمداخلاتك معنا بارك الله لك و عليك و جعل مثواك الجنة إن شاء الله

 

[jjafferr]

4 ساعات مضت, صالح حمادي said:

مرحبا بك أستاذ جعفر

أفكارك ممتازة و لهذا نحن نعتز بمداخلاتك معنا بارك الله لك و عليك و جعل مثواك الجنة إن شاء الله

حياك الله أخوي صالح

 

5 ساعات مضت, co2002co said:

في 12/14/2016 at 15:32, jjafferr said:

ولكن ما رايك في برنامج جاهز ، تقوم  بادخال قواعد البيانات ، وهو يقوم بالعمل

http://www.peterssoftware.com/cal.htm

واااااااااااااااااااااااااااااااااااااااااااااو

جد رهيبه القاعده

من 36 ميقا الى 5

وحياك الله أخوي بدر

 

والميزة الموجودة في هذا البرنامج ، هو انك تستطيع ان تجعل البرنامج يشتغل:

1. بأمر من سطح المكتب والبرنامج مغلق ، حيث تعطي الامر من Commandline بفتح الاكسس على الماكرو Execute مباشرة ، 

او 2. بأمر من اي من برامج الاكسس ،

او 3. تستطيع ان تضع وقت معين في Windows Schedule ، بحيث يشغل البرنامج في وقت معين ، تلقائيا ، كل يوم

بس اولا يجب تعديل الماكرو Execute في البرنامج اعلاه ، حتى يغلق البرنامج تلقائيا بعد الانتهاء من عمله

 

جعفر