تقييم الموضوع :
  • 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 ك ب / التحميلات : 68)
 

"" بارك الله لكل من استفاد و أفاد بعلمه ""
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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [vb6.0] طلب : كود عرض نص معين من قاعدة البيانات وعرضه في label في داتا ريبورت hamada salah90 3 1,561 26-07-21, 06:43 PM
آخر رد: hamada salah90
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 4 3,567 19-03-21, 03:01 AM
آخر رد: mhqom2020
Lightbulb [سؤال] كيفية إيجاد (رقم معين) بعد عدة فواصل محددة أبو خالد الشكري 2 1,529 04-02-21, 02:23 AM
آخر رد: أبو خالد الشكري
  أريد عرض اخر سجل في جدول من قاعدة بيانات أكسس hamada salah90 5 2,844 13-08-20, 02:06 AM
آخر رد: بلدي
  حظر حذف رمز معين داخل مربع النص text hannileo 3 1,963 20-04-20, 01:04 AM
آخر رد: مصمم هاوي
  اظهار نتيجة البحث في اكتيف ريبورت hannileo 0 1,382 20-03-20, 12:54 PM
آخر رد: hannileo
  الطباعة حسب مقاس معين الحزين اوى 2 1,840 05-02-20, 01:30 PM
آخر رد: الحزين اوى
  اظهار عدد السجلات (مشكلة) hannileo 8 3,359 17-09-19, 12:02 PM
آخر رد: hannileo
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 3 3,549 09-08-19, 02:23 AM
آخر رد: princeofislam
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 4 3,876 13-07-19, 03:14 AM
آخر رد: gadr

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


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