[سعود]

هل جربت المثال بعد التعديل؟

كود :

Public Class Form1

   Dim str As String = "provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb"
   Dim con As New OleDb.OleDbConnection(Str)
   Dim sql As String = "select * from tb"
   Dim dt As New DataTable
   Dim da As New OleDb.OleDbDataAdapter(sql, con)

   Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       dt.Clear()
       DataGridView1.DataSource = Nothing
       da.Fill(dt)
       DataGridView1.DataSource = dt
       RadioButton1.Checked = True
       Label1.Text = " عدد الصفوف: " & dt.Rows.Count
   End Sub

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       If RadioButton1.Checked = True Then
           Dim dt1 As New DataTable
           For Each s In TextBox1.Text.Split("")
               Dim sql1 As String = "select * from tb where tname like'%" & s & "%'"
               Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)
               da1.Fill(dt1)
           Next
           DataGridView1.DataSource = dt1
           Label1.Text = " عدد الصفوف: " & dt1.Rows.Count
       End If
   End Sub

   Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
       Button1.PerformClick()
   End Sub
End Class