منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - ما الخطأفي الكود التالي ado كمبو بوكس

عند الضغط على الكمبو بوكس
لأضهار النتائج في التيكست
يحصل هذا الخطأ

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

هل أنت متأكد أن

nameitem هي الحقل و item هي إسم الجدول

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

أو حاول أن ترفق برنامج مصغر إن شاء الله نشوف الحل
لو أمكن تعطينا صورة للخطأ

SQL = "select * from item where nameitem = '" & Combo2 & ""

اجعلها هكذا

Combo2.Text

نفس المشكله يا اخوان

المبرمج البسيط كتب :نفس المشكله يا اخوان

طيب ارفع مثالك نعدل عليه ...

كود :

SQL = "SELECT * FROM item WHERE nameitem = '" & Me.Combo2.Text & "' "

نفس المشكله اخ ابو رائد

السلام عليكم

- في البداية تأكد من أن نوعالحقل 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

- تحياتي .

نفس المشكله
هذا الخطأ

يا أخي تأكد من أنك قمت بوضع كود الإتصال بالنسبة للكائن db قبل وضع هذا الإستعلام

أرفق مشروعك أفضل

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

المبرمج البسيط

mamas1

حريف برمجة

المبرمج البسيط

حريف برمجة

@@أبورائد@@

المبرمج البسيط

VB_Coder

المبرمج البسيط

mamas1