[عبد العزيز البسكري]

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

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

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

تابعت هذا الموضوع بهذا المنتدى العريق .. بهذا الرابط ..

http://vb4arb.com/vb/thread-3182.html

فقلت إن نظام مشروعي ADO لأنّي لا أميّز بين الآدو أو الداوْ .. و أضفت المكتبة المذكورة بالموضوع ..

لكن عند تشغيلي البرنامج و ضغطت على زر الأمر 10 المخصّص لذلك .. زارتني رسالة الخطأ المنتظرة ..

قلت مرة أخرى إن نظام مشروعي إذن DAO .. و أضفت المكتبة اللازمة لذلك ..

فتفاجأت برسالة مفادها أنّي حاولت فتح قاعدة بيانات هي مفتوحة أصلاً بصفة إستثنائية من طرف الأدمن على الجهاز " AZIZ " ..أعد المحاولة عندما تكون قاعدة البيانات متاحة .
كلام كبير على مستوى تجربتي المتواضعة ..
قرّرت ترك الموضوع و كل ما يرتبط به ..
بعدها نظرت بملفات أسئلة الإخوة الأعضاء فوجدت مثالاً للأخويْن الكريميْن " أمير الزّبيدي " و " كنونو " هنا بالمنتدى بقسم الأمثلة و المشاريع .. و أعجبتني كثيرًا طريقة عملهما مثل إضافة ProgressBar .. فوضعت بعض الأكواد منها في الفورم 2 لأني لم أتمكن من التمييز بين الأكواد اللازمة لعمل ذلك .. و تمنيت لو تكون بمشروعي
إخواني الأفاضل أصلحوا قاعدة بياناتي الله يصلح حالكم و حال أولادكم و كل من تحبّون لوجه الله و بجاه هذه الليلة المباركة من ذكرى المولد النبوي الشّريف و التي أهنّئكم بها .. بذكرى مولد خير الخلق كلّهم ..
أستسمح من الأخويْن الغالييْن أمير الزّبيدي و كنونو إستعمال بعض الأكواد التي تكلمت عنها من مشروعه لغرض التعلّم
فائق إحتراماتي

[sendbad100]

مرحبا اخي الكريم

تحتاج توفر شرطين 

الاول قاعدة البينات 2003
الثاني يجب ان لا تكون متصل بها من برنامجك يعني ما  تكون مفتوحة اثناء الضغط والاصلاح مفتوحة 

والله الموفق

[عبد العزيز البسكري]

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

مرحبًا أخي SENDBAD100 .. ألف شكر و بارك الله على التّنوير بهاتيْن الفكرتيْن .. جزاك الله خير الجزاء

1 - كيف أقوم بتحويل قاعدة البيانات إلى 2003

2 - كل التجارب التي أجريتها لم تكن قاعدة البيانات مفتوحة أبدًا

تحياتي

[sendbad100]

يعتبر برنامجك عند تشغيله  قام بفاتح قاعدة

اما قاعدة البينات 2000   يمكن ضغطها بهذا الكود

كنت افكر انك تستخدم 2007

---

عدل الكود كالتالي 

كود :

DB.Close

If DAOCompactDatabase("DOUSSA.mdb", "") Then


Form2.Show

Call Form_Load
MsgBox "Êã ÖÛØ æÅÕáÇÍ ÞÇÚÏÉ ÇáÈíÇäÇÊ ÈäÌÇÍ"

End If

End Sub

[عبد العزيز البسكري]

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

أخي الغالي .. سأرسل لك ملفا قمت بإضافة سطرًا عليه و هو :

If DB.State = 1 Then DB.Close

واشتغل الأمر عادي .. لم تظهر رسالة الخطأ بأنّ القاعدة مفتوحة ..

هل صحيح أنّ قاعدة البيانات تم فعلاً ضغطها و إصلاحها أم مجرّد كود كأي كود إشتغل و السّلام

ما أرجوه منك الآن فضلا  لا أمرًا و من كل الإخوة الكرام ممّنْ يمكنه المساعدة و هو إضافة الفورم 2 للمشروع ليصبح الكود يعمل مع ال ProgressBar .. مثل الأعمال الجميله التي رأيتها ..

[b]تحياتي أخي
ملاحظة : تزامنت مشاركتك مع مشاركتي لم أنتبه لكودك إلاّ بعدما أرسلت مشاركتي ..نعم وهو تمام نفس السطر الذي تمت إضافته[/b]

[sendbad100]

اعتقد الكود ناقص  لا يقوم بالضغط  اولا 

ثانيا  بعد اغلاق  DB.Close يجب اعادة الاتصال مرة اخرى

[عبد العزيز البسكري]

أخي الفاضل سأرسل لك ملف بالمرفقات لأستاذنا الغائب الحاضر بقلوبنا " أمير الزبيدي " حول ضغط و إصلاح قواعد البيانات ..
أيضا لو تكرّمت فضلاً منك لا أمرًا بمشاهدة هذا الموضوع بقسم الأمثلة و المشاريع ..
http://vb4arb.com/vb/thread-18269.html
إحتراماتي

[sendbad100]

انظ الى هذا الشرح  
وايضا الملف موجود بالمرفقات  لم يسعني التسجيل في المنتدى وتحميل المرفق

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

---

(11-12-16, 11:18 PM)عبد العزيز البسكري كتب :

أخي الفاضل سأرسل لك ملف بالمرفقات لأستاذنا الغائب الحاضر بقلوبنا " أمير الزبيدي " حول ضغط و إصلاح قواعد البيانات ..
أيضا لو تكرّمت فضلاً منك لا أمرًا بمشاهدة هذا الموضوع بقسم الأمثلة و المشاريع ..
http://vb4arb.com/vb/thread-18269.html
إحتراماتي

حاولت مساعدة من قبل تذكيري لكن مشروعة ربما يحتاج وقت طويل  بنسبة لي  ---- ليس لدي الوقت لذلك   اتمنى ان يجد من يساعدة

[عبد العزيز البسكري]

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

رأيت الشّرح و سجّلت باسم " عبد العزيز البسكري " .. لكني لم أتمكن من  الحل المناسب

تفضّل الملف حمّلته من ذاك الرابط

إحتراماتي

[عبد العزيز البسكري]

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

إخواني الأكارم .. قمت بنقل بعض الأكواد من الملفين المذكورين بالمشاركة الأولى واشتغل ال ProgressBar بطريقة عاديّة

و تخبرني الرسالة انّه تمّ ضغط و إصلاح قاعدة البيانات لكن الغريب أنّه لم تسجّل أي كتابة داخل تاكسات الفورم 2 ..

إليكم الملف لو تكرّمتم بإلقاء نظرة عليه إذا سمح وقتكم بذلك