الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

أين الخطأ في هذا المشروع

مغلق
بدأه toyoki في 4 نوفمبر 2007 · 6 رد · 724 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

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

مع أن الكود صحيح ولكن بدون فائدة أرجو المساعدة و الله أنا محتاج له ضروري

لقد أرفقت لكم المشروع لتعديل عليه

جازاكم الله خيرا

Projet.rar

pic_2005-07-12_185744.jpg
#3

حمل المشروع ستجده هناك

شرح الازرار

َاضافة Ajouter

Modifier تعديل

حذف Supprimer

pic_2005-07-12_185744.jpg
#4

الحقيقة أخي , انا حاولت معه الآن لكن قاعدة البيانات مش عندي

بعدين كما ذكرت , يجب انك توضح وظيفة البرنامج , ووظيفة الأزرار اللي فيها المشكلة .

وانت عارف ان الفاجوال بيزك لما بيحصل خطأ في البرنامج ويطلع لك رسالة الخطأ يقوم بتظليل جملة الخطأ باللون الأصفر , فيرجى ذكر ما هي

إلخ من المعلومات أخي , وبالذات ان البرنامج مش عربي أو انجليزي

شكرا

اقتباس
If A is success in life, then A equals x plus y plus z. Work is x; y is play; and z is keeping your mouth shut

Albert Einstein

مدخل إلى برمجة وتصميم الألعاب : كيف أبدأ ؟

#5

المشكلة هي في زر الاضافة (Ajouter)

و زر الحذف (Supprimer)

و زر التعديل (Modifier)

استعملت جميع الاكواد دون جدوى

الاكواد التي استعملتها

Data1.Recordset.addnew

واستعملت أيضا

With Data1.Recordset

.AddNew

!Referance = Text1

!Désignation = Text2

.Update

End With

Data1.Refresh

ولكن دون جدوى أرجو المساعدة

جازاك الله خيرا

pic_2005-07-12_185744.jpg
#6

لقد قمت بالتعديل على مشروعك وارفقت النسخة المعدلة وإليك ما قمت به:

*-تعديل خصائص الـ(Data Control) التالية:

Connect=Access

RecordSource=Bloca

حيث أنه كانتا هاتين الخاصيتين تحملان قيما أخرى

*-استبعاد الكائنين (RS,DB) وكل ما يتعلق بهما في البرنامج لعدم الحاجة لهما

حيث قمتُ بوضع علامة التعليق أمام تلك الشفرات,لإتاحة المقارنة مع ما تم إستبداله.

لأنه لا داعي لاستخدام أداة وصول أخرى(ADO) بما أنك قد أستخدمت أداة تحكم البيانات(Data Control)

وذلك لعدم التشعب والخلط!!!!!

*-الأهم في ذلك, أنني قد قمت بإضافة زر أسميته(NEW)وكتبت في حدث النقر الخاص به الكود:

Data1.Recordset.AddNew

أما حدث النقر على الزر(Ajouter) فلا يحتوي إلا على الكود التالي:

Data1.Recordset.Update

**-وبالتالي عندما تريد أن تضيف سجلاً جديدا قم بالنقر على زر(NEW)

لتلاحظ أنه قد تم تفريغ مربعات النصوص, عند ذلك قم بإدخال البيانات الجديدة

ثم انقر على زر(Ajouter) ليتم الحفظ.

وهذا الأسلوب معتمدفي قواعد بيانات ميكروسوفت وغيرها......!!

نقطة أخيرة : لقد قمت بزيادة حجم الحقل() إلى 80 لأني لاحظت أن هناك عنوان

قمت انت بكتابته يحتوي على اكثر من خمسين حرف, وكان قد تسبب بخطأ لذلك قمت بهذا التعديل.

لأي استفسار على الإميل:

FaresNet22@hotmail.com

فارس واصل...

Project.zip

FaresXyZ

#7

بارك الله فيك أخي faresxyz وزادك من نعيمه

pic_2005-07-12_185744.jpg

هذا الموضوع مغلق.

مواضيع مشابهة