VB.NET Win Form อยากได้โค้ดค้นหา Search ข้อมูลใน DataGridView ใครทราบช่วยบอกที

Imports System
Imports System.Data.OleDb
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form1
    Inherits System.Windows.Forms.Form

    Private WithEvents songsDataGridView As New System.Windows.Forms.DataGridView
    Private strKeyWord As String = ""

    Private Sub Form1_Load(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles MyBase.Load

        PopulateData()

    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        strKeyWord = Me.txtSearch.Text
        PopulateData()
    End Sub

    Private Sub PopulateData()

        '*** BindData From Database **'
        Dim objConn As OleDbConnection
        Dim dtAdapter As OleDbDataAdapter
        Dim dt As New DataTable

        Dim strConnString As String
        strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=mydatabase.mdb"
        objConn = New OleDbConnection(strConnString)
        objConn.Open()

        Dim strSQL As String
        strSQL = "SELECT * FROM customer WHERE 1=1 "
        If strKeyWord <> "" Then
            strSQL = strSQL & " AND Name Like '%" & strKeyWord & "%' "
        End If

        dtAdapter = New OleDbDataAdapter(strSQL, objConn)
        dtAdapter.Fill(dt)

        dtAdapter = Nothing
        objConn.Close()
        objConn = Nothing

        Me.myDgv.DataSource = dt

        '******************************'
        Me.myDgv.Columns.Clear()

        With myDgv.ColumnHeadersDefaultCellStyle
            .BackColor = Color.Navy
            .ForeColor = Color.White
            .Font = New Font(songsDataGridView.Font, FontStyle.Bold)
        End With

        Dim ColumnTextBox As DataGridViewTextBoxColumn




        '*** Column (Select) ***'
        Dim ColumnCheckBox As New DataGridViewCheckBoxColumn()
        ColumnCheckBox.Width = 30
        ColumnCheckBox.DataPropertyName = "Select"
        Me.myDgv.Columns.Add(ColumnCheckBox)

        '*** Checkbox in Header ***'
        Dim ckBox As New CheckBox()
        Dim rect As Rectangle = myDgv.GetCellDisplayRectangle(0, -1, True)
        ckBox.Size = New Size(18, 18)
        rect.X = rect.Location.X + (rect.Width / 4)
        ckBox.Location = rect.Location
        AddHandler ckBox.CheckedChanged, New EventHandler(AddressOf ckBox_CheckedChanged)
        Me.myDgv.Controls.Add(ckBox)

        myDgv.Columns(0).Frozen = False

        '*** Column (CustomerID) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "CustomerID"
        ColumnTextBox.HeaderText = "CustomerID"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (Name) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Name"
        ColumnTextBox.HeaderText = "Name"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (Email) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Email"
        ColumnTextBox.HeaderText = "Email"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (CountryCode) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "CountryCode"
        ColumnTextBox.HeaderText = "CountryCode"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (Budget) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Budget"
        ColumnTextBox.HeaderText = "Budget"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        '*** Column (Used) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Used"
        ColumnTextBox.HeaderText = "Used"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

    End Sub

    Private Sub ckBox_CheckedChanged()
        Dim i As Integer = 0
        For j As Integer = 0 To Me.myDgv.RowCount - 1
            Me.myDgv(0, j).Value = True
        Next
    End Sub



    <STAThreadAttribute()> _
    Public Shared Sub Main()
        Application.EnableVisualStyles()
        Application.Run(New Form1())
    End Sub


End Class

    'คำสั่งค้นหาข้อมูล
    Private Sub Search()
        Dim dvResult As DataView 'ตัวแปรเก็บผลลัพธ์
        Dim strFilter As String 'ตัวแปรเก็บเงื่อนไขค้นหา

        dvResult = New DataView(dtResult) 'นำข้อมูลจาก DataTable ที่ต้องการค้นหา มาไว้ใน DataView
        
        'supplierCode = ชื่อฟิลด์
        'like = มีสิ่งใดสิ่งหนึ่ง
        '% = ข้อความใดๆ
        'เช่น supplierCode like '%s%' = ค้นหาข้อความที่มี s อยู่ด้วย ในฟิลด์ supplierCode
        strFilter = "supplierCode like '%" & txtCode.Text & "%'"
        strFilter &= " and supplierName like '%" & txtName.Text & "%'"
        dvResult.RowFilter = strFilter 'ค้นหา

        dgvResult.DataSource = dvResult 'นำผลลัพธ์ที่ค้นหาคืนสู่ DataGridView
    End Sub

Imports System.Data
Imports MySql.Data.MySqlClient
Imports System.Drawing
Imports System.Windows.Forms

Public Class Form3
    Inherits System.Windows.Forms.Form

    Private WithEvents songsDataGridView As New System.Windows.Forms.DataGridView
    Private strkeyWord As String = ""
    Private Sub หนาแรกToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles หนาแรกToolStripMenuItem.Click
        Form2.Show()
        Me.Hide()
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Close()
    End Sub

    Private Sub คนหาหนงสอToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles คนหาหนงสอToolStripMenuItem.Click
        Form4.Show()
        Me.Hide()
    End Sub

    Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        PopulateData()

    End Sub

    Private Sub btnSearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSearch.Click
        strkeyWord = Me.txtsearch.Text
        PopulateData()
    End Sub

    Private Sub PopulateData()
        Dim FdCon As New MySqlConnection
        Dim fdCom As New MySqlCommand("", FdCon)
        Dim dt As New DataTable

        Dim strConnString As String
        strConnString = ("Database=book;Data Source=localhost;User Id=root;Password=1234")
        FdCon = New MySqlConnection(strConnString)
        FdCon.Open()

        Dim strSQL As String
        strSQL = "SELECT * FROM books WHERE 1=1 "
        If strkeyWord <> "" Then
            strSQL = strSQL & "AND NAME Like '%" & strkeyWord & "%' "
        End If

        fdCom = New MySqlCommand(strSQL, FdCon)

        fdCom = Nothing
        FdCon.Close()
        FdCon = Nothing

        Me.myDgv.Columns.Clear()

        With myDgv.ColumnHeadersDefaultCellStyle
            .BackColor = Color.Navy
            .ForeColor = Color.White
            .Font = New Font(songsDataGridView.Font, FontStyle.Bold)
        End With

        Dim ColumnTextBox As DataGridViewTextBoxColumn

        Dim ColumnCheckBox As New DataGridViewCheckBoxColumn()
        ColumnCheckBox.Width = 30
        ColumnCheckBox.DataPropertyName = "Select"
        Me.myDgv.Columns.Add(ColumnCheckBox)

        Dim ckBox As New CheckBox()
        Dim rect As Rectangle = myDgv.GetCellDisplayRectangle(0, -1, True)
        ckBox.Size = New Size(18, 18)
        rect.X = rect.Location.X + (rect.Width / 4)
        ckBox.Location = rect.Location
        AddHandler ckBox.CheckedChanged, New EventHandler(AddressOf ckBox_CheckedChanged)
        Me.myDgv.Controls.Add(ckBox)

        myDgv.Columns(0).Frozen = False

        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "idbook"
        ColumnTextBox.HeaderText = "idbook"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "namebook"
        ColumnTextBox.HeaderText = "namebook"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "author"
        ColumnTextBox.HeaderText = "author"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "type"
        ColumnTextBox.HeaderText = "type"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)
        ColumnTextBox = New DataGridViewTextBoxColumn()

        ColumnTextBox.DataPropertyName = "publisher"
        ColumnTextBox.HeaderText = "publisher"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

        ColumnTextBox.DataPropertyName = "pricer"
        ColumnTextBox.HeaderText = "price"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.myDgv.Columns.Add(ColumnTextBox)

    End Sub

    Private Sub ckBox_CheckedChanged()
        Dim i As Integer = 0
        For j As Integer = 0 To Me.myDgv.RowCount - 1
            Me.myDgv(0, j).Value = True
        Next
    End Sub

    <STAThreadAttribute()> _
    Public Shared Sub Main()
        Application.EnableVisualStyles()
        Application.Run(New Form3())
    End Sub
