Crystal Reports ex = {"Unknown error 0x80040200"}

Message


   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


Edited by Arpit.Rohatgi - 28 Sep 2010 at 6:08pm