[hashemb1978]

اخي الكريم هادا كود البحث مع المرفق بلغني لو زبط اذا بدك تراسلني عالفيس راسلني علي هاد الرابط
https://www.facebook.com/profile.php?id=100000509588475
ضع هذا الكود في زر البحث

Dim myQuery As String = ""

                Dim sql As String = "select * from studenet where Class like '%" & TextBox1.Text & "%' "
                If con.State() Then con.Close()
                con.Open()
                Dim cmd As New OleDbCommand(sql, con)
                Dim dr As OleDbDataReader
                dr = cmd.ExecuteReader()
                If dr.Read() = True Then
في حال وجد السجل يضع بياناته في التكسات
                    TextBox2.Text = dr.Item(0).ToString
                    TextBox3.Text = dr.Item(1).ToString
                    TextBox4.Text = dr.Item(3).ToString
                    TextBox5.Text = dr.Item(2).ToString
                    Dim da = New OleDbDataAdapter(sql, con)
                    Dim dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView1.DataSource = dt
                    con.Close()

                Else
في حال لم يجد البيانات يفرغ التكسات                   
 con.Close()
                    TextBox1.Text = ""
                    tb1.Text = ""
                    tb2.Text = ""
                    Com3.Text = ""
                    TextBox2.Text = ""
                                      
                    MsgBox(" الصف غير موجود ", MsgBoxStyle.Information, "المكتبه")

                End If

---

اخي الكريم جرب هادا الكود


ضع هذا الكود في زر البحث

Dim myQuery As String = ""

                Dim sql As String = "select * from studenet where Class like '%" & TextBox1.Text & "%' "
                If con.State() Then con.Close()
                con.Open()
                Dim cmd As New OleDbCommand(sql, con)
                Dim dr As OleDbDataReader
                dr = cmd.ExecuteReader()
                If dr.Read() = True Then
في حال وجد السجل يضع بياناته في التكسات
                    TextBox2.Text = dr.Item(0).ToString
                    TextBox3.Text = dr.Item(1).ToString
                    TextBox4.Text = dr.Item(3).ToString
                    TextBox5.Text = dr.Item(2).ToString
                    Dim da = New OleDbDataAdapter(sql, con)
                    Dim dt As New DataTable
                    da.Fill(dt)
                    Me.DataGridView1.DataSource = dt
                    con.Close()

                Else
في حال لم يجد البيانات يفرغ التكسات                   
 con.Close()
                    TextBox1.Text = ""
                    tb1.Text = ""
                    tb2.Text = ""
                    Com3.Text = ""
                    TextBox2.Text = ""
                                      
                    MsgBox(" الصف غير موجود ", MsgBoxStyle.Information, "المكتبه")

                End If

مرفق الكود