29-10-15, 08:09 PM
(آخر تعديل لهذه المشاركة : 03-11-15, 07:33 PM {2} بواسطة hamada salah90.)
السلام عليكم ورحمة الله وبركاته
أريد كود لإضافة عناصر الحقل 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
أريد كود لإضافة عناصر الحقل 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
"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah