This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(249.60000000000002, 31%, 34%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EC%3C/text%3E%3C/svg%3E)
Good day everyone, Someone can help me. I want to search data from database using datagridview but i have a problem with my code.
This is my code.
databaseconnection.conn()
cn.Open()
Dim i As Integer
DataGridView1.Rows.Clear()
cmd = New OleDbCommand
cmd = New OleDbCommand("Select * from tblemprecord where Employee_lname like '%" & TextBox1.Text & "%' OR Employee_empid like '%" & TextBox1.Text & "%' OR Employee_fname like '%" & TextBox1.Text & "%'", cn)
cmd.Connection = cn
Using dtr = cmd.ExecuteReader()
If dtr.HasRows Then
While dtr.Read
i += 1
DataGridView1.Rows.Add(i, dtr.Item("Employee_id").ToString, dtr.Item("Employee_fname").ToString, dtr.Item("Employee_lname").ToString, dtr.Item("Employee_mname").ToString, dtr.Item("Employee_startdate").ToString, dtr.Item("Employee_gender").ToString, dtr.Item("Employee_employmentstatus").ToString, dtr.Item("Employee_designatory").ToString, dtr.Item("Employee_department").ToString)
End While
End If
End Using
cn.Close()
I'm using VB.NET 2022 and MS Access database.
Thanks
clynnekent
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(153.6, 89%, 24%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EJL%3C/text%3E%3C/svg%3E)
Hi @clynnekent ,
Could you please describe in detail the problem you're having?
For example, debugging throws an exception/getting unexpected results, etc.
Good day Sir JiachenLi;
I want to search data in Datagridview. Example the program required to search the last name of the employee when I type "A" all the letter start in A will appear in the Datagridview. I watch tutorial in youtube the code that I post here is working with C# but when I try in VB.Net it can't. Is there a problem with my code or is there a lacking on my code.
I have an error like this.
Hi @clynnekent ,
Please check that the table and column names in your sql statement match those in the database.
And using parameters in SQL statements may help you.
Best Regards.
Jiachen Li
----------
If the answer is helpful, please click "Accept Answer" and upvote it.
Note: Please follow the steps in our documentation to enable e-mail notifications if you want to receive the related email notification for this thread.
Hi @Jiachen Li-MSFT ,
I already found the problem you are right the database and my code is not the same. I got the error with my Employee_empid. In my database its Employee_id. Thank you sir.
It's working with this code.
databaseconnection.conn()
cn.Open()
Dim i As Integer
DataGridView1.Rows.Clear()
cmd = New OleDbCommand
cmd = New OleDbCommand("Select * from tblemprecord where Employee_lname like '%" & TextBox1.Text & "%' OR Employee_id like '%" & TextBox1.Text & "%' OR Employee_fname like '%" & TextBox1.Text & "%'", cn)
cmd.Connection = cn
Using dtr = cmd.ExecuteReader()
If dtr.HasRows Then
While dtr.Read
i += 1
DataGridView1.Rows.Add(i, dtr.Item("Employee_id").ToString, dtr.Item("Employee_fname").ToString, dtr.Item("Employee_lname").ToString, dtr.Item("Employee_mname").ToString, dtr.Item("Employee_startdate").ToString, dtr.Item("Employee_gender").ToString, dtr.Item("Employee_employmentstatus").ToString, dtr.Item("Employee_designatory").ToString, dtr.Item("Employee_department").ToString)
End While
End If
End Using
cn.Close()