احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر

مُساهمة من طرف sendbad101 في الثلاثاء أبريل 19, 2016 4:30 pm

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

احتاج كود بالفجوال بيسك 6  ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر 
بحثت طويلا  في المنتدى ولم اجد ضالتي. 

وشكرا
avatar
sendbad101
.
.

تاريخ التسجيل : 15/04/2016
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر

مُساهمة من طرف أحمد مناع في الثلاثاء أبريل 19, 2016 9:06 pm

هل وجدت ضالتك فى هذا المقال 

http://egy-tech.forumegypt.net/t184-topic

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر

مُساهمة من طرف sendbad101 في الأربعاء أبريل 20, 2016 12:08 am

أحمد مناع كتب:هل وجدت ضالتك فى هذا المقال 

http://egy-tech.forumegypt.net/t184-topic

للاسف  لا     المثال يتعامل مع قاعدة بيانات اكسيس 2003 

احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر.

قاعدة بيانات اكسس 2007

المقال رائع ومفيد جدا  ... بالذات في عمل نسخة احتياطية ...  وقد اطلعت علية سابقاً ....  لكن لم اجد كود ضغط واصلاح قاعدة بيانات اكسس 2007  
 
اتمنى ان تساعدني ... او اي عضوا يملك هذا الكود او يستطيع كتابته ...  فانا في امس الحاجة لهذا الكود .... ربنا يحفظكم
avatar
sendbad101
.
.

تاريخ التسجيل : 15/04/2016
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر

مُساهمة من طرف أحمد مناع في الأربعاء أبريل 20, 2016 9:14 pm

بنفس الخطوات فى المقال السابق ولكن بتغير بسيط فى الكود التالى :


الكود:
 je.CompactDatabase "Data Source=" & App.Path & "\" & DBName & ";", _
                       "Data Source=" & App.Path & "\Backup\Backup.bak;"


الى الكود التالى :

الكود:
 je.CompactDatabase "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\" & DBName & ";Jet OLEDB:Database Password=MYPASSWORD;Jet OLEDB:Engine Type=5", _
                       "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\Backup\Backup.bak;";Jet OLEDB:Engine Type=5"

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم

إن فقدت مكان بذورك التي بذرتها يوما ما سيخبرك المطر أين زرعتها ..لذا إبذر الخير فوق أي أرض وتحت أي سماء ومع أي أحد.. فأنت لا تعلم أين تجده ومتى تجده؟! إزرع جميلا ولو في غير موضعه .... فلا يضيع جميلا أينما زرعا .. فما أجمل العطاء... فقد تجد جزاءه في الدنيا أو يكون لك ذخرا في الآخرة
avatar
أحمد مناع
.
.

تاريخ التسجيل : 15/02/2011
المساهمات : 815
النقاط : 1484
التقيم : 69
الدولة : مصر
الجنس : ذكر

http://egy-tech.forumegypt.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر

مُساهمة من طرف sendbad101 في الخميس أبريل 21, 2016 4:34 pm

تسلم يالغالي الاستاذ / احمد مناع ... ربنا يوفقك في دنياك واخرتك


جاري التجربة ...
avatar
sendbad101
.
.

تاريخ التسجيل : 15/04/2016
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر

مُساهمة من طرف sendbad101 في الإثنين أبريل 25, 2016 10:14 am

تسلم يالغالي الاستاذ / احمد مناع ... ربنا يوفقك في دنياك واخرتك


اشتغل الكود  تمام  100%

الف شكر
avatar
sendbad101
.
.

تاريخ التسجيل : 15/04/2016
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة : السعودية
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر

مُساهمة من طرف abo_maleeka في الأحد أكتوبر 23, 2016 1:20 pm

[ltr]كود ضغط قاعدة البيانات
***********
----------

' *** يجب التأكد من أن قاعدة البيانات مقفلة ***
Dim PassWord As String
'1 - تغيير مؤشر الفأرة
MousePointer = vbHourglass
'إذا كانت قاعدة البيانات محمية بكلمة مرور
'فيجب تضمينها ضمن أمر الضغط
PassWord = "abc123"
'2 - امر ضغط قاعدة البيانات
CompactDatabase "c:\test.mdb", "c:\test.tmp", _
dbLangArabic, , ";pwd=" & PassWord
'3 - حذف الملف الأساسي واستبدالة بالملف المضغوط
Kill "c:\test.mdb"
FileCopy "c:\test.tmp", "c:\test.mdb"
Kill "c:\test.tmp"
'4 - اعادة المؤشر للحالة الطبيعية
MousePointer = vbNormal

)()()()()()()()()()()(

اصلاح قاعدة البيانات
__________________


:' *** يجب التأكد من أن قاعدة البيانات مقفلة ***
'1 - تغيير مؤشر الفأرة
MousePointer = vbHourglass
'2 - امر اصلاح قاعدة البيانات
RepairDatabase "c:\test.mdb"
'3 - اعادة المؤشر للحالة الطبيعية





[/ltr]
avatar
abo_maleeka
.
.

تاريخ التسجيل : 11/10/2016
المساهمات : 2
النقاط : 2
التقيم : 0
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى