22-06-16, 11:53 AM
اضع هذا الكود في حدث TextBox1_TextChanged :
Dim com1 As New SqlCommand("select distinct name from table1 where name = '" & TextBox1.Text & "'", con)
Dim s1 As New DataSet
Dim t1 As New SqlDataAdapter
t1.SelectCommand = com1
t1.Fill(s1, "table1 ")
If s1.Tables(0).Rows.Count <> 0 Then
ComboBox1.DataSource = s1.Tables("table1 ")
ComboBox1.DisplayMember = "id_no"
ComboBox1.ValueMember = "id_no"
وذلك حتي يتم اختيار الارقام الخاصة بهذا الاسم وملأ الكومبو بوكس بهم وبالفعل يتم اختيار الارقام الخاصة بالاسم عندما اكتب الاسم في التيكست بوكس
وبعد ذلك اضع هذا الكود في حدث ComboBox1_SelectedIndexChanged
Dim com2 As New SqlCommand("select * from table1 where id_no='" & ComboBox1.Text & "' ", con)
Dim s2 As New DataSet
Dim t2 As New SqlDataAdapter
t2.SelectCommand = com2
t2.Fill(s2, "table1 ")
If s2.Tables(0).Rows.Count <> 0 Then
Try
TextBox10.Text = s2.Tables("table1").Rows(0)(3)
TextBox2.Text = s2.Tables("table1").Rows(0)(9)
ComboBox2.Text = s2.Tables("table1").Rows(0)(5)
Catch ex As Exception
End Try
End If
وذلك حتى يتم اختيار البيانات الخاصة بكل رقم وعرضها
في البداية اشتغل الكود الخاص بحدث التيكست بوكس كما ذكرت ويقوم باختيار الارقام الخاصة بالاسم وعرضها في الكومبوبوكس
ولكن بعد كتابة الكود الخاص بالكومبوبوكس وتجربة الكود يعطي هذا الايرور
"conversion faild when converting the varchar value'system.data..dataRowView' to type int"
ارجو المساعدة حيث راجعت كل شئ وانواع الحقول في قاعدة البيانات ومقارنتها بالكود ولم اجد خطأ ولا اعلم اين المشكلة
Dim com1 As New SqlCommand("select distinct name from table1 where name = '" & TextBox1.Text & "'", con)
Dim s1 As New DataSet
Dim t1 As New SqlDataAdapter
t1.SelectCommand = com1
t1.Fill(s1, "table1 ")
If s1.Tables(0).Rows.Count <> 0 Then
ComboBox1.DataSource = s1.Tables("table1 ")
ComboBox1.DisplayMember = "id_no"
ComboBox1.ValueMember = "id_no"
وذلك حتي يتم اختيار الارقام الخاصة بهذا الاسم وملأ الكومبو بوكس بهم وبالفعل يتم اختيار الارقام الخاصة بالاسم عندما اكتب الاسم في التيكست بوكس
وبعد ذلك اضع هذا الكود في حدث ComboBox1_SelectedIndexChanged
Dim com2 As New SqlCommand("select * from table1 where id_no='" & ComboBox1.Text & "' ", con)
Dim s2 As New DataSet
Dim t2 As New SqlDataAdapter
t2.SelectCommand = com2
t2.Fill(s2, "table1 ")
If s2.Tables(0).Rows.Count <> 0 Then
Try
TextBox10.Text = s2.Tables("table1").Rows(0)(3)
TextBox2.Text = s2.Tables("table1").Rows(0)(9)
ComboBox2.Text = s2.Tables("table1").Rows(0)(5)
Catch ex As Exception
End Try
End If
وذلك حتى يتم اختيار البيانات الخاصة بكل رقم وعرضها
في البداية اشتغل الكود الخاص بحدث التيكست بوكس كما ذكرت ويقوم باختيار الارقام الخاصة بالاسم وعرضها في الكومبوبوكس
ولكن بعد كتابة الكود الخاص بالكومبوبوكس وتجربة الكود يعطي هذا الايرور
"conversion faild when converting the varchar value'system.data..dataRowView' to type int"
ارجو المساعدة حيث راجعت كل شئ وانواع الحقول في قاعدة البيانات ومقارنتها بالكود ولم اجد خطأ ولا اعلم اين المشكلة