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

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

اذهب الى الأسفل

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

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

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

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

وشكرا
sendbad101
sendbad101
.
.

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

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

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

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

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

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

https://egy-tech.forumegypt.net

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

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

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

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

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

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

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

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

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

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

احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر Empty رد: احتاج كود بالفجوال بيسك 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"

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

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

https://egy-tech.forumegypt.net

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

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

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

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


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

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

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

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

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

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


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

الف شكر
sendbad101
sendbad101
.
.

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

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

احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر Empty رد: احتاج كود بالفجوال بيسك 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]
abo_maleeka
abo_maleeka
.
.

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

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

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


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