直连数据库拉模式(PULL)的水晶报表编程实现之极简教程

拉模式也就是最基本的水晶报表***方法，直接连接数据库生成报表。

这个代码其实在水晶报表自带的示例里有的，这里再拿出来讲一下。



创建报表时，输入了数据库服务器的相关参数





但是执行后，出现如下信息提示。您请求的报表需要更多信息。



此时编辑aspx页面对应的代码，将数据库的认证信息赋过去就行了。

代码为：



Imports CrystalDecisions.Shared

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Web

Partial Class _Default

Inherits System.Web.UI.Page

Private myReport As ReportDocument

Private Sub ConfigureCrystalReports()

Dim myConnectionInfo As ConnectionInfo = New ConnectionInfo()

myConnectionInfo.DatabaseName = "xxxx"

myConnectionInfo.UserID = "xxx"

myConnectionInfo.Password = "xxxx"

myConnectionInfo.ServerName = "xxxx"

myReport = New ReportDocument()

Dim reportPath As String = Server.MapPath("crystalreport1.rpt")

myReport.Load(reportPath)

CrystalReportViewer1.ReportSource = myReport

SetDBLogonForReport(myConnectionInfo, myReport)

End Sub

Private Sub SetDBLogonForReport(ByVal myConnectionInfo As ConnectionInfo, ByVal myReportDocument As ReportDocument)

Dim myTables As Tables = myReportDocument.Database.Tables

For Each myTable As CrystalDecisions.CrystalReports.Engine.Table In myTables

Dim myTableLogonInfo As TableLogOnInfo = myTable.LogOnInfo

myTableLogonInfo.ConnectionInfo = myConnectionInfo

myTable.ApplyLogOnInfo(myTableLogonInfo)

Next

End Sub

Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init

ConfigureCrystalReports()

End Sub

End Class