How to Search Data in the DataGridView Using a TextBox in VB.Net and MySQL Database

4
6306

This tutorial is all about How to Search Data in the DataGridView Using a TextBox in VB.Net and MySQL Database. In this tutorial, I will show you how to search records in VB.Net and MySQL Database. The list of records in the database will be displayed on the Datagridview and it will show you how easy it is to search a record using a TextBox.

Lets’ begin:

The Database of this project is located here. Follow the instructions for creating database.

After creating database, open the Visual Basic and create a new Windows Form Application. After that, set the Form just like this.
searchdataform
After that setting up the Form, double click the it and do this code for setting up the connection of MySQL Database to Visual Basic and declare all the classes that are needed above the Form1_Load
[vbnet] Public con As MySqlConnection = New MySqlConnection(“server=localhost;user id=root;database=dbemployees”)
Public cmd As New MySqlCommand
Public da As New MySqlDataAdapter
Public dt As New DataTable
[/vbnet] Note: add mysql.data.dll as your reference to make MySQL work.
Go to Form1_Load and do the following codes for retrieving the record in the database.
[vbnet] Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
‘OPENING THE CONNECTION
con.Open()
‘SET A NEW SPECIFIC TABLE IN THE DATABASE
dt = New DataTable
‘SET YOUR COMMANDS TO PROVIDE A TEXT-BASE INTERFACE INTO THE MYSQL DATABASE SERVER.
‘AND ONCE IT’S CONNECTED, YOU CAN MAKE QUERY OR MANY OTHER OPERATION.
With cmd
.Connection = con
.CommandText = “SELECT EMP_ID as EmployeeId, F_NAME as FirstName, L_NAME as LastName, EMAIL as UserName, PHONENUMB as PhoneNumber FROM employees
End With
‘SET THIS STORED PROCEDURE TO SELECT THE RECORD IN THE DATASOURCE
da.SelectCommand = cmd
‘FILLING THE DATA IN THE DATATABLE
da.Fill(dt)
‘SET THE DATASOURCE OF THE DATAGRIDVIEW
DataGridView1.DataSource = dt
‘CLOSING THE CONNECTION
con.Close()
da.Dispose()
End Sub
[/vbnet] Go back to the Form Design, double click the “Search” Button and do this code for searching the records in the database.
[vbnet] Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
con.Open()
dt = New DataTable
With cmd
.Connection = con
.CommandText = “SELECT EMP_ID as EmployeeId, F_NAME as FirstName, L_NAME as LastName, EMAIL as UserName, PHONENUMB as PhoneNumber FROM employees where EMP_ID like ‘%” & TextBox1.Text & “%'”
End With
da.SelectCommand = cmd
da.Fill(dt)
DataGridView1.DataSource = dt

Catch ex As Exception
MsgBox(ex.Message)
End Try
da.Dispose()
con.Close()
End Sub
[/vbnet]

Download the complete Source Code and run it on your computer.

searchdatadatagridview

 

 

Readers might read also:

 

 

Facebook Comments

4 COMMENTS

  1. HI…! I NEED HELP FROM THE EXPERT.. THIS IS MY CODE THIS CODE IS DISPLAYING DATA FROM MY TABLE TO MY DATAGRID VIEW.. I WANT TO ADD A INNER JOIN TO MY CODE TO SELECT SOME DATA THERE AND THAT DATA WOULD BE DISPLAY ON MY TXTBOX NOT ON MY DATAGRID.. EXAMBLE DATA IS THE THE NAME OF THE PERSON AND THE OTHER DATA WOULD BE DISPLAY ON MY DATAGRID VIEW.. TNXX…

    ‘SEARCH BUTTON

    Dim CMD As New OleDbCommand
    Dim cnn As New OleDbConnection
    Dim dt As New DataTable
    Dim da As New OleDbDataAdapter
    Dim DS As New DataSet

    cnn.ConnectionString = “provider=Microsoft.SQLSERVER.CE.oleDb.3.5;Data Source=C:\Users\user\Documents\2017TAXPAYERRECORD.sdf;”
    cnn.Open()

    Text = cnn.State.ToString
    Dim str As String
    str = “SELECT TIN,QUARTER,FORMTYPE,RETURNPERIOD,TOTALAMOUNT,DATEOFPAYMENT FROM TAXPAYMENT WHERE TIN='” & STIN.Text & “‘AND RETURNPERIOD='” & SRPERIOD.Text & “‘AND FORMTYPE='” & SFOARMTYPE.Text & “‘”
    da = New OleDbDataAdapter(str, cnn)
    da.Fill(dt)
    DataGridView1.DataSource = dt

    Me.TAXPAYMENTTableAdapter1.Fill(Me.NEWPAYMENTLIST.TAXPAYMENT)

    End Sub

  2. HI NEED HELP FOR THE EXPERT.. THIS MY CODE FOR SEACHING RECORD.. I WANT THE FOLLOWING DATA FIRST NAME, LAST NAME AND MIDDLE NAME OF PERSON WOULD BE DISPLAY ON MY TEXTBOX.. HOW CAN I DO THAT.. PLSSS HELP ME…

    ‘SEARCH BUTTON
    Dim CMD As New OleDbCommand
    Dim cnn As New OleDbConnection
    Dim dt As New DataTable
    Dim da As New OleDbDataAdapter
    Dim DS As New DataSet

    cnn.ConnectionString = “provider=Microsoft.SQLSERVER.CE.oleDb.3.5;Data Source=C:\Users\user\Documents\2017TAXPAYERRECORD.sdf;”
    cnn.Open()

    Text = cnn.State.ToString
    Dim str As String
    str = “SELECT TAXTPERSON.LNAME,TAXTPERSON.FNAME,TAXTPERSON.MNAME,TAXPAYMENT.TIN,TAXPAYMENT.QUARTER,TAXPAYMENT.TAXTYPE,TAXPAYMENT.FORMTYPE,TAXPAYMENT.RETURNPERIOD,TAXPAYMENT.TOTALAMOUNT,TAXPAYMENT.DATEOFPAYMENT FROM TAXPAYMENT INNER JOIN TAXTPERSON ON TAXPAYMENT.TIN = TAXTPERSON.TIN WHERE TAXPAYMENT.TIN='” & STIN.Text & “‘”
    da = New OleDbDataAdapter(str, cnn)
    da.Fill(dt)
    DataGridView1.DataSource = dt

    Me.TAXPAYMENTTableAdapter1.Fill(Me.NEWPAYMENTLIST.TAXPAYMENT)

LEAVE A REPLY

Please enter your comment!
Please enter your name here

This site uses Akismet to reduce spam. Learn how your comment data is processed.