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

السلام عليكم ورحمة الله وبركاته

أريد كود لإضافة عناصر الحقل 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

أهلا أخي الكريم :

شكرا حبيبي