تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما الخطأفي الكود التالي ado كمبو بوكس
#1
عند الضغط على الكمبو بوكس
لأضهار النتائج في التيكست
يحصل هذا الخطأ


Private Sub Combo2_Click()
If RS.State = 1 Then RS.Close
SQL = "select * from item where nameitem = '" & Combo2 & ""
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic <------- هنا الخطأ
If RS.EOF = False Then

Text2.Text = RS!prins
Text5.Text = RS!num
End If
RS.Close
Set RS = Nothing

End Sub
الرد }}}
تم الشكر بواسطة:
#2
هل أنت متأكد أن
nameitem هي الحقل و item هي إسم الجدول

إذا كان كذلك أنصحك أن تضع
nameitem هكذا [nameitem]

أو حاول أن ترفق برنامج مصغر إن شاء الله نشوف الحل
لو أمكن تعطينا صورة للخطأ
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة:
#3
SQL = "select * from item where nameitem = '" & Combo2 & ""

اجعلها هكذا

Combo2.Text
الرد }}}
تم الشكر بواسطة:
#4
نفس المشكله يا اخوان
الرد }}}
تم الشكر بواسطة:
#5
المبرمج البسيط كتب :نفس المشكله يا اخوان

طيب ارفع مثالك نعدل عليه ...
الرد }}}
تم الشكر بواسطة:
#6
كود :
SQL = "SELECT * FROM item WHERE nameitem = '" & Me.Combo2.Text & "' "
الرد }}}
تم الشكر بواسطة:
#7
نفس المشكله اخ ابو رائد
الرد }}}
تم الشكر بواسطة:
#8
السلام عليكم

- في البداية تأكد من أن نوعالحقل nameitem نصي , ثم جرب هذا التعديل :

كود :
Private Sub Combo2_Click()

If RS.State = 1 Then RS.Close
SQL = "select * from item where nameitem ='" & Trim$(Combo2.Text) & "'"
RS.Open SQL, DB, adOpenDynamic, adLockOptimistic

If RS.RecordCount > 0 Then
   If Not IsNull(RS!prins) Then Text2.Text = RS!prins Else Text2.Text = "0"
   If Not IsNull(RS!num) Then Text5.Text = RS!num Else Text5.Text = "0"
Else
   Text2.Text = "0"
   Text5.Text = "0"
End If
If RS.State = 1 Then RS.Close

End Sub

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#9
نفس المشكله
هذا الخطأ


الرد }}}
تم الشكر بواسطة:
#10
يا أخي تأكد من أنك قمت بوضع كود الإتصال بالنسبة للكائن db قبل وضع هذا الإستعلام

أرفق مشروعك أفضل
منقطع .. للدراسة Confused
الرد }}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم