احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1 • شاطر
احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
السلام عليكم ورحمة الله وبركاتة
احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
بحثت طويلا في المنتدى ولم اجد ضالتي.
وشكرا
احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
بحثت طويلا في المنتدى ولم اجد ضالتي.
وشكرا
sendbad101- .
- تاريخ التسجيل : 15/04/2016
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة :
الجنس :
رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
أحمد مناع كتب:هل وجدت ضالتك فى هذا المقال
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
للاسف لا المثال يتعامل مع قاعدة بيانات اكسيس 2003
احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر.
قاعدة بيانات اكسس 2007
المقال رائع ومفيد جدا ... بالذات في عمل نسخة احتياطية ... وقد اطلعت علية سابقاً .... لكن لم اجد كود ضغط واصلاح قاعدة بيانات اكسس 2007
اتمنى ان تساعدني ... او اي عضوا يملك هذا الكود او يستطيع كتابته ... فانا في امس الحاجة لهذا الكود .... ربنا يحفظكم
sendbad101- .
- تاريخ التسجيل : 15/04/2016
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة :
الجنس :
رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
بنفس الخطوات فى المقال السابق ولكن بتغير بسيط فى الكود التالى :
الى الكود التالى :
- الكود:
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"
ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
سبحان الله وبحمدة .....سبحان الله العظيم
رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
تسلم يالغالي الاستاذ / احمد مناع ... ربنا يوفقك في دنياك واخرتك
جاري التجربة ...
جاري التجربة ...
sendbad101- .
- تاريخ التسجيل : 15/04/2016
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة :
الجنس :
رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
تسلم يالغالي الاستاذ / احمد مناع ... ربنا يوفقك في دنياك واخرتك
اشتغل الكود تمام 100%
الف شكر
اشتغل الكود تمام 100%
الف شكر
sendbad101- .
- تاريخ التسجيل : 15/04/2016
المساهمات : 4
النقاط : 6
التقيم : 0
الدولة :
الجنس :
رد: احتاج كود بالفجوال بيسك 6 ل ضغط واصلاح قاعدة بيانات اكسس 2007 محمية بكلمة سر
[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]
***********
----------
' *** يجب التأكد من أن قاعدة البيانات مقفلة ***
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- .
- تاريخ التسجيل : 11/10/2016
المساهمات : 2
النقاط : 2
التقيم : 0
الدولة :
الجنس :
| |
منتدى مصر التقني :: قسم لغات البرمجة Programming languages :: فجوال بيسك 6 vb :: قسم نقاش و أستفسارات الاعضاء
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد
» افضل فني كهربائي منازل بالرياض جودة 100% | اتصل الآن
الأحد مارس 17, 2024 12:36 pm من طرف رانيا حماد