Làm thế nào để programatically xuất báo cáo tinh thể dưới dạng PDF trong 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

Tôi đã thử các mã trên. Tôi có một Windows Form và một tập tin báo cáo Crystal (cr.rpt) trong thư mục dự án của tôi. Tôi đang sử dụng Oracle 10G làm cơ sở dữ liệu. Nhưng tôi nhận được thông báo lỗi "Đăng nhập không thành công". ([Mô tả lỗi] Hình ảnh: http://pho.to/Zv6t)

Xin giúp đỡ.

Answer 1

Cuối cùng tìm thấy giải pháp từ here

Điều duy nhất là, tôi cần phải thiết lập các thông tin cơ sở dữ liệu trong thời gian chạy cho Crystal Report để hoạt động tốt.

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

Answer 2

Vấn đề thường gặp này chỉ xảy ra với phiên bản cũ hơn của người gọi CrystalReports từ VB đến .Net world.

Không có gì phải lo lắng. Vui lòng sử dụng như thế này .........

connectionInfo.DatabaseName = "MahendrenDataBase" 

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

connectionInfo.UserID = "UID"; 

connectionInfo.Password="Pwd" 

Answer 3

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Dim rpt As New RptCashbill

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