View Single Post
  #1 (permalink)  
Old July 21st, 2008, 02:59 PM
kwilliams kwilliams is offline
Points: 1,561, Level: 16
Points: 1,561, Level: 16 Points: 1,561, Level: 16 Points: 1,561, Level: 16
Activity: 0%
Activity: 0% Activity: 0% Activity: 0%
Join Date: Jul 2005
Location: , , .
Posts: 317
Thanks: 0
Thanked 0 Times in 0 Posts
Default Nested Repeater Using Stored Procedure

I found a great tutorial on how to use the nested Repeater control to display hierarchical data using ASP.NET 2.0 and VB.NET at But it uses SELECT statements within the codefile, while I want to use stored procedures instead. So if someone could give me a basic example of how to modify its code using stored procedures instead, it would be greatly appreciated. I've included the code to reference that I've already created that uses stored procedures. Thanks.

CREATE PROCEDURE [dbo].[spElectionResults] AS


SELECT ContestID, ContestTitle
FROM tblElectionResults
WHERE (VoteFor <> '00')
GROUP BY ContestID, ContestTitle
HAVING (COUNT(ContestID) >= 1)
ORDER BY ContestTitle ASC, ContestID ASC


'Declare global variables
    Dim sqlConn As SqlConnection
    Dim strConnection As String
    Public dr As SqlDataReader

    'Declare the parameters for stored procedures
    Private cmd_electionresults As New SqlCommand()

    Sub Page_Load(ByVal Sender As Object, ByVal E As EventArgs)

        Dim ds As New DataSet

        'Assign connection string
        strConnection = System.Configuration.ConfigurationManager.AppSettings("strConn")
        sqlConn = New SqlConnection(strConnection)

        'Open DB connection

        'Declare variables
        Dim strContestID As String = Nothing, strContestTitle As String = Nothing

        'Declare stored procedure
        cmd_electionresults = New SqlCommand("spElectionResults", sqlConn)
        cmd_electionresults.CommandType = CommandType.StoredProcedure

        'Execute stored procedure and data reader
        dr = cmd_electionresults.ExecuteReader()

        While dr.Read()
            'Assign variables from DB table
            strContestID = dr("ContestID").ToString()
            strContestTitle = dr("ContestTitle").ToString()

            'Trim trailing whitespace from address variables
            strContestID = strContestID.Trim
            strContestTitle = strContestTitle.Trim

            'Test variables
            'Response.Write("strContestID: " & strContestID & "<br />")
            'Response.Write("strContestTitle: " & strContestTitle & "<br />")

            'Assign labels
            lblContestID.Text = strContestID
            lblContestTitle.Text = strContestTitle
        End While


        'Close DB connection

    End Sub