[ابراهيم ايبو]

السلام عليكم اخي عبد العزيز

اليك هذا الكود يبحث داخل حقل الاسم

كود :

Dim da As New OleDbDataAdapter
   Dim dt As New DataTable
   '-----------Public Sub SelectWhere-----------
   Public Sub SelectWhere_Person()
       Try
           dt.Clear()
           da = New oledbDataAdapter("select Person.CVID,Person.CVName,Person.CV_Numer from Person Where CVName like '%" & Txt_Search.Text & "%'", con)
           da.Fill(dt)
           dgv_table.DataSource = dt
           Lbl_count.Text = 0
           For i As Integer = 0 To dgv_table.Rows.Count - 1
               If dgv_table.Rows(i).Cells("CVName").Value.ToString().Trim() = Txt_Search.Text.Trim() Then
                   Lbl_count.Text += 1
               End If
           Next
       Catch ex As Exception

       End Try
     
   End Sub

وهذا البوتن الخاص بالبحث

كود :

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       SelectWhere_Person()
     
   End Sub