End Class

        strSQL = "SELECT * FROM books WHERE 1=1 "
        If strkeyWord <> "" Then
            strSQL = strSQL & "AND NAME Like '%" & strkeyWord & "%' "
        End If

  '*** BindData From Database **'
        Dim objConn As OleDb.OleDbConnection
        Dim dta As OleDb.OleDbDataAdapter
        Dim dt As New DataTable

        Dim strConnString As String
        strConnString = ("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Fainaladmin.accdb;Persist Security Info=Fals")
        objConn = New OleDb.OleDbConnection(strConnString)
        objConn.Open()

        Dim strSQL As String
        strSQL = "SELECT * FROM Customer WHERE 1=1 "
        If strKeyWord <> "" Then
            strSQL = strSQL & " AND Name Like '%" & strKeyWord & "%' "
        End If

        dta = New OleDb.OleDbDataAdapter(strSQL, objConn)
        dta.Fill(dt)

        dta = Nothing
        objConn.Close()
        objConn = Nothing

        Me.DataGridView1.DataSource = dt

        '******************************'
        Me.DataGridView1.Columns.Clear()

        With DataGridView1.ColumnHeadersDefaultCellStyle

        End With

        .BackColor = Color.Navy
        .ForeColor = Color.White
        .Font = New Font(songsDataGridView.Font, FontStyle.Bold)
        Dim ColumnTextBox As DataGridViewTextBoxColumn




        '*** Column (Select) ***'
        Dim ColumnCheckBox As New DataGridViewCheckBoxColumn()
        ColumnCheckBox.Width = 30
        ColumnCheckBox.DataPropertyName = "Select"
        Me.DataGridView1.Columns.Add(ColumnCheckBox)

        '*** Checkbox in Header ***'
        Dim ckBox As New CheckBox()
        Dim rect As Rectangle = DataGridView1.GetCellDisplayRectangle(0, -1, True)
        ckBox.Size = New Size(18, 18)
        rect.X = rect.Location.X + (rect.Width / 4)
        ckBox.Location = rect.Location
        AddHandler ckBox.CheckedChanged, New EventHandler(AddressOf ckBox_CheckedChanged)
        Me.DataGridView1.Controls.Add(ckBox)

        DataGridView1.Columns(0).Frozen = False

        '*** Column (CusID) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "CustID"
        ColumnTextBox.HeaderText = "CustID"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.DataGridView1.Columns.Add(ColumnTextBox)

        '*** Column (CusName) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "CusName"
        ColumnTextBox.HeaderText = "CusName"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.DataGridView1.Columns.Add(ColumnTextBox)

        '*** Column (CusAddress) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "CusAddress"
        ColumnTextBox.HeaderText = "CusAddress"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.DataGridView1.Columns.Add(ColumnTextBox)

        '*** Column (Custel) ***'
        ColumnTextBox = New DataGridViewTextBoxColumn()
        ColumnTextBox.DataPropertyName = "Custel"
        ColumnTextBox.HeaderText = "Custel"
        ColumnTextBox.HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        ColumnTextBox.Width = 100
        Me.DataGridView1.Columns.Add(ColumnTextBox)

