Dim cryRpt As New ReportDocument Dim crtableLogoninfos As New TableLogOnInfos Dim crtableLogoninfo As New TableLogOnInfo Dim crConnectionInfo As New ConnectionInfo Dim CrTables As Tables Dim CrTable As Table 'Dim crParameterDiscreteValue As ParameterDiscreteValue 'Dim crParameterFieldDefinitions As ParameterFieldDefinitions 'Dim crParameterFieldLocation As ParameterFieldDefinition 'Dim crParameterValues As ParameterValues cryRpt.Load("AlmaRTGv3.rpt") MsgBox("Parameter Start") crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields crParameterFieldLocation = crParameterFieldDefinitions.Item("schema") crParameterValues = crParameterFieldLocation.CurrentValues crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue crParameterDiscreteValue.Value = "CQ_IND_PUN_SSC_SSC" crParameterValues.Add(crParameterDiscreteValue) crParameterFieldLocation.ApplyCurrentValues(crParameterValues) MsgBox("Parameter 1") crParameterFieldLocation = crParameterFieldDefinitions.Item("Domain Name") crParameterValues = crParameterFieldLocation.CurrentValues crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue crParameterDiscreteValue.Value = "IND_PUN_SSC" crParameterValues.Add(crParameterDiscreteValue) crParameterFieldLocation.ApplyCurrentValues(crParameterValues) MsgBox("Parameter 2") crParameterFieldLocation = crParameterFieldDefinitions.Item("Project Name") crParameterValues = crParameterFieldLocation.CurrentValues crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue crParameterDiscreteValue.Value = "SSC" crParameterValues.Add(crParameterDiscreteValue) crParameterFieldLocation.ApplyCurrentValues(crParameterValues) MsgBox("Parameter 3") Try With crConnectionInfo .ServerName = "160.92.208.96:1525" .DatabaseName = "IBMRCQ" .UserID = "IBM_RO" .Password = "IBM_RO" End With MsgBox("Connection") MsgBox(crConnectionInfo.DatabaseName) CrTables = cryRpt.Database.Tables For Each CrTable In CrTables crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) Next 'cryRpt.SetParameterValue(0, "CQ_IND_PUN_SSC_SSC") 'cryRpt.SetParameterValue(1, "IND_PUN_SSC") 'cryRpt.SetParameterValue(2, "SSC") CrystalReportViewer1.ReportSource = cryRpt CrystalReportViewer1.Refresh() Catch ex As Exception MsgBox(ex.Message) End Try
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)