Loading a Crystal 11 Report.

[mike55]

Hi all

 

I am after creating a report in crystal 11 (trial version), I have unticked the option that saves the data with the report. I am trying to load the report using the code that I have used with crystal reports generated in visual studio.net. My problem is that the report is loading blank, what am I doing wrong?

 

Here is the code that I am using:

 Private Sub GenerateReport()

       Dim crystalServer As String = ConfigurationManager.ConnectionStrings("SERVER").ToString
       Dim count As Int16 = 0

start:
       oRpt = New ReportDocument
       Dim util As New Utility
       Dim rptPath As String = Nothing
       Dim requestedHostAddress As String
       requestedHostAddress = Request.UserHostAddress

       'Get Report path
       rptPath = Server.MapPath("rptMembers.rpt")
       'check the exitence of the file
       If Len(rptPath) = 0 Then
           Exit Sub
       End If
       oRpt.Load(rptPath)
   
       oRpt.DataDefinition.FormulaFields("Org").Text = "'" + Session("OrgID") + "'"
       oRpt.DataDefinition.FormulaFields("Active").Text = "'" + Request.QueryString("Active") + "'"
       oRpt.DataDefinition.FormulaFields("User").Text = "'" + Request.QueryString("by").Replace("'", "`") + "'"
       Try
           ' Generate report  and Export as PDF file
           Dim crLogonInfo As CrystalDecisions.Shared.TableLogOnInfo
           crLogonInfo = oRpt.Database.Tables(0).LogOnInfo
           crLogonInfo.ConnectionInfo.ServerName = crystalServer
           crLogonInfo.ConnectionInfo.DatabaseName = ConfigurationManager.ConnectionStrings("DBNAME").ToString
           crLogonInfo.ConnectionInfo.UserID = ConfigurationManager.ConnectionStrings("USER").ToString
           crLogonInfo.ConnectionInfo.Password = ConfigurationManager.ConnectionStrings("PASS").ToString
           oRpt.Database.Tables(0).ApplyLogOnInfo(crLogonInfo)

           ' Varables here are used to export the report to PDF
           Dim myExportOptions As CrystalDecisions.Shared.ExportOptions
           Dim myDiskFilesDestinationOptions As CrystalDecisions.Shared.DiskFileDestinationOptions
           Dim myExportFile As String

           myExportFile = "C:\temp\PDF " & Session.SessionID.ToString & ".pdf"
           myDiskFilesDestinationOptions = New CrystalDecisions.Shared.DiskFileDestinationOptions
           myDiskFilesDestinationOptions.DiskFileName = myExportFile
           myExportOptions = oRpt.ExportOptions

           ' Proceed with the Export
           With myExportOptions
               .DestinationOptions = myDiskFilesDestinationOptions
               .ExportDestinationType = CrystalDecisions.Shared.ExportDestinationType.DiskFile
               .ExportFormatType = CrystalDecisions.Shared.ExportFormatType.PortableDocFormat
           End With

           oRpt.Export()

           ' Clean up resources used
           Response.ClearContent()
           Response.ClearHeaders()
           Response.ContentType = "application/pdf"
           Response.WriteFile(myExportFile)
           Response.Flush()
           Response.Close()

           ' Delete the temporary file
           System.IO.File.Delete(myExportFile)

       Catch ex As Exception
           oRpt.Dispose()
           If count <= 1 Then
               crystalServer = ConfigurationManager.ConnectionStrings("SERVER_FAILOVER").ToString
               count = +1
           End If
           GoTo start
       End Try
   End Sub

[mike55]

Issue solved.