Solved

Procedure 'usp_GetDatePeriodFromTo' expects parameter '@YEARMONTH', which was not supplied.

Posted on 2007-03-28
5
251 Views
Last Modified: 2013-11-25
I am using the enterpriselib 2.0

Public Function GetBusinessCalendarPeriod(ByVal DatePeriod As String) As DataTable
           ' DatePeriod is the YearMonth
            Dim retVal As New DataTable("BusinessCalendars")

            Dim cmd As DbCommand
            Dim tmpds As DataSet

            Try
                'We get the divisions
                cmd = dbManager.GetStoredProcCommand("SENZA.dbo.usp_GetDatePeriodFromTo")

                'Temporarilly put the results in a dataset so we can check for valid data
                tmpds = dbManager.ExecuteDataSet(cmd)

                'We must ensure that only one table was returned in the execution of the query
                If tmpds.Tables.Count.Equals(1) Then

                    'We also need to ensure that there is data
                    If tmpds.Tables(0).Rows.Count > 0 Then

                        retVal = tmpds.Tables(0)

                    Else
                        Return retVal
                    End If
                Else
                    Return retVal
                End If

            Catch ex As Exception
                Throw ex
            Finally
                'Cleaning up
                If Not tmpds Is Nothing Then
                    tmpds.Dispose()
                End If

                If Not cmd Is Nothing Then
                    cmd.Dispose()
                End If

            End Try

            Return retVal
        End Function
Procedure 'usp_GetDatePeriodFromTo' expects parameter '@YEARMONTH', which was not supplied.

Private Sub cmdProceed_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdProceed.Click
        _calendar.GetBusinessCalendarPeriod(txtPeriod.Text)
        Response.Write("Calendar")
    End Sub
0
Comment
Question by:mathieu_cupryk
  • 3
  • 2
5 Comments
 
LVL 16

Expert Comment

by:rboyd56
ID: 18810612
Basically the stored procedure you are calling requires the @YEARMONTH parameter and you are not passing it with this command:

 cmd = dbManager.GetStoredProcCommand("SENZA.dbo.usp_GetDatePeriodFromTo")

 'Temporarilly put the results in a dataset so we can check for valid data
  tmpds = dbManager.ExecuteDataSet(cmd)
0
 

Author Comment

by:mathieu_cupryk
ID: 18810685
I am new to this EL 2.0 how do I go about doing so?
0
 
LVL 16

Expert Comment

by:rboyd56
ID: 18810804
You can probably change your code to this. I believe this will do it.


cmd = dbManager.GetStoredProcCommand("SENZA.dbo.usp_GetDatePeriodFromTo")
dbmanager.AddInParameter(cmd, "Year and Month", DbType.DateTime, New DateTime(1997, 1, 1))
'Temporarilly put the results in a dataset so we can check for valid data
  tmpds = dbManager.ExecuteDataSet(cmd)


0
 

Author Comment

by:mathieu_cupryk
ID: 18810857
Dim retVal As New DataTable("BusinessCalendars")

            Dim cmd As DbCommand
            Dim tmpds As DataSet

            Try
                'We get the divisions
                cmd = dbManager.GetStoredProcCommand("SENZA.dbo.usp_GetDatePeriodFromTo")

                dbManager.AddInParameter(cmd, "@YEARMM", DatePeriod)
               
                'Temporarilly put the results in a dataset so we can check for valid data
                tmpds = dbManager.ExecuteDataSet(cmd)

                'We must ensure that only one table was returned in the execution of the query
                If tmpds.Tables.Count.Equals(1) Then

                    'We also need to ensure that there is data
                    If tmpds.Tables(0).Rows.Count > 0 Then

                        retVal = tmpds.Tables(0)

                    Else
                        Return retVal
                    End If
                Else
                    Return retVal
                End If

            Catch ex As Exception
                Throw ex
            Finally
                'Cleaning up
                If Not tmpds Is Nothing Then
                    tmpds.Dispose()
                End If

                If Not cmd Is Nothing Then
                    cmd.Dispose()
                End If

            End Try

            Return retVal
        End Function

    End Class
0
 
LVL 16

Accepted Solution

by:
rboyd56 earned 500 total points
ID: 18810896
Did that work?

If not, look at this URL for the proper syntax:

http://www.daveandal.net/articles/EntLibASPNET/EnterpriseLibraryInASPNET-2.htm
0

Featured Post

PRTG Network Monitor: Intuitive Network Monitoring

Network Monitoring is essential to ensure that computer systems and network devices are running. Use PRTG to monitor LANs, servers, websites, applications and devices, bandwidth, virtual environments, remote systems, IoT, and many more. PRTG is easy to set up & use.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article describes some techniques which will make your VBA or Visual Basic Classic code easier to understand and maintain, whether by you, your replacement, or another Experts-Exchange expert.
If you need to start windows update installation remotely or as a scheduled task you will find this very helpful.
Via a live example, show how to extract information from SQL Server on Database, Connection and Server properties
Via a live example, show how to setup several different housekeeping processes for a SQL Server.

803 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