كيف أقوم بتعبئة الكومبو بوكس من قاعدة البيانات

اخي الكريم :

لو فرضنا انك قمت بفتح الجدول باستخدام تقنية ado فإذا راح يكون الكود كالتالي :

'حجز متغيير للجدول
dim Rs as new adodb.RecordSet

'التأكد من ان الجدول لم يتم فتحه سابقا
if rs.state=1 then rs.close
'فتح الجدول واختيار الفيلد اوالحقل المطلوب اضافته في الكوميو
rs.open " select FieldName form Table Name ",DBCon ,AdopenStatic,Adoptimisic
'اعادة الجول الى البداية
if rs.BOF = false then rs.movefirst
'تهيئة الكومبو وتفريغه
comb1.Clear

'بدء الدوارة حتى نهاية الجدول
do until rs.eof
'اضافة القيمة الى الكومبو
  combo1.additem rs!field Name
'الانتقال الى السجل التالي
 rs.moveNext
'نهاية الدوراة
Loop

تحياتي

بارك الله فيك اخ عماني كفييت ووفيت .....

الأخ الفاضل ...

راجع: كيف أجعل Combo1 يحفظ البيانات

شكراً

شكرا اخواني الأفاضل على المساعدة وجزاكم الله خيرا

أقدم لكم هذا الكود اللي حصلت عليه من أحد الأخوة وهو تقريباً مشابه لما كتبه الأخ ( عماني ) :

وضعت هذا الكود في الفورم لووود

PoolConnection هذا اسم ال sub اللي في ال module وفيه كود التأكد من هل ان القاعة مفتوحة .. ومسارها

Private Sub Form_Load()

PoolConnection


	If RS.State = adStateOpen Then RS.Close
	RS.Open "CUS_M", DB, adOpenKeyset, adLockPessimistic

	If Not RS.BOF Then RS.MoveFirst
	While Not RS.EOF

		Combo1.AddItem RS!CM_ID

		RS.MoveNext
	Wend

End Sub