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

مشكلة في ربط Label مع Combobox يقرأ من قاعدة بيانات اكسيس

بدأه الأسد المصري في 29 مارس 2008 · 8 رد · 1,162 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

لدى مشكلة بسيطة في مشروع فيجوال بيزك ،

لدي combobox قمت بربطه بقاعدة بيانات، ويقرأ محتويات حقل كامل في جدول ما،

واريد عندما اختار عنصر من القائمة (الكومبو) يعرض لي فى label العنصر الذي يقابله في حقل اخر ،، بمعنى

نفترض مثلا ان لدي قاعدة بيانات بها جدول Companies به حقل لاسماء شركات CompName وحقل اخر به وصف الشركة CompDescription، ووضعت اسماء الشركات في كومبو بنجاح في الخطوة الاولى، والان اريد عندما يختار احد اسم شركة يظهر في label بجانب الكومبو وصف الشركة

اظن ان المطلوب وضع هذه الجملة : SELECT ComDescription FROM Companies WHERE ComName = x

بحيث اعرف x كنص واضع فيها قيمة الاختيار من الكومبو

السؤال : اين اضع هذه الجملة ؟؟؟؟؟

مرفق مثال بسيط لنموذج للمشكلة باستخدام قاعدة بيانات northwind الشهيرة، ارجو ان امكن حل المشكلة على هذا المثال البسيط

وشكرا لكم

problem.rar

#2

الأخ الكريم ، من الطبيعي عن تعبة الكومبو تقم بتعبئة الـ List و ItemData !!!

المصفوفة ItemData يمكننا تخزين قيمة المفتاح الرئيسي خصوصاً إذا كان غير متكرر !!!

بعد ذلك في حدث Click أو Last Focos أو Validate أو حسب متطلباتك قم بإدراج جملة الإستعلام التالية :

Select ComDescription From Companies Where ComName = Combo1.ItemData(Combo1.ListIndex)

وبعد ذلك تعرض القيمة في Lable كما تشاء

شكراً

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#3

جرب هذا المثال اللي هنا

http://www.0tma.net/forums/index.php?showtopic=82

سجل ايميلك هنا

googlejb5.gif ليصلك كل ما هو مفيد في عالم البرمجة
#4

عفوا يا اخى البرنامج لا يعمل

ارجو ان امكن الرد في نفس البرنامج المرفق لافهم الشرح

#5

تفضل أخي مثال بإستخدام ADO

tt.rar

فلسطين .. سوريا ..بورما ......وماذا بعد ؟!

سابقا

medo_programming

موقعي : www.alkhayat-it.com

مواضيع مهمه

-----------------------------------------------:

تعلم كل شىء عن الTriggers

#6

شكرا جزيلا اخي medo_Programming على الاهتمام، بالفعل هذا ما كنت اقصد والبرنامج يعمل جيدا

(هناك استفسار بسيط, حين قمت بتقليد نفس الفكرة على نموذج اخر خرجت رسالة "user defines type not found" ، وذلك بالاشارة الى تعريف ال ADODB، على الرغم من ان البرنامج الذي ارفقته يعمل بكود مشابه وعلى نفس نسخة الفيجوال بيزك ! )

وشكرا لك مرة اخرى على المساعدة

وشكراً للاخوة MMA_EG_Cairo و HnHn على الاهتمام والرد

#7

الان البرنامج الخاص بالاخ HnHn يعمل ايضا

الاحظ انه عند استخدام الجملة : Public Db As New

تظهر الاختيارات ومنها ADODB

ولكن عند المحاولة في مثال اخر لا يظهر لي في القائمة هذا الاختيار، وحين اكتبها بنفسي يظهر لى البرنامج نفس رسالة الخطأ : user defines type not found ويقف المؤشر عند تعريف Public Db As New ADODB.Connection

#8

اخى ينقص برنامجك متكبه التى تريد العنيل عليها فعليك اختيار مكتبة الادو اذا من هنا

الصوره توضح

http://vb4arab.com/vb/uploaded/10372/01207225007.gif

اذاكانت فى مشكله فاذهب الى الrefracese من خلال roject

بالتوفيق

تم تعديل هذه المشاركة بواسطة wael abed في 3 أبريل 2008 في 15:11

00
 

فاضى 

 

00

#9

أخي تأكد من إضافتك لمكتبة الادو ( ADo ) للمشروع

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

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…