01.
Dim
cryRpt
As
New
ReportDocument()
02.
Dim
crtableLogoninfos
As
New
TableLogOnInfos()
03.
Dim
crtableLogoninfo
As
New
TableLogOnInfo()
04.
Dim
crConnectionInfo
As
New
ConnectionInfo()
05.
Dim
CrTables
As
Tables
06.
07.
cryRpt.Load(MapPath(
"CrystalReport.rpt"
))
08.
crConnectionInfo.ServerName =
"ICELand"
09.
crConnectionInfo.DatabaseName =
"MiniOPT"
10.
crConnectionInfo.UserID =
"sa"
11.
crConnectionInfo.Password =
"121212"
12.
13.
CrTables = cryRpt.Database.Tables
14.
For
Each
CrTable
As
CrystalDecisions.CrystalReports.Engine.Table
In
CrTables
15.
crtableLogoninfo = CrTable.LogOnInfo
16.
crtableLogoninfo.ConnectionInfo = crConnectionInfo
17.
CrTable.ApplyLogOnInfo(crtableLogoninfo)
18.
Next
19.
20.
CrystalReportViewer1.ReportSource = cryRpt
21.
CrystalReportViewer1.RefreshReport()