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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم قواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=40)
+--- قسم : قسم اسئلة vb6.0 المتعلقة بقواعد البيانات (http://vb4arb.com/vb/forumdisplay.php?fid=72)
+--- الموضوع : ما الخطأفي الكود التالي ado كمبو بوكس (/showthread.php?tid=8544)

الصفحات: 1 2

ما الخطأفي الكود التالي ado كمبو بوكس - المبرمج البسيط - 19-04-13

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


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

ما الخطأفي الكود التالي ado كمبو بوكس - mamas1 - 19-04-13

هل أنت متأكد أن
nameitem هي الحقل و item هي إسم الجدول

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

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


ما الخطأفي الكود التالي ado كمبو بوكس - حريف برمجة - 19-04-13

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

اجعلها هكذا

Combo2.Text

ما الخطأفي الكود التالي ado كمبو بوكس - المبرمج البسيط - 19-04-13

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

ما الخطأفي الكود التالي ado كمبو بوكس - حريف برمجة - 19-04-13

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

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

ما الخطأفي الكود التالي ado كمبو بوكس - @@أبورائد@@ - 20-04-13

كود :
SQL = "SELECT * FROM item WHERE nameitem = '" & Me.Combo2.Text & "' "


ما الخطأفي الكود التالي ado كمبو بوكس - المبرمج البسيط - 20-04-13

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

ما الخطأفي الكود التالي ado كمبو بوكس - VB_Coder - 20-04-13

السلام عليكم

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

- تحياتي .

ما الخطأفي الكود التالي ado كمبو بوكس - المبرمج البسيط - 20-04-13

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




ما الخطأفي الكود التالي ado كمبو بوكس - mamas1 - 20-04-13

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

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