+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+--- الموضوع : [vb6.0] طلب : كود لإضافة عناصر حقل معين من جدول في كومبو بوكس مع عدم اظهار القيم المكررة إلا (/showthread.php?tid=13649)
طلب : كود لإضافة عناصر حقل معين من جدول في كومبو بوكس مع عدم اظهار القيم المكررة إلا - hamada salah90 - 29-10-15
السلام عليكم ورحمة الله وبركاته
أريد كود لإضافة عناصر الحقل Degree
من الجدول EMPL
من قاعدة البيانات GG.mdb
لإظهار هذه القيم في الكومبو بوكس COMBO1
هذا هو الكود الذي استخدمه أنا
ولكن تظهر القيم المكررة
أرجو التعديل على الملف المرفق
dim dbADODB As New adodb.Connection
dim rsEMPL As New adodb.Recordset
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select * from EMPL ", dbADODB, adOpenKeyset, adLockOptimistic
COMBO1.Clear
Do While Not rsEMPL.EOF
COMBO1.AddItem rsEMPL.Fields("Degree").Value
rsEMPL.MoveNext
Loop
RE: طلب : كود لإضافة عناصر حقل معين من جدول في كومبو بوكس مع عدم اظهار القيم المكررة إلا - Ahmed_Mansoor - 29-10-15
أهلا أخي الكريم :
كود :
dim dbADODB As New adodb.Connection
dim rsEMPL As New adodb.Recordset
If dbADODB.State = adStateOpen Then dbADODB.Close
dbADODB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & App.Path & "\GG.mdb" & ";"
rsEMPL.Open "select DISTINCT Degree from EMPL", dbADODB, adOpenKeyset, adLockOptimistic
COMBO1.Clear
Do While Not rsEMPL.EOF
COMBO1.AddItem rsEMPL.Fields("Degree").Value
rsEMPL.MoveNext
LoopRE: طلب : كود لإضافة عناصر حقل معين من جدول في كومبو بوكس مع عدم اظهار القيم المكررة إلا - hamada salah90 - 29-10-15
شكرا حبيبي