[VB.NET] البحث عن اي جزء من أي كلمة في مربع نص واحد

كود :

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 ds As New DataSet

 Dim da As New OleDb.OleDbDataAdapter(sql, con)

كود :

ds.Clear()

 DataGridView1.DataSource = Nothing

 DataGridView1.DataMember = Nothing

 

 da.Fill(ds, "tb")

 DataGridView1.DataSource = ds

 DataGridView1.DataMember = "tb"

كود :

Dim p() As String = TextBox1.Text.Split(" ")

 Dim ds1 As New DataSet

 

 

 For Each s In p

 Dim sql1 As String = "select * from tb where tname='" & s & "'"

 Dim da1 As New OleDb.OleDbDataAdapter(sql1, con)

 

 

 da1.Fill(ds1, "tb")

 Next

 DataGridView1.DataSource = ds1

 DataGridView1.DataMember = "tb"

كود :

Public Class Form1

    Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=|datadirectory|\db.accdb")

    Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged

        If con.State = ConnectionState.Closed Then con.Open()

        Dim dt As DataTable

        For Each h As String In TextBox1.Text.Split(" ")

            Using da = New OleDb.OleDbDataAdapter("select * from tb where tname like'%" & h & "%'", con)

                dt = New DataTable

                da.Fill(dt)

                ListBox1.DataSource = dt

                ListBox1.DisplayMember = "tname"

            End Using

        Next

    End Sub

End Class

كود :

For each h in textbox1.text.split(" ")

كود :

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