Come esportare programatically rapporto di cristallo in formato PDF in VB.NET

Question

Imports CrystalDecisions.CrystalReports.Engine 
Imports CrystalDecisions.Shared 
Imports CrystalDecisions.Web 
Imports CrystalDecisions.ReportSource 
Imports CrystalDecisions.CrystalReports 

Imports System.IO 
Imports System.Net 
Imports System.Net.Mail 

Public Class Form1 

Dim cryRpt As New ReportDocument 

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 

    cryRpt.Load("C:\Documents and Settings\Prs1\My Documents\Visual Studio 2008\Projects\myCR\myCR\cr.rpt") 
    CrystalReportViewer1.ReportSource = cryRpt 

    CrystalReportViewer1.Refresh() 

    Try 
     Dim CrExportOptions As ExportOptions 
     Dim CrDiskFileDestinationOptions As New _ 
     DiskFileDestinationOptions() 
     Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions() 
     CrDiskFileDestinationOptions.DiskFileName = _ 
            "C:\crystalExport.pdf" 
     CrExportOptions = cryRpt.ExportOptions 
     With CrExportOptions 
      .ExportDestinationType = ExportDestinationType.DiskFile 
      .ExportFormatType = ExportFormatType.PortableDocFormat 
      .DestinationOptions = CrDiskFileDestinationOptions 
      .FormatOptions = CrFormatTypeOptions 
     End With 
     cryRpt.Export() 
    Catch ex As Exception 
     MsgBox(ex.ToString) 
    End Try 

End Sub 

End Class

ho provato il codice di cui sopra. Ho un Windows Form e un singolo file di report Crystal (cr.rpt) nella mia cartella di progetto. Sto usando Oracle 10G come database. Ma sto ricevendo un errore che dice che "Logon Failed". ([Descrizione errore] Immagine: http://pho.to/Zv6t)

Pls do help.

Answer 1

finalmente trovato la soluzione da here

L'unica cosa che è, ho bisogno di impostare le credenziali di database in fase di esecuzione per il Crystal Report funzionare bene.

cryRpt.SetDatabaseLogon("user", "password", "server", "database") 

Answer 2

Questo normale problema si verifica solo nella versione precedente del chiamante CrystalReports da VB a .Net world.

Niente di cui preoccuparsi. Si prega di utilizzare come questo .........

connectionInfo.DatabaseName = "MahendrenDataBase" 

connectionInfo.ServerName ="SystemDSN";//Create a system dsn. 

connectionInfo.UserID = "UID"; 

connectionInfo.Password="Pwd" 

Answer 3

Importazioni CrystalDecisions.CrystalReports.Engine

Importazioni CrystalDecisions.Shared

Dim rpt come nuovo RptCashbill

 ''''''fill Report data'''''' 
    CType(rpt,ReportDocument).ExportToDisk(ExportFormatType.PortableDocFormat,"C:/Report.pdf")