E:\web\learnaspcom\htdocs\freebook\learn\ubtoc.xml LearnAsp.com - ASP ASP.net Free Lessons
Search Search

#1 worldwide
FREE Coding Lessons
since 1996
   THE BEST WAY to learn ASP & Asp.net!
Advertise Here!
click for details 		Credits Host:
DiscountASP.net 		Server Admin:
The "Team" 		Contact Info.
Charles M. Carroll 		<Asp.net blog>
<personal site>
xxx

Utility Belt: Search SQLServer Demo
by Charles Carroll

The code below calls "Utility Belt" functions.

The Search Code is one demo of Database "Utility Belt" functionality.

   filename=/experiments/utilitybelt/vercurrent/ubdemo_search_sqlclient.aspx

<Test Script Below>

 

<%@ debug="true" %>
<%@ Assembly src="utilitybelt.vb" %>
<script language="VB" runat="server">
    dim ub1 as new LearnAsp.utilitybelt()
    dim strConnect as string
Sub Page_Load(S As Object, E As EventArgs)
    ub1.Options("Debug-On")
    
    strConnect="LearnaspSamples"

    If ispostback = false
        ub1.DBPopulate(strConnect,"select distinct city from publishers",cy)
        ub1.DBPopulate(strConnect,"select distinct state from publishers",st)
        ub1.DBPopulate(strConnect,"select distinct zip from publishers",zp)
    END IF
    
    ub1.DBPopulate(strConnect,"select count(distinct(city)) as citycount From publishers",cycount)
    ub1.DBPopulate(strConnect,"select count(distinct(state)) as statecount From publishers",stcount)
    ub1.DBPopulate(strConnect,"select count(distinct(zip)) as zipcount From publishers",zpcount)

End Sub
Sub GetResults_Click(S As Object, E As EventArgs)
    Dim strWhereClause as string
    Dim strPrefix as string
    If chkcy.checked=false AND chkst.checked=false AND chkzp.checked=false THEN
        exit sub
    END IF

    IF chkcy.checked THEN
        strWhereClause &= " city='" & cy.selecteditem.text & "' "
        strPrefix=" AND "
    END IF

    IF chkst.checked THEN
        strWhereClause &= strPrefix & " state='" & st.selecteditem.text & "' "
        strPrefix=" AND "
    END IF

    IF chkzp.checked THEN
        strWhereClause &= strPrefix & " zip='" & zp.selecteditem.text & "' "
    END IF
    trace.write ("Sub GetResults_Click", "strWhereClause=" & strWhereClause)
    ub1.DBPopulate(strConnect,"select * from publishers WHERE " & strWhereClause,grdSearchResults)
End Sub
</script>
<html><head>
<title>Utility Belt Demo</title>
</head>
<body bgcolor="#FFFFFF">

<form runat="server">

<asp:Table id="tbltest" runat="server" GridLines="both" BorderWidth="1px">

<asp:TableRow>
    <asp:TableCell>City (<asp:literal id="cycount" runat="server"/>)</asp:TableCell>
    <asp:TableCell><asp:dropdownlist id="cy" datatextfield="city" runat="server" />
</asp:TableCell>
    <asp:TableCell>
<ASP:checkbox id="chkcy" text="include City in Search?" runat="server"/>
</asp:TableCell>
</asp:TableRow>


<asp:TableRow>
    <asp:TableCell>State (<asp:literal id="stcount" runat="server"/>)</asp:TableCell>
    <asp:TableCell><asp:dropdownlist id="st" datatextfield="state" runat="server" />
</asp:TableCell>
    <asp:TableCell>
<ASP:checkbox id="chkst" text="include State in Search?" runat="server"/>
</asp:TableCell>
</asp:TableRow>

<asp:TableRow>
    <asp:TableCell>Zip (<asp:literal id="zpcount" runat="server"/>)</asp:TableCell>
    <asp:TableCell><asp:dropdownlist id="zp" datatextfield="zip" runat="server" />
</asp:TableCell>
    <asp:TableCell>
<ASP:checkbox id="chkzp" text="include Zip in Search?" runat="server"/>
</asp:TableCell>
</asp:TableRow>

<asp:TableRow>
    <asp:TableCell>&nbsp;</asp:TableCell>
    <asp:TableCell>
<ASP:BUTTON text="Get the Results" onclick="getresults_click" runat="server" />
</asp:TableCell>
</asp:TableRow>


</asp:Table>
<asp:datagrid id="grdSearchResults" EnableviewState="false" runat="server" />

</form>
</body></html>
There are many worthy charities!!. But perhaps help starving children in Africa or South America AND help Charles too. a $5 tip buys him lunch at McDonalds, a $20 tip buys his kid Hitoshi a new computer game, a $39 tip buys his daughter Michiko a few nice outfits. See our donor list.