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

طلب مساعدة في datacombo

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

السلام عليكم أخواني :

أرجو مساعدتي في التالي: تعديل الكود المتعلق بربط الداتا كومبو بحقل معين بحيث إذا ضغطت على العنصر الموجود في الكومبو

يظهر مايقابله في السجل في التكست

مع شويه شرح للخطأ الموجود في المثال.

ومشكورين مقدماً.

datacombo.rar

#2

أخي الغالي

أولا الخطأ الأساسي عندك في جملة SELECT

في الحدث DataCombo1_Click

انت تكتبها هكذا

"SELECT * FROM table1 WHERE we=" & Trim(DataCombo1.Text) & ""

والجملة الصحيحة هكذا

"SELECT * FROM table1 WHERE we='" & Trim(DataCombo1.Text) & "'"

والأختلاف هو وضع قيمة

Trim(DataCombo1.Text)

مابين علمتين تنصيص

بنحط العلامة '

قبل وبعد القيمة اللي هانبحث عنها في جملة ال SQL لو كانت قيمة نصية يعني حروف وكلمات

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

اما بالنسبة للخطأ الأصغر هو انك تركت DataCombo1 مكتوب بها كلمة DataCombo1 في خاصية Text

وطبعا ده بيعمل معاك خطأ في التنفيذ للحدث DataCombo1_Click

وكمان يعتبر خطأ في التصميم لأنك بتعرض كلمة غريبة على المستخدم ومش موجودة في قاعدة البيانات

وممكن لتلافي المشكلة دي انك تشيل الكلمة دي من الخاصية Text لل DataCombo1

او كمان تضيف On Error Resume Next

في بداية الحدث DataCombo1_Click

أتمنى أن اكون وفقت في إجابتك وسامحني لو في أي تقصير أو سهو

zsO56863.jpg
#3

كفيت ووفيت وألف شكر

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

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