fill data into cobobox

ساورد مثال سريع قد يحتمل اخطاء بسيطة في الsyntax

try

dim sql_str as string ="SELECT JOB,NO FROM EMP"

DIM CON AS NEW ORACLECONNECTION="اكتب الCONNECTION STRING "

DIM CMD AS NEW ORACLECOMMAND

CMD.CONNECTION=CON

cmd.CommandText=sql_str

con.open

dim rd as oracledatareader=cmd.ExecuteReader

while rd.read()

combobox1.item.add(getstring(0))

end while

rd.close()

catch ex as exception

msgbox(ex.source,ex.message)

finally

con.close

end try

احتمال كبير ان يكون هذا الحل على حسب مافهمت من سوالك

اذا لم تكن هذه الطريقة ارجو الرد

وارجو التاكد من الاملاء الخاص بالمتغيرات

وشكرا

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

ههههههههههه

سوي بحث وابشر خير

مشكوووووووووور الاخ NiNe انت قمت ب95% من المهمة بس تاقص شوية تعديل ليصبح الكود كالاتى

Dim sql As String = "SELECT JOB,code FROM job

Dim con As New OleDb.OleDbConnection

"اكتب الاسترينق" = con.connectionstring

(Dim CMD As New OleDb.OleDbCommand(sql, con

Try

con.Open()

Dim rd As OleDb.OleDbDataReader = CMD.ExecuteReader

While rd.Read()

ComboBox1.Items.Add(rd.GetString(0))

End While

rd.Close()

Catch ex As Exception

MsgBox(ex.Message)

Finally

con.Close()

End Try

بس دى طريقة ملء لcombobox تبقى كيف اخلى زر الامر يحفظ لى الحقل code علما بان البيانات المظهرة هى تابعه للحقل job واخيرا (ودمتم لنا)

بس دى طريقة ملء لcombobox تبقى كيف اخلى زر الامر يحفظ لى الحقل code علما بان البيانات المظهرة هى تابعه للحقل job واخيرا (ودمتم لنا)

ممكن افهم انت اش معنى يحفظ لي الحقل؟

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

اقصد الاتى لدى جدول table به 2 حقل field رقم ونص (مثلا رقم المهنة واسم المهنة) اريد ان تظهر فى القائمة combobox القيم النصية (اسم المهنة)وفى نفس الوقت عند الضغط على زر الامر حفظ يحفظ الرقم فقط (مثلا رقم المهنة)

hi

you can get the number by the follwoing

cmb.selectedvalue()