احتاج كود بالفجوال بيسك 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
الخميس أبريل 25, 2024 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
الخميس أبريل 25, 2024 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft