سؤال فى ............combo box

السلام عليكم

أخي الكريم

أولا :

لنفترض أن البيانات لديك موجودة في جدول أسمة School_Class

داخل الجدول فيه 2 فيلد

Class_Name

Sub_Class

وقد قمنا بتعبئةالبيانات في الكومبو الأول حسب الصفوف ونحتاج لفرز الفصول حس الصف الذي يتم اختيارة من الكومبو ليظهر في الكومبو الثاني

نقوم بكتابة الكود التالي :

في حدث Click للكومبو بكس الأول أكتب الكود التالي :

Dim Rs as new adodb.recordset
'فتح الجدول هناحسب البيانات التي قمنا باختيارها
rs.open " Select * from School_Class Where Class_Name = '" & combo1.text & "';",db,1,1

'تجهيز الكومبو لاستقبال البيانات الجديدة
Combo2.clear
'اعادة البيانات التي تم اختيارها للبداية
 if rs.bof = false then rs.movefirst
'بدء الدورة لاضافة البيانات في الكومبو2 وحسب عدد السجلات المستخلصة
do until rs.eof
'اضافة سطر البيانات الى الكومبو
  combo2.additem rs!Sub_class
'نقل الجدول الى السطر التالي
  rs.movenext
loop

شكرا جزيلا

جزاك الله خيرا

وانا واقع فى نفس المشكله فياريت لو تشرح الكود

يعنى ايه & وselect

وجزاك الله خيرا