.NET Tutorials, Forums, Interview Questions And Answers
Welcome :Guest
 
Sign In
Register
 
Win Surprise Gifts!!!
Congratulations!!!


Top 5 Contributors of the Month
david stephan

Home >> Code Snippets >> Windows Form Controls >> Post New Resource Bookmark and Share   

 Subscribe to Code Snippets

Search records using textbox in vb.net

Posted By:satyapriyanayak       Posted Date: March 11, 2013    Points: 40    Category: Windows Form Controls    URL: http://www.dotnetspark.com  

Search records using textbox in vb.net
 

Here we will search records from database using textbox and show respective data in the datagridview in three different ways.

1.Enter the know data in the textbox and click the search button to display respective data from the datagridview.

2.Enter the first letter of the unknown data in the textbox and all data relating data to that letter will be shown in the datagridview, so that we can able to search our own data.

3.Enter the know data in the textbox and find its all related data in the datagridview

Program

Imports System.Data

Imports System.Data.OleDb



Public Class Form1

    Dim ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")

    Dim con As OleDbConnection = New OleDbConnection(ConnectionString)

    Dim com As OleDbCommand

    Dim oledbda As OleDbDataAdapter

    Dim ds As DataSet

    Dim dt As DataTable

    Dim str As String



    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If TextBox1.Text = "" Then

            ErrorProvider1.SetError(TextBox1, "please provide name")

        Else

            Try

                con.Open()

                str = "select * from student where sname ='" & TextBox1.Text & "'"

                com = New OleDbCommand(str, con)

                oledbda = New OleDbDataAdapter(com)

                ds = New DataSet

                oledbda.Fill(ds, "student")

                con.Close()

                DataGridView1.DataSource = ds

                DataGridView1.DataMember = "student"

            Catch ex As Exception

                MsgBox(ex.Message)

            End Try

        End If

        TextBox1.Clear()

        DataGridView1.Visible = True

    End Sub



    Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged

        If TextBox2.Text = "" And TextBox2.Text.Length = 0 Then

            DataGridView1.Visible = False

        Else

            Try

                con.Open()

                str = "select * from student where sname like '" & TextBox2.Text & "%'"

                com = New OleDbCommand(str, con)

                oledbda = New OleDbDataAdapter(com)

                ds = New DataSet

                oledbda.Fill(ds, "student")

                con.Close()

                DataGridView1.DataSource = ds

                DataGridView1.DataMember = "student"

                DataGridView1.Visible = True

            Catch ex As Exception

                MsgBox(ex.Message)

            End Try

        End If

    End Sub



    Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged

        Try

            con.Open()

            str = "select * from student where sname ='" & TextBox3.Text & "'"

            com = New OleDbCommand(str, con)

            oledbda = New OleDbDataAdapter(com)

            ds = New DataSet

            oledbda.Fill(ds, "student")

            con.Close()

            DataGridView1.DataSource = ds

            DataGridView1.DataMember = "student"

            DataGridView1.Visible = True

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try





    End Sub



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

        DataGridView1.Visible = False

    End Sub

End Class

     

Further Readings:

Responses

No response found. Be the first to respond this post

Post Comment

You must Sign In To post reply
Find More code samples in C#, ASP.Net, Vb.Net and more Here

Hall of Fame    Twitter   Terms of Service    Privacy Policy    Contact Us    Archives   Tell A Friend