[أبوبكر سويدان]

في الـfrmMain، ننقر صندوق النصوص الخاص بالبحث نقرتين مزدوجتين ونكتب:

كود :

Private Sub txtSearch_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtSearch.TextChanged
        SearchByName()
    End Sub

وهنا تم استدعاء روتين البحث، وهذه برمجته:

كود :

Private Sub SearchByName()
        Dim LSQL As String = "select * from TheTable where TheName like '%" & txtSearch.Text & "%' order by ID"
        Dim LAdapter As New OleDbDataAdapter(LSQL, Con)
        Dim LDataSet As New DataSet
        Dim RowsCount As Integer
        Dim i As Integer

        ' مسح الداتاقريدفيو من قيم سابقة محتملة
        dgvList.Rows.Clear()

        If Con.State = ConnectionState.Closed Then
            Con.Open()
            LAdapter.Fill(LDataSet, "LoadingData")
            RowsCount = LDataSet.Tables("LoadingData").Rows.Count
            If RowsCount = 0 Then
                dgvList.Rows.Clear()
                LDataSet.Reset()
                Con.Close()
                Exit Sub
            Else
                dgvList.Rows.Add(RowsCount)

                ' Now: fill DGV with data
                For i = 0 To RowsCount - 1
                    With dgvList
                        .Rows(i).Cells(0).Value = LDataSet.Tables("LoadingData").Rows(i).Item("ID")
                        .Rows(i).Cells(1).Value = LDataSet.Tables("LoadingData").Rows(i).Item("TheName")
                        .Rows(i).Cells(2).Value = LDataSet.Tables("LoadingData").Rows(i).Item("TheBirthDate")
                    End With
                Next
                LDataSet.Reset()
                Con.Close()
            End If
        Else
            LAdapter.Fill(LDataSet, "LoadingData")
            RowsCount = LDataSet.Tables("LoadingData").Rows.Count
            If RowsCount = 0 Then
                dgvList.Rows.Clear()
                LDataSet.Reset()
                Con.Close()
                Exit Sub
            Else
                dgvList.Rows.Add(RowsCount)

                ' Now: fill DGV with data
                For i = 0 To RowsCount - 1
                    With dgvList
                        .Rows(i).Cells(0).Value = LDataSet.Tables("LoadingData").Rows(i).Item("ID")
                        .Rows(i).Cells(1).Value = LDataSet.Tables("LoadingData").Rows(i).Item("TheName")
                        .Rows(i).Cells(2).Value = LDataSet.Tables("LoadingData").Rows(i).Item("TheBirthDate")
                    End With
                Next
                LDataSet.Reset()
                Con.Close()
            End If
        End If
    End Sub

والان، جرب تشغيل البرنامج، أتمنى لك الاستفادة.

وفي المرفق تجد المشروع كاملاً. السلام عليكم.


[ATTACH]3074[/ATTACH]