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

الرجاء تصحيح هذا الكود

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

الكود التالي يعمل بشكل صحيح

Call RSTemp.Open("SELECT val(V) FROM Table WHERE val©='" & Val(Me.text2.Text) & "' GROUP BY val(V)", MYConnection, adOpenStatic, adLockOptimistic)

ومعناه ابحث عن القيمة في العمود V في الجدول Table إذا كانت القيمة في العمود C تساوي القيمة التي في التيكست بوكس 2

ولقد حاولت إضافة شرط آخر وهو

ابحث عن القيمة في العمود V في الجدول Table إذا كانت القيمة في العمود C تساوي القيمة التي في التيكست بوكس 1, وإذا كانت أيضا القيمة في العمود B تساوي التي في التيكست بوكس 1

فقمت بكتابة الكود التالي

Call RSTemp.Open("SELECT val(V) FROM Table WHERE val©='" & Val(Me.text2.Text) & "'& B='" & Me.text1.Text & "' GROUP BY val(V)", MYConnection, adOpenStatic, adLockOptimistic)

ولكن للأسف لا تظهر نتائج

أرجو التعديل

إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]

#2

السلام عليكم

ليتك ترفع النموذج وإن شاء الله تجد ما يسرك

فاعلم أنه لا إله إلا الله

#3

المرفق

2.rar

إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]

#4

المشكلة هنا:

& B

والصحيح في لغة SQL هو:

And B

بحيث تصبح الجملة:

Call RSTemp.Open("SELECT val(V) FROM info WHERE val(C)='" & Val(Me.lstC.Text) & "' AND  B='" & Me.lstB.Text & "' GROUP BY val(V)", MYConnection, adOpenStatic, adLockOptimistic)

هذه الجملة خاطئة  :wacko: 


#5

فعلاً يا أخي

شكرا جزيلاً

إلى متى نظل عاجزين عن الإبداع في عالم البرمجة[وسط][/وسط]

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