VB.NET

Search Button..Plz Help

Please support our VB.NET advertiser: Programming Forums - DaniWeb Sister Site

•

Join Date: Sep 2007

Posts: 72

Reputation: geetajlo is an unknown quantity at this point

Solved Threads: 0

geetajlo

Offline

Junior Poster in Training

Search Button..Plz Help

Oct 16th, 2007

hi can anyone help me . when the user enter the name in a textbox and click the search button, the output should be display in the datagrid... Help plz have to submit my project in 8 days

•

Join Date: Dec 2006

Posts: 645

Reputation: binoj_daniel is an unknown quantity at this point

Solved Threads: 17

binoj_daniel binoj_daniel is offline

Offline

DaniWeb Expert

Re: Search Button..Plz Help

Oct 16th, 2007

This is pretty easy to do. You can tie the DataGrid to the filter function and pass textbox as a paramter to filter records on the Grid

Binoj Daniel
Best Place to hunt for Code | Quality Web Designing | Custom Software

•

Join Date: Jun 2007

Posts: 82

Reputation: preetham.saroja is an unknown quantity at this point

Solved Threads: 1

preetham.saroja preetham.saroja is offline

Offline

Junior Poster in Training

Re: Search Button..Plz Help

Oct 18th, 2007

just paste this code:::
Protected Sub btnchk_name_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnchk_name.Click
Dim str As String = "select ID from table1 where ID = '" & txtid.Text & "'"
Dim con As String = ConfigurationManager.AppSettings("preeconn")
Dim com As New SqlCommand(str, New SqlConnection(con))
com.Connection.Open()
Dim da As New SqlDataAdapter(str, con)
Dim dr As SqlDataReader
dr = com.ExecuteReader 'where sqldatareader ain't run without using
If Not dr.Read() Then
datagrid.datasource=com.executereader()
datagrid.databind()
End If
End Sub
-----------

•

Join Date: Aug 2009

Posts: 2

Reputation: nduduzo is an unknown quantity at this point

Solved Threads: 0

nduduzo

Offline

Newbie Poster

Re: Search Button..Plz Help

Aug 26th, 2009

is this code applicable to OleDb? because i've tried it Substituting with OleDb, but it seems not to work. here is my code including myDataConnectio. plz help agentely im in a tight position

 Help with Code Tags 
 VB.NET Syntax (Toggle Plain Text) 
Protected Sub txtSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.Click
        Dim sql As String = "SELECT * FROM new_bug WHERE Status='" & txtStatus2.Text & "'"
        Dim cmnd As New OleDbCommand(sql, CreateOleDbConnection)
        Dim da As New OleDbDataAdapter(sql, CreateOleDbConnection)
        Dim dr As OleDbDataReader = cmnd.ExecuteReader
        If Not dr.Read() Then
            GridBugList.DataSource = cmnd.ExecuteReader()
            GridBugList.DataBind()
        End If
    End Sub
 
    Public Function CreateOleDbConnection() As OleDbConnection
        Dim myConnString As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + Server.MapPath("~/App_Data/bug_base.mdb")
        Dim myConnection As New OleDbConnection(myConnString)
        myConnection.Open()
        Return myConnection
    End Function
Protected Sub txtSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtSearch.Click
        Dim sql As String = "SELECT * FROM new_bug WHERE Status='" & txtStatus2.Text & "'"
        Dim cmnd As New OleDbCommand(sql, CreateOleDbConnection)
        Dim da As New OleDbDataAdapter(sql, CreateOleDbConnection)
        Dim dr As OleDbDataReader = cmnd.ExecuteReader
        If Not dr.Read() Then
            GridBugList.DataSource = cmnd.ExecuteReader()
            GridBugList.DataBind()
        End If
    End Sub

    Public Function CreateOleDbConnection() As OleDbConnection
        Dim myConnString As String = "Provider=Microsoft.Jet.OleDb.4.0;Data Source=" + Server.MapPath("~/App_Data/bug_base.mdb")
        Dim myConnection As New OleDbConnection(myConnString)
        myConnection.Open()
        Return myConnection
    End Function