Link to home
Start Free TrialLog in
Avatar of mathieu_cupryk
mathieu_cuprykFlag for Canada

asked on

Return retval into a datatable in cmdproceed_click

     I have the following datatable that is returned.
      
      Period_NBR  BEGIN_PRD                   END_PRD
      200606          07/02/2006 12:00:00 AM      07/29/2006 12:00:00 AM
      
      
       Private Sub cmdProceed_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdProceed.Click
              _calendar.GetBusinessCalendarPeriod(txtPeriod.Text)
         End Sub
         
         
         I have to define a datatable in the cmdProceed to get the information from    _calendar.GetBusinessCalendarPeriod(txtPeriod.Text)

         --------------------------------------------------------------------------------------------------------
         Private Sub cmdProceed_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles cmdProceed.Click
           Dim dt As Datatable
                             _calendar.GetBusinessCalendarPeriod(txtPeriod.Text)
              What do I do here.
                   

      
           End Sub
          
           ------------------------------------------------------------------------------------------------------
       Public Function GetBusinessCalendarPeriod(ByVal DatePeriod As String) As DataTable
      
                   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, "@YEARMONTH", DbType.String, 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
-------------------------------------------------------------------
ASKER CERTIFIED SOLUTION
Avatar of YZlat
YZlat
Flag of United States of America image

Link to home
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
Start Free Trial
Avatar of mathieu_cupryk

ASKER

Error      108      End of statement expected.      C:\SourceControl_mcupryk\InHouseDev\APPS\MKT0003 - CustomerList\src\CustomerList\MainPage.aspx.vb      58      33      http://localhost/CustomerList/
End of statement expected.?
Dim dt As New DataTable
        dt = _calendar.GetBusinessCalendarPeriod(txtPeriod.Text)
two lines