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
http://www.aspnettutorials.com/tutor...peater-vb.aspx. 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.
spElectionResults
CREATE PROCEDURE [dbo].[spElectionResults] AS
SET NOCOUNT OFF
SELECT ContestID, ContestTitle
FROM tblElectionResults
WHERE (VoteFor <> '00')
GROUP BY ContestID, ContestTitle
HAVING (COUNT(ContestID) >= 1)
ORDER BY ContestTitle ASC, ContestID ASC
SET NOCOUNT ON
GO
contests.aspx.vb
Code:
'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
sqlConn.Open()
'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
cmd_electionresults.ExecuteNonQuery()
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
dr.Close()
'Close DB connection
sqlConn.Close()
End Sub
KWilliams