البحث يعمل بشكل ممتاز بس عند ادخل رقم زوجي يعطي هذه الرسالة التي في الصورة المرفقه علماً بان الحقل الذي يتم البحث فية رقمي في قاعدة البيانات
وهذا كود البحث
Dim bda As New OleDb.OleDbDataAdapter("select * from tbl1 WHERE HijriID LIKE '" & TextBox1.Text & "'", con)
Dim bdt As New DataTable
bda.Fill(bdt)
txtid.Text = bdt.Rows(0)("HijriID")
tex1.Text = bdt.Rows(0)("HijriYear")
tex.Text = bdt.Rows(0)("b")
txt_date.Text = bdt.Rows(0)("b1")
tex3.Text = bdt.Rows(0)("b2")
tex5.Text = bdt.Rows(0)("b3")
tex6.Text = bdt.Rows(0)("b4")
tex7.Text = bdt.Rows(0)("b5")
tex8.Text = bdt.Rows(0)("b6")
tex9.Text = bdt.Rows(0)("b7")
tex10.Text = bdt.Rows(0)("b8")
bb1.Text = bdt.Rows(0)("b9")
tex12.Text = bdt.Rows(0)("b10")
tex20.Text = bdt.Rows(0)("b11")
tex11.Text = bdt.Rows(0)("b12")
bb2.Text = bdt.Rows(0)("b13")
bb4.Text = bdt.Rows(0)("b14")
bb5.Text = bdt.Rows(0)("b15")
bb7.Text = bdt.Rows(0)("b16")
IDLb.Text = bdt.Rows(0)("ID")
If bdt.Rows.Count > 0 Then
Else
MsgBox("لاتوجد معاملات بهذا الرقم")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
وهذا كود البحث
Dim bda As New OleDb.OleDbDataAdapter("select * from tbl1 WHERE HijriID LIKE '" & TextBox1.Text & "'", con)
Dim bdt As New DataTable
bda.Fill(bdt)
txtid.Text = bdt.Rows(0)("HijriID")
tex1.Text = bdt.Rows(0)("HijriYear")
tex.Text = bdt.Rows(0)("b")
txt_date.Text = bdt.Rows(0)("b1")
tex3.Text = bdt.Rows(0)("b2")
tex5.Text = bdt.Rows(0)("b3")
tex6.Text = bdt.Rows(0)("b4")
tex7.Text = bdt.Rows(0)("b5")
tex8.Text = bdt.Rows(0)("b6")
tex9.Text = bdt.Rows(0)("b7")
tex10.Text = bdt.Rows(0)("b8")
bb1.Text = bdt.Rows(0)("b9")
tex12.Text = bdt.Rows(0)("b10")
tex20.Text = bdt.Rows(0)("b11")
tex11.Text = bdt.Rows(0)("b12")
bb2.Text = bdt.Rows(0)("b13")
bb4.Text = bdt.Rows(0)("b14")
bb5.Text = bdt.Rows(0)("b15")
bb7.Text = bdt.Rows(0)("b16")
IDLb.Text = bdt.Rows(0)("ID")
If bdt.Rows.Count > 0 Then
Else
MsgBox("لاتوجد معاملات بهذا الرقم")
End If
Catch ex As Exception
MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try