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