كيفيه وضع محتويات حقل من قاعده البيانات في الكومبوبوكس

السلام عليكم

يفضل تسمية حقول الجدول باللغة الإنجليزية

Combo1.Clear
Combo1.Text = ""
Do Until rs.EOF
Combo1.AddItem rs("CompanyName")
rs.MoveNext
Loop

شكرا على الرد الجميل

ولكني نسيت ان اذكر لكم طريقه الربط انا رابط قاعده البيانات مع الفيجوال بيسك بطريقه Data Control

فيكيف يمكنني بطريقه الدالتا كنترول ارجو منكم الرد على سؤالي ولكن بالاداه Data Control

ولكم مني كل الشكر والتقدير

السلام عليكم

الكود سيكون كالتالي

Combo1.Clear
Combo1.Text = ""
Do While Not Data1.Recordset.EOF
	Combo1.AddItem Data1.Recordset("CompanyName")
	Data1.Recordset.MoveNext
Loop

وهذا رابط مثال على لتعبئة الكومبو بالطريقتين بالكود وبأداة الداتا كنترول

http://www.4shared.c...Combo_fill.html

كل الشكر والتقدير الى الاخ Mady-AGC ولكم مني اجمل واطيب التحايا