أرجو من الأخوة المشرفين على المنتدى تعديل المثال المرفق على ضغط وإصلاح قاعدة البيانات المرفقة بالمجلد والتى لها كلمة سر
حتى استفيد منه ويستفيد منه الأخوة فى المنتدى
حيث أننى بحثت كثيرا ولم اجد ما أريد
ولكم الشكر والتحية
المثال هو :
مساعدة فى ضغط قاعدة البيانات وإصلاحها
رحت مع الرابط ولكنى لم أفهم شئ
رجاء التعديل على المثال المرفق
تفضل اخي الكريم , المثال بعد التصحيح
والخطأ كان في عدم تغيير اسم الداتابيز وعدم وضع الباسورد في كود الضغط
حاول عندما تأتي بكود جديد ان تحلله وتفهمه , عسى ان يفيدك بمعلومة جديدة او حتى لكي تهيئ الكود للغرض الذي تريد
ولك تحياتي ,,,
تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 21 أكتوبر 2009 في 02:09
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
أنا شاكر للك فضلك على معاونتى فى تصحيح الكود
لكن انت لغيت الباسورد بتاعة قاعدة البيانات عند عمل الضغط والإصلاح
والظاهر انك نسيت تحط الكود الخاص بإرجاع الباسورد مرة أخرى لقاعدة البيانات
ممكن تقولى كود إرجاع الباسورد لقاعدة البيانات بعد إجراء عملية الضغط والإصلاح
وشكرا
أخى العزيز
جزاك الله خيرا
لقد وجدت الحل ولله الحمد
شاكر لك تعاونك معى وأرجو أن تعم الفائدة على الأخوة فى كافة أنحاء المنتدى العزيز
وشكرا لك مرة أخرى
انا اشكرك اخي الكريم , فقبل مشاركتك لم اكن اعرف كيفية تغيير باسورد قاعدة البيانات بالكود
واتضح ان مع ضغط قاعدة البيانات يمكن تعيين باسورد جديد لقاعدة البيانات او تركها بدون باسورد
تم تعديل الكود في المثال مع إمكانية تغيير باسورد القاعدة والكود التالي هو المسئول عن ضغط وتغيير باسورد قاعدة البيانات
Set JRO = New JRO.JetEngine
JRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & OldDatabase_Path & ";Jet Oledb:database password=" & Oldpassword, "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & NewDatabase_Path & ";Jet Oledb:database password=" & Newpassword
Dim JRO As JRO.JetEngine
حيث :
1- OldDatabase_Path : هو مسار قاعدة البيانات قبل الضغط
2- Oldpassword : باسورد قاعدة البيانات القديم
3- NewDatabase_Path : مسار قاعدة البيانات بعد الضغط
4- Newpassword : باسورد قاعدة البيانات المضغوطة
ولك تحياتي ,,,,,
تم تعديل هذه المشاركة بواسطة محمد مصطفي غريب في 21 أكتوبر 2009 في 02:56
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer