直连数据库拉模式(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