‘ 报表登录服务器方法之一
‘ 直接用CrystalReport登录服务器(未经测试):
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
.........
' 设置登录数据库服务器的登录参数
Private Sub SetDBLogonForReport()
' 已建立的报表CustomersByCity.rpt
Dim CustomerRpt As New CustomersByCity()
Dim tliCurrent As TableLogOnInfo
For Each tbCurrent As Table In CustomerRpt.Database.Tables
tliCurrent = tbCurrent.LogOnInfo
With tliCurrent.ConnectionInfo
.ServerName = ServerName
.UserID = "sa"
.Password = ""
.DatabaseName = "Northwind"
.IntegratedSecurity = False
End With
tbCurrent.ApplyLogOnInfo(tliCurrent)
Next tbCurrent
End Sub
Dim myTableLogOnInfos As TableLogOnInfos = myCrystalReportViewer.LogOnInfo
For Each myTableLogOnInfo As TableLogOnInfo In myTableLogOnInfos
myTableLogOnInfo.ConnectionInfo = myConnectionInfo
Next