Removing error message after new search

Question

0.00/5 (No votes)

See more:

Hi,

I am building a search box in my application but i am having an issue with an error message that i set up which will not disappear after a new search is done.

Client Side..

VB

<asp:Label ID="noResultOutput" runat="server"></Label>

Server Side..

VB

Else
    noResultOutput.Text = "No User Account Located"

when the search button is pressed and no user is located my message comes up but if i try another but successful search the error still shows. Can someone help with how i can remove the message upon page refresh and a successful search.

Thank you

my full server side code..

VB

Protected Sub buttonSearch_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles buttonSearch.Click

        Dim dsResults As New DataSet
        Dim dt As DataTableReader


        dsResults = SearchResults(sLoginid.Value.ToString, sfirstName.Value.ToString, slastName.Value.ToString, sEnumber.Value.ToString, sprofNumber.Value.ToString)
        dt = dsResults.CreateDataReader


        Dim tb As New Table
        Dim tr As New TableRow
        Dim tc As New TableCell
        Dim lb As New Label
        Dim bt1 As New HtmlGenericControl("div")
        Dim bt2 As New HtmlGenericControl("div")
        Dim bt3 As New HtmlGenericControl("div")
        Dim iCount As Integer = 1



        tb.CssClass = "tableStyle"
        tb.CellPadding =
        tb.CellSpacing = 0


        If dt.HasRows = True Then

            tr = New TableRow
            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Login ID"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)


            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Staff ID"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Surname"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)


            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "First name"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)


            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Middlename"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "DOB"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Prof Number"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Job Title"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Department"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Site"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)

            tr.CssClass = "tabHeader"
            tc = New TableCell
            lb = New Label

            lb.Text = "Buttons"
            tc.Controls.Add(lb)
            tr.Controls.Add(tc)

            tb.Controls.Add(tr)





            Do While dt.Read


                tr = New TableRow
                'tr.Attributes.Add("onclick", "logId('" & dt.Item("login_id").ToString() & "') ")

                'bt1.Attributes.Add("onclick", "goToEdit('" & dt.Item("login_id").ToString() & "') ")

                If iCount = 1 Then
                    tr.CssClass = "rowStyle1"
                    iCount = 0
                Else
                    tr.CssClass = "rowStyle2"
                    iCount = 1
                End If



                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label



                lb.Text = dt.Item("login_id").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("staff_id").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                ' tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("surname").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("forename").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("middlename").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)


                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label
                Dim dobS() As String
                dobS = Split(dt.Item("date_of_birth").ToString(), " ")
                lb.Text = dobS(0)
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("g_no").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("position").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("location").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'tr = New TableRow
                tc = New TableCell
                tc.CssClass = "rowCell"
                lb = New Label

                lb.Text = dt.Item("site").ToString()
                tc.Controls.Add(lb)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                tc = New TableCell
                tc.CssClass = "rowCell"
                bt1 = New HtmlGenericControl("div")
                bt1.InnerHtml = "<input type=button onclick=editUser('" & dt.Item("login_id").ToString.Replace(" ", "#") & "','" & dt.Item("staff_id").ToString.Replace(" ", "#") & "','" & dt.Item("surname").ToString.Replace(" ", "#") & "','" & dt.Item("forename").ToString.Replace(" ", "#") & "','" & dt.Item("middlename").ToString.Replace(" ", "#") & "','" & dobS(0).Replace(" ", "#") & "','" & dt.Item("gmc_no").ToString.Replace(" ", "#") & "','" & dt.Item("position").ToString.Replace(" ", "#") & "','" & dt.Item("location").ToString.Replace(" ", "#") & "','" & dt.Item("site").ToString.Replace(" ", "#") & "') value='Edit Profile'>"

                'bt2 = New HtmlGenericControl("div")
                'bt2.InnerHtml = "<input type=button onclick=viewSystems('" & dt.Item("login_id").ToString & "') value='View systems'>"

                bt3 = New HtmlGenericControl("div")
                bt3.InnerHtml = "<input type=button onclick=viewSystems('" & dt.Item("login_id").ToString & "') value='View systems'>"

                'bt1.Text = "Edit"
                tc.Controls.Add(bt1)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'bt2.Text = "Delete"
                tc.Controls.Add(bt2)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

                'bt3.Text = "View Systems"
                tc.Controls.Add(bt3)
                tr.Controls.Add(tc)
                tb.Controls.Add(tr)

            Loop
            dt.Close()
            dsResults.Dispose()

            placeResults.Controls.Add(tb)

        Else

            noResultOutput.Text = "No User Account Located"

        End If




        Dim test1 As String = adFunctions.getUsersGroupStatus(Session("sADGroupA").ToString, Session("sUserId"))
        Dim test2 As String = adFunctions.getUsersGroupStatus(Session("sADGroupRW").ToString, Session("sUserId"))
        Dim test3 As String = adFunctions.getUsersGroupStatus(Session("sADGroupRO").ToString, Session("sUserId"))


        If test1 = "Y" And test2 = "N" And test3 = "N" Then
            adNewUser.Visible = True

        ElseIf test1 = "N" And test2 = "Y" And test3 = "N" Then
            adNewUser.Visible = True

        ElseIf test1 = "N" And test2 = "N" And test3 = "Y" Then
            adNewUser.Visible = False

        End If

Posted 19-Jan-15 21:47pm

Member 11355710

Updated 19-Jan-15 21:55pm

v2

Add a Solution

Comments

Joezer BH 20-Jan-15 3:51am

Show some more of your code so that we can suggest a solution relevant to it.

Member 11355710 20-Jan-15 3:55am

I have added my full code server side hope this helps

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Richard Deeming · Accepted Answer · 2015-01-19T22:21:00

Solution 1

Try clearing the label's text in the If branch:

VB.NET

    ...
    noResultOutput.Text = String.Empty
Else
    noResultOutput.Text = "No User Account Located"
End If

Posted 19-Jan-15 22:21pm

Richard Deeming

Comments

Member 11355710 20-Jan-15 4:31am

Perfect thank you so much