Solved

Populate asp:dropdownlist with result from StoredProcedure

Posted on 2008-09-30
1
260 Views
Last Modified: 2012-06-27
I have a form with some fields to take input from a user in order to generate a report.
I have a Start and End Date date range, which are parameters to a stored procedure to return the available values in an asp:dropdownlist, for clientname and clientid as the value field.
Eventually, I would like to retrieve the values from javascript calendar selections;
But for now, I would just like this code to work with hard-coded values.....
I hard-coded my start and end date as:  '01/01/2008' and '02/02/2009'.
Attached is my code; but the error is:
Procedure or function 'rsp_cc_clienttype' expects parameter '@startdate', which was not supplied.
But, when I step thru the debugger I set up the parameters correctly AND I think my syntax is correct.

Please Help-
John



Sub GetData()

            Dim ds As New DataSet

            Using da As New SqlClient.SqlDataAdapter("rsp_cc_clienttype", objConn)

                Dim myComm1 As New SqlCommand("rsp_cc_clienttype", objConn)
 

                myComm1.Parameters.Add("@startdate", SqlDbType.SmallDateTime, 6).Value = sdate

                myComm1.Parameters.Add("@enddate", SqlDbType.SmallDateTime, 6).Value = edate
 

                myComm1.CommandType = CommandType.StoredProcedure
 

                da.Fill(ds)
 

                myComm1.ExecuteNonQuery()
 

                'fill clients

                With ddClient

                    .Items.Clear()

                    .DataSource = ds.Tables(0)

                    .DataValueField = "clientid"

                    .DataTextField = "clientname"

                    .DataBind()

                End With
 

                If objConn.State <> ConnectionState.Closed Then

                    objConn.Close()

                End If

                'End Try

            End Using

        End Sub

Open in new window

0
Comment
Question by:jtrapat1
1 Comment
 
LVL 22

Accepted Solution

by:
prairiedog earned 500 total points
Comment Utility
Try this:
Sub GetData()

	Dim ds As New DataSet

	Dim da As New SqlClient.SqlDataAdapter

	

	Dim myComm1 As New SqlCommand("rsp_cc_clienttype", objConn)

	myComm1.CommandType = CommandType.StoredProcedure

	da.SelectCommand = myComm1

	da.SelectCommand.Parameters.AddWithValue("@startdate", sdate)

	da.SelectCommand.Parameters.AddWithValue("@enddate", edate)
 

	da.Fill(ds)
 

	'fill clients

	With ddClient

		.Items.Clear()

		.DataSource = ds.Tables(0)

		.DataValueField = "clientid"

		.DataTextField = "clientname"

		.DataBind()

	End With

	

	da.Dispose()	

End Sub

Open in new window

0

Featured Post

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

The debugging module of the VB 6 IDE can be accessed by way of the Debug menu item. That menu item can normally be found in the IDE's main menu line as shown in this picture.   There is also a companion Debug Toolbar that looks like the followin…
International Data Corporation (IDC) prognosticates that before the current the year gets over disbursing on IT framework products to be sent in cloud environs will be $37.1B.
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Show developers how to use a criteria form to limit the data that appears on an Access report. It is a common requirement that users can specify the criteria for a report at runtime. The easiest way to accomplish this is using a criteria form that a…

763 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now