.BackColor = Color.Navy
        .ForeColor = Color.White
        .Font = New Font(songsDataGridView.Font, FontStyle.Bold)

        Dim ds4 As New DataSet
        Dim dt4 As New DataTable
        ds4.Tables.Add(dt4)
        Dim da4 As New OleDbDataAdapter
        Dim mysql4 As String
        Dim connetionString4 As String

        '///ที่อยู่ของฐานข้อมูล
        connetionString4 = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & _
      "D:\AA\BB.mdb"

        conn = New OleDbConnection(connetionString4)
       
        mysql4 = "SELECT * FROM " & Me.mytable & " WHERE 1=1 "

        If strKeyWord <> "" Then

            mysql4 = mysql4 & " AND " & Me.mytype & " Like '%" & strKeyWord & "%' "

        End If

        '///ทำการเชื่อมต่อฐานข้อมูล
        da4 = New OleDbDataAdapter(mysql4, conn)
        da4.Fill(dt4)
        '///กรอกข้อมูลลงในตาราง หลังจากค้นหาหนังสือแล้ว
        DataGridView2.DataSource = dt4.DefaultView
        '///ปิดการเชื่อมต่อ
        conn.Close()

mysql4 = "SELECT * FROM " & Me.mytable & " WHERE 1=1 "

If strKeyWord <> "" Then

mysql4 = mysql4 & " AND " & Me.mytype & " Like '%" & strKeyWord & "%' "

End If

 Private Sub find()
        Dim dt As New DataTable
        Dim Adapter As MySqlDataAdapter
        Dim myConnection As New MySqlConnection
        Dim objCmd As New MySqlCommand
        Dim strConnString, strSQL As String

        strConnString = "Server=localhost;User Id=root; Password=pass; Database=databaseName; Pooling=false;charset=utf8"
        myConnection.ConnectionString = strConnString
        Dim myCommand As MySqlCommand = myConnection.CreateCommand()
        myCommand.CommandText = "SELECT `id`, `name`, `email`, `uid`, `money` FROM `mytable` WHERE uid = '" & txtscan.Text & "'"
        myCommand.CommandType = CommandType.Text
        Adapter = New MySqlDataAdapter(myCommand)
        Adapter.Fill(dt)

        myConnection.Close()

        Me.dgName.DataSource = dt

        Me.dgName.Columns.Clear()

        Dim column As DataGridViewTextBoxColumn

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "id"
        column.HeaderText = "ลำดับที่"
        column.Width = 50
        Me.dgName.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "uid"
        column.HeaderText = "รหัสประจำตัวนักศึกษา"
        column.Width = 148
        Me.dgName.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "name"
        column.HeaderText = "ชื่อ - นามสกุล"
        column.Width = 150
        Me.dgName.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "email"
        column.HeaderText = "อีเมล์แอดเดรส"
        column.Width = 150
        Me.dgName.Columns.Add(column)

        column = New DataGridViewTextBoxColumn()
        column.DataPropertyName = "money"
        column.HeaderText = "จำนวนเงิน"
        column.Width = 150
        Me.dgName.Columns.Add(column)


        dt = Nothing

    End Sub