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

"" بارك الله لكل من استفاد و أفاد بعلمه ""
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] كيف نجلب بيانات الى لست فيو بدلا عن لست بوكس tempman 2 273 16-02-17, 03:30 PM
آخر رد: tempman
  سؤال بخصوصو عدد الصفوف في جدول mshflexgrid haniblack 4 459 30-11-16, 03:11 PM
آخر رد: haniblack
  [سؤال] استفسار كيفية الدمج بين اكثر من جدول NOOOR 2 432 26-11-16, 01:17 AM
آخر رد: NOOOR
  [سؤال] مطلوب كود يعمل على اظهار الخلايا ذات قيمة فقط mohamedcma 3 314 17-11-16, 04:54 PM
آخر رد: Amir_alzubidy
  تغيير محتويات الصف بالكامل في جدول قاعدة البيانات haniblack 2 441 11-10-16, 04:20 PM
آخر رد: haniblack
  كيفية تحديث بيانات جدول داخل قاعدة بيانات SQL Server عن طريق الإنترنت engabuhema 1 449 31-07-16, 01:34 PM
آخر رد: ahmedabdelaliem
  كيفية جمع الكمية وحذف السطور المكررة فى Msflexgrid ؟ gedo 3 493 01-07-16, 04:10 PM
آخر رد: gedo
  سؤال فى الكومبو بوكس ahmed_egypt 0 311 24-06-16, 01:15 AM
آخر رد: ahmed_egypt
  [vb6.0] المساعدة فى ربط كمبوبوكس لحقل بتكيست بوكس لحقل اخر ابراهيم حورس 6 566 14-06-16, 08:26 PM
آخر رد: ابراهيم حورس
  كيف يتم جمع وقت بترتيب معين ؟ gedo 5 382 04-06-16, 01:54 AM
آخر رد: Ahmed_Mansoor

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


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