Combobox فارغة عند اجراء البحث ولكن تعمل في الاضافة

جرب

While read.Read() 
	textbox1.text=read.item("name")
	combobox1.text=read.item("sex")
End While

و تأكد من جملة الإستعلام .. فمن خلال رسالة الخطأ أظن أنك لم تدخل العمود Sex فيها .. المقصود هل جملة الإستعلام على الشكل التالي

"Select Name,Sex From ....."

زي ما قال الأخ Fikou-sama

بس أنت ليه عامل جدول للنوع ممكن تستخدم حقل من نوع bit - bool

شكراً لكم يا اخوان على الاهتمام بموضوعي

الحقيقة حاولت اغير في الحقول ما استطعت لاني فتحت الجدول في sql2000 واضفت عامود colume باسم الجدول sex وحاولت اغير على العامود ما اعطاني خيارات الا نسخ وحذف وكتابة sql

اذا تعرف كيف الطريقة ممكن تتفضل بشرحها واكون لك شاكر

الشي الاخر هل ما عملته صحيح باني في البدايه عملت جدول خاص لنوع الجنس ثم اضفت عامود باسم الجنس وما عملت بين الجدولين ربط ولكن عملت لكل جدول datasource منفصله واضفتها على النموذج والاضافة الحمد لله نجحت بامتياز وعملت اكثر من جدول على هاذا الاساس واراجع الجدول الاقي معلوماتي محفوظة ومضافة مثل ما غيرت بال combobox ولكن البحث محيرني

بالنسبة للاستعلام

انا ما كتبت اي استعلام كل الي اعمله اني حاط قدام بعض التكست بوكس radio option عند اختيار اي وحده يتم البحث بناء على التكست البكس المختار واليكم الكود

If RadioButton1.Checked = True Then

SqlCommand1.Parameters("@name").Value = TextBox1.text

Dim read As SqlClient.SqlDataReader

SqlConnection1.Open()

read = SqlCommand1.ExecuteReader

If Not read.Read Then

MsgBox("wrong name")

read.Close()

SqlConnection1.Close()

Else

TextBox1.Text = read.Item("no")

TextBox2.Text = read.Item("name")

TextBox3.Text = read.Item("nationality")

ComboBox1.Text = read.Item("sex")

ComboBox2.Text = read.Item("mater_stat")

TextBox4.Text = read.Item("id_no")

MaskedTextBox2.Text = read.Item("birth_date")

TextBox5.Text = read.Item("birth_city")

TextBox6.Text = read.Item("edu_degre")

TextBox7.Text = read.Item("job")

TextBox8.Text = read.Item("city")

read.Close()

SqlConnection1.Close()

End If

End If

او اعتقد انك تقصد داخل جملة sqlcommand

اعتقد كلامك صحيح ساحاول

شكراً اخي fikou-sama نجحت العملية جزاك الله خير