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/tutorials/controls/nested-repeater-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
'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
Read Full article Here.
No comments:
Post a Comment
Post your comments here: