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

اسم الجدول std والحقولstdid, stdname

dim constr as string="اكتب مسار الملف"

dim con as new oledbconnection(constr)

dim str as strin="select * from std"

dim dap as new oledbdataadapter(str,con)

dim ds as new dataset

dap.fill(ds,"std")

combobox1.datasource=ds.table("std")

combobox1.displaymember="stdname"

combobox1.valuemember="stdid"

ربما تكون هناك خطا في الإملاء لأني كتبته سريعا

لتكن ds هي الـ dataset

""أولا التصريح عن متغير داتا رو""

dim dr as datarow

"ثانياً اضافة العناصر من الداتا سيت التي تتضمن الجدول الى الكومبو بوكس"

for each dr in ds.tables(0).rows
combobox1.items.add(dr.item(0))
next

مشكور جدا اخي ولكن لو تكرمت

انا حاولت ابدل القيم 0

دي باسم الجدول

واسم العنصر اللى انا هجيبه في الكومبو

ولكن بيكتبلي ارور

لو تكرمت لو عدلت المثال الصغير ده

لقيم بدل ارقـــام

السلام عليكم

أستخدم الكود التالي

If r.IsClosed = False Then r.Close() 
cm.Connection = Cn 
cm.CommandType = CommandType.Text 
cm.CommandText = "select * from groups" 
r = cm.ExecuteReader 
If r.HasRows = True Then 
    	ComboBox1.Items.Clear() 
    	Do While r.Read = True 
            	ComboBox1.Items.Add(r(0)) 
    	Loop 
    	r.Close() 
End If

ملحوظات:-

r = datareader

cn = connection string

cm = command