تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[vb6.0] طلب : كود لإضافة عناصر حقل معين من جدول في كومبو بوكس مع عدم اظهار القيم المكررة إلا
#1
السلام عليكم ورحمة الله وبركاته

أريد كود لإضافة عناصر الحقل Degree

من الجدول EMPL

من قاعدة البيانات GG.mdb

لإظهار هذه القيم في الكومبو بوكس COMBO1



هذا هو الكود الذي استخدمه أنا
ولكن تظهر القيم المكررة

Smile Smile

أرجو التعديل على الملف المرفق

Smile Smile Smile
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


الملفات المرفقة
.zip   DBL_NAME_mdb.zip (الحجم : 9.34 ك ب / التحميلات : 24)
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة:
#2
أهلا أخي الكريم :

كود :
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
Loop
الرد }}}}
تم الشكر بواسطة: hamada salah90
#3
شكرا حبيبي Smile
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
hamada salah
الرد }}}}
تم الشكر بواسطة: Ahmed_Mansoor


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال بخصوصو عدد الصفوف في جدول mshflexgrid haniblack 4 76 30-11-16, 03:11 PM
آخر رد: haniblack
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 2 83 26-11-16, 01:17 AM
آخر رد: NOOOR
  [سؤال] مطلوب كود يعمل على اظهار الخلايا ذات قيمة فقط mohamedcma 3 86 17-11-16, 04:54 PM
آخر رد: Amir_alzubidy
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 2 109 11-10-16, 04:20 PM
آخر رد: haniblack
  كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت engabuhema 1 152 31-07-16, 01:34 PM
آخر رد: ahmedabdelaliem
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 3 198 01-07-16, 04:10 PM
آخر رد: gedo
  سؤال فى الكومبو بوكس ahmed_egypt 0 102 24-06-16, 01:15 AM
آخر رد: ahmed_egypt
  [vb6.0] المساعدة فى ربط كمبوبوكس لحقل بتكيست بوكس لحقل اخر ابراهيم حورس 6 236 14-06-16, 08:26 PM
آخر رد: ابراهيم حورس
  كيف يتم جمع وقت بترتيب معين ؟ gedo 5 176 04-06-16, 01:54 AM
آخر رد: Ahmed_Mansoor
  أرجو المساعدة .. اظهار رسالة انتهاء التاريخ قبل مدة محددة haniblack 2 409 15-02-16, 09:35 AM
آخر رد: haniblack

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم