+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : تعبئة بيانات الكومبوكس من جدول SQLSERVER (/showthread.php?tid=27835)
تعبئة بيانات الكومبوكس من جدول SQLSERVER - مصمم هاوي - 09-12-18
السلام عليكم ورحمة الله وبركاته
الأساتذة الكرام
هذا مثال صغير أرجو منكم تعبئة الكومبوكس من جدول قاعدة بيانات SQL_SERVER
RE: تعبئة بيانات الكومبوكس من جدول SQLSERVER - مصمم هاوي - 09-12-18
بارك الله فيكم تم حل المشكلة عن طريق هذا الكود
كود :
ComboJOP.Clear
If Cn.State = 1 Then Cn.Close
Call MyConnection
If Rs.State = 1 Then Rs.Close
Rs.Open "SELECT * FROM Tab_jop", Cn, adOpenKeyset, adLockOptimistic
If Rs.RecordCount > 0 Then
Do Until Rs.EOF
ComboJOP.AddItem Rs![jOP]
Rs.MoveNext
Loop
'
Rs.MoveFirst
'
ComboJOP.Text = ComboJOP.List(0)
End If