CrystalReport1.Database.Tables.SetLogOnInfo pServerName As String, [pDatabaseName], [pUserID], [pPassword]
你用的如果是crystal report9的话,使用Database 对象 dim report as CRAXDDRT.report dim Database as CRAXDDRT.Database dim rs as ADODB.Recordset set rs=new ADODB.Recoedset rs.open ... Set Database=m_report.Database Database.SetDatasource rs,3,1
CRTest.rpt是已做好的模板 Set CRYAT = New CRAXDRT.Application Set Report = CRYAT.OpenReport(App.Path + "\CryRpt\CRTest.rpt") Call Report.ParameterFields(1).AddCurrentValue("01") Call Report.ParameterFields(2).AddCurrentValue("02") Dim CPProperty As CRAXDRT.ConnectionProperty Dim DBTable As CRAXDRT.DatabaseTable
Set DBTable = Report.Database.Tables(1) Set CPProperty = DBTable.ConnectionProperties("DSN")
Set CPProperty = DBTable.ConnectionProperties("User ID") CPProperty.Value = "用户名"
Set CPProperty = DBTable.ConnectionProperties("Password") CPProperty.Value = "密码"
我用的是CRY9 ADV的版本
[pDatabaseName], [pUserID], [pPassword]
dim report as CRAXDDRT.report
dim Database as CRAXDDRT.Database
dim rs as ADODB.Recordset
set rs=new ADODB.Recoedset
rs.open ...
Set Database=m_report.Database
Database.SetDatasource rs,3,1
Set Report = CRYAT.OpenReport(App.Path + "\CryRpt\CRTest.rpt") Call Report.ParameterFields(1).AddCurrentValue("01")
Call Report.ParameterFields(2).AddCurrentValue("02") Dim CPProperty As CRAXDRT.ConnectionProperty
Dim DBTable As CRAXDRT.DatabaseTable
Set DBTable = Report.Database.Tables(1)
Set CPProperty = DBTable.ConnectionProperties("DSN")
Set CPProperty = DBTable.ConnectionProperties("User ID")
CPProperty.Value = "用户名"
Set CPProperty = DBTable.ConnectionProperties("Password")
CPProperty.Value = "密码"
CRViewer91.ViewReport另:用LogOnServer后也还会提示输入密码的