Quantcast
Channel: Crystal Reports
Viewing all articles
Browse latest Browse all 1507

crystal report not displaying on website hosting server

$
0
0

Good Day all,

I have hosted several reports on my hosting server, and two of these reports are displaying well, but trying to add additional reports to the website, it just doesnot display. This new report is built the same way and process by which i built the ones working. And one funny thing is that all the reports work very well locally in my visual studio. The path to these reports are the same. Please what could be the problem, has anyone encountered this kind of problem before?

Here are the codes for the working reports

Private Sub LoadRadioWatchDogReportAllZones()
        Try
            objReports.Load(Server.MapPath("~/Reports/crpWatchDogRadio.rpt"))
            objAdvertizerParam = objReports.ParameterFields("@AdvertizerId")
            objBeginDateParam = objReports.ParameterFields("@BeginDate")
            objEndDateParam = objReports.ParameterFields("@EndDate")
            objBrandParam = objReports.ParameterFields("@Brand")
            objIdentifierParam = objReports.ParameterFields("@Identifiers")
            objStationsParam = objReports.ParameterFields("@Stations")

            objAdvertizerParam.CurrentValues.AddValue(Session("ClientId"))
            objBeginDateParam.CurrentValues.AddValue(BeginDate)
            objEndDateParam.CurrentValues.AddValue(EndDate)

            Dim objBrandValues As ParameterValues = New ParameterValues()
            For Each item As Object In objBrandLists
                Dim objDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()
                objDiscreteValue.Value = item.ToString
                objBrandValues.Add(objDiscreteValue)
            Next
            objBrandParam.CurrentValues = objBrandValues

            Dim objIdentifiersValues As ParameterValues = New ParameterValues()
            For Each item As Object In objBrandIdentifierLists
                Dim objDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()
                objDiscreteValue.Value = item.ToString
                objIdentifiersValues.Add(objDiscreteValue)
            Next
            objIdentifierParam.CurrentValues = objIdentifiersValues

            Dim objStationsValues As ParameterValues = New ParameterValues()
            For Each item As Object In objStationsLists
                Dim objDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()
                objDiscreteValue.Value = item.ToString
                objStationsValues.Add(objDiscreteValue)
            Next
            objStationsParam.CurrentValues = objStationsValues

            CrystalReportViewer1.ReportSource = objReports
        Catch ex As Exception

        End Try
    End Sub

And here is the code for the one not working, please is there any difference in this?

Private Sub LoadWatchdogReportPressAllZones()
        Try
            objReports.Load(Server.MapPath("~/Reports/crpWatchDogPress.rpt"))
            objAdvertizerParam = objReports.ParameterFields("@AdvertizerId")
            objBeginDateParam = objReports.ParameterFields("@BeginDate")
            objEndDateParam = objReports.ParameterFields("@EndDate")
            objBrandParam = objReports.ParameterFields("@Brand")
            objIdentifierParam = objReports.ParameterFields("@Identifiers")

            objAdvertizerParam.CurrentValues.AddValue(Session("ClientId"))
            objBeginDateParam.CurrentValues.AddValue(dteBeginDate.ToLongDateString)
            objEndDateParam.CurrentValues.AddValue(dteEndDate.ToLongDateString)

            Dim objBrandValues As ParameterValues = New ParameterValues()
            For Each item As Object In objBrandLists
                Dim objDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()
                objDiscreteValue.Value = item.ToString
                objBrandValues.Add(objDiscreteValue)
            Next
            objBrandParam.CurrentValues = objBrandValues

            Dim objIdentifiersValues As ParameterValues = New ParameterValues()
            For Each item As Object In objBrandIdentifierLists
                Dim objDiscreteValue As ParameterDiscreteValue = New ParameterDiscreteValue()
                objDiscreteValue.Value = item.ToString
                objIdentifiersValues.Add(objDiscreteValue)
            Next
            objIdentifierParam.CurrentValues = objIdentifiersValues

            CrystalReportViewer1.ReportSource = objReports
        Catch ex As Exception

        End Try
    End Sub

Thanks

Tim


Viewing all articles
Browse latest Browse all 1507

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>