Issue regarding report load

[kamboj.shalabh]

Hi to all,

Well, I am working on dotnet 2005 with crystal reports 10 and backend
as sql server.
I am facing a problem while loading a report.
Actually the issue is, when I load report it takes huge time to load a
report whether it is a 1 page report or thousands page report.
We have migrated the project from VB to VB.NET, in VB its working fine
because in that report is loaded page by page but in VB.NET whole
report is loaded in one go.

I want to improve the performance and want that the report should be
loaded fast in few seconds.
I have used one function which is loading the report every time for
every form.
I am attaching here the function also.
If anyone can provide me with the solution.

Thanks in advance

Here is the function.

Public Sub InitReportLogIn fo(ByVal strReportFileNm As String, Optional
ByVal strParameter As String = "")

flag = True
Dim LogOnInfo As New TableLogOnInfo( )
Dim strFile As String
Dim intCounter As Integer
Dim strParValPair() As String
Dim index As Integer
Dim mrdocls As New ClsResultSetDB
Dim strsql As String
Dim paraValue As New
CrystalDecision s.Shared.Parame terDiscreteValu e 'Parameter value object
of crystal report parameters used for adding the value to parameter.
'Dim strVal() As String
'Dim currValue As
CrystalDecision s.Shared.Parame terValues 'Current parameter
value object(collecti on) of crystal report parameters.
'Dim mySubReportObje ct As
CrystalDecision s.CrystalReport s.Engine.Subrep ortObject 'Sub
report object of crystal report.
Dim mySubRepDoc As New
CrystalDecision s.CrystalReport s.Engine.Report Document 'Sub
report document of crystal report.

Try

strFile = mP_strReportLoc ation & strReportFileNm & ".rpt"
mP_strReportFil eName = strReportFileNm

If IsNothing(mP_Ob jCrystalReport) = True Then
mP_ObjCrystalRe port = New ReportDocument
End If
mP_ObjCrystalRe port.Load(strFi le)
''Code Added By STS as on 23-
Feb-2007=========== =============== ==
If strReportFileNm <"rpt_loc_stk01 500" And
strReportFileNm <"rpt_loc_SPL00 700" Then
mP_ObjCrystalRe port.Refresh()
End If
''Code Ends
Here=========== =============== =============== =========
intCounter =
mP_ObjCrystalRe port.DataDefini tion.ParameterF ields.Count 'Check if
there are parameters or not in report.
'As parameter fields collection also picks the selection
formula which is not the parametermeter, so if total parameter count
is 1 then we check whether, its a parameter or selection formula.
If intCounter = 1 Then
If
InStr(mP_ObjCry stalReport.Data Definition.Para meterFields(0). ParameterFieldN ame,
".", CompareMethod.T ext) 0 Then
intCounter = 0
End If
End If
'If there are parameters in report and user has passed
them then split the
'parameter string and Apply the values, to there concurent
parameters.
If UCase(mP_strRep ortFileName) = "RPT_BOM009 00" Then
If intCounter 0 And Trim(strParamet er) <"" Then
strParValPair = strParameter.Sp lit("&")
For index = 0 To UBound(strParVa lPair)
paraValue.Value = strParValPair(i ndex)
mP_ObjCrystalRe port.SetParamet erValue(index,
paraValue.Value )
Next
End If
End If
With mP_ObjCrystalRe port.DataDefini tion.FormulaFie lds
.Item("Page").T ext = "'" & GetLabelDes(83) & "'"
.Item("Date").T ext = "'" & GetLabelDes(84) & "'"
.Item("Time").T ext = "'" & GetLabelDes(85) & "'"

If Not IsNothing(mP_Lo cfrmRep.UdcView Print1.FormName )
Then
If mP_LocfrmRep.Ud cViewPrint1.For mName.ToString( )
= "frmCPS0050 0" Then
strsql = "select [function],Process_flg from
functionctl where [Function]='TPS'"
If Not mrdocls.GetResu lt(strsql,
AppFunctionModu le.mP_EnmResult Type.IrdOpenKey set,
AppFunctionModu le.mP_EnmLockTy pe.IrdConcurLoc k) Then Exit Sub
If mrdocls.GetValu e("process_flg" ) = "1" Then
.Item("TPS").Te xt = "'" &
GetLabelDes(136 2) & "'"
Else
.Item("TPS").Te xt = "' '"
End If
End If
End If
''Code Ends Here
End With

Call SetReport(LogOn Info, mP_ObjCrystalRe port,
strReportFileNm )
Catch ex As Exception
MsgBox(ex.Messa ge)
flag = False
End Try
End Sub

Waiting for the positive reply ASAP.