+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : ارجو المساعدة في combo (/showthread.php?tid=9663)
ارجو المساعدة في combo - علوش - 18-07-13
لدي كومبو بكس اريد كود لملى بيانات الجدول في الكومبو بكس
الربط ado
ارجو المساعدة في combo - علوش - 18-07-13
جربت هذا الكود ولاكن يعطيني اول سجل في قاعدة البيانات
If rs.State = 1 Then rs.Close
rs.Open "select * from mored ", DB, adOpenStatic, adLockPessimistic
If rs.RecordCount > 0 Then
Combo2.AddItem rs!Namee
ارجو المساعدة في combo - ax-ooo-xa - 18-07-13
علوش كتب :لدي كومبو بكس اريد كود لملى بيانات الجدول في الكومبو بكس
الربط ado
جرب الكود هذا
PHP كود :
If rs.State = 1 Then rs.Close
rs.Open "select * from mored ", DB, adOpenStatic, adLockPessimistic
If rs.RecordCount > 0 Then
rs.MoveFirst
For i = 0 To rs.RecordCount
Combo2.AddItem rs!Namee
rs.MoveNext
Next
end if
ارجو المساعدة في combo - علوش - 18-07-13
اخوي الله يعطيك العافية ولاكن اعطاني اول سجل في ثاعدة البيانات مكرر اربع مرات
ارجو المساعدة في combo - ax-ooo-xa - 18-07-13
ممكن ترفع برنامجك
ارجو المساعدة في combo - حريف برمجة - 18-07-13
تعديل كود الأخ :
كود :
If rs.State = 1 Then rs.Close
rs.Open "select * from mored ", DB, adOpenStatic, adLockPessimistic
If rs.RecordCount > 0 Then
For i = 0 To rs.RecordCount
Combo2.AddItem rs!Namee
rs.MoveNext
Next
end ifارجو المساعدة في combo - علوش - 18-07-13
اشكرك اخوي الكود اشتغل تمام