|
pls help me out iam getting exception
ex = {"Unknown error 0x80040200"}
while loading repot
on following line
objReportDoc.Load(myInfoObject, myEnterpriseSession)
my complete code is
# Region " Imports "
Imports CrystalDecisions.CrystalReports.Engine
Imports Crystaldecisions.reportsource
Imports Crystaldecisions.shared
Imports System.Configuration.ConfigurationSettings
Imports CrystalDecisions.Enterprise
Imports CrystalDecisions.Web
Imports EDF.Utility
Imports EDF.ExLog
# End Region
Public Class Web_DWH_LC_ReportsOutput
Inherits System.Web.UI.Page
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Try
Dim objReportDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument
'Code added for Crystal Report Server Enterprise
Dim mySessionMgr As New SessionMgr
Dim myEnterpriseSession As EnterpriseSession
Dim myEnterpriseService As EnterpriseService
Dim queryString As String
Dim strparam As String
Dim strparams() As String = Nothing
Dim frmDate As String = ""
Dim toDate As String = ""
myEnterpriseSession = mySessionMgr.Logon( "Admin", "", "hddlgsdmnk9200", "secEnterprise")
myEnterpriseService = myEnterpriseSession.GetService( "InfoStore")
Dim myInfoStore As New InfoStore(myEnterpriseService)
queryString = "SELECT * FROM CI_INFOOBJECTS WHERE SI_KIND = 'Folder' AND SI_NAME = 'IOWA_DWHDEV' "
Dim myInfoObjects1 As InfoObjects = myInfoStore.Query(queryString)
Dim myInfoObject1 As InfoObject = myInfoObjects1(1)
Dim id As Integer = myInfoObject1.ID
queryString = "Select SI_KIND,SI_CUID,SI_RUID,SI_PARENT_CUID,SI_GUID,SI_DESCRIPTION From CI_INFOOBJECTS Where SI_PROGID='CrystalEnterprise.Report' And SI_NAME = 'APPEAL_REPORT.rpt' and SI_PARENT_FOLDER = " + id.ToString()
Dim myInfoObjects As InfoObjects = myInfoStore.Query(queryString)
Dim myInfoObject As InfoObject = myInfoObjects(1)
objReportDoc.Load(myInfoObject, myEnterpriseSession)
strparam = Request.QueryString( "rptParam")
strparams = strparam.Split( ";".ToCharArray)
frmDate = strparams(0)
toDate = strparams(1)
Catch ex As Exception
Logger.Log(ex.StackTrace)
Finally
End Try
End Sub
Private Sub CrvLICReportViewer_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles CrvLICReportViewer.Unload
Private Sub Page_Unload(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Unload
CrvLICReportViewer.Dispose()
GC.WaitForPendingFinalizers()
GC.Collect()
End Sub
End Class
|