Imports System.Data.SqlClient Imports CrystalDecisions.CrystalReports.Engine Imports CrystalDecisions.Shared Imports System.Configuration Public Class CR Public Sname As String Public Dbname As String Public Uname As String Public Pwd As String Public kid As Integer Public oid As Integer Private _passedText(180) As String Public Property [PassedText]() As String() Get Return _passedText End Get Set(ByVal Value As String()) _passedText = Value End Set End Property Private Sub CR_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load 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 cryRpt.Load("Reports/CrystalReport5.rpt") '*************************************************************** Dim conn = New SqlClient.SqlConnection conn = New SqlConnection(Form1.DS2) Dim crParameterDiscreteValue As ParameterDiscreteValue Dim crParameterFieldDefinitions As ParameterFieldDefinitions Dim crParameterFieldLocation As ParameterFieldDefinition Dim crParameterValues As ParameterValues ' ' Get the report parameters collection. ' crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields conn.Open() With crConnectionInfo .ServerName = Sname .DatabaseName = Dbname .UserID = Uname .Password = Pwd End With ' ' Get the report parameters collection. ' crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields ' Add a parameter value - START crParameterFieldLocation = crParameterFieldDefinitions.Item("KundeID") crParameterValues = crParameterFieldLocation.CurrentValues crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue crParameterDiscreteValue.Value = kid crParameterValues.Add(crParameterDiscreteValue) crParameterFieldLocation.ApplyCurrentValues(crParameterValues) ' Add a parameter value - END crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields crParameterFieldLocation = crParameterFieldDefinitions.Item("OrdreID") crParameterValues = crParameterFieldLocation.CurrentValues crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue crParameterDiscreteValue.Value = oid crParameterValues.Add(crParameterDiscreteValue) crParameterFieldLocation.ApplyCurrentValues(crParameterValues) CrTables = cryRpt.Database.Tables ' For Each CrTable In CrTables Try crtableLogoninfo = CrTable.LogOnInfo crtableLogoninfo.ConnectionInfo = crConnectionInfo CrTable.ApplyLogOnInfo(crtableLogoninfo) Catch ex As Exception MessageBox.Show("Reason for error:" & ex.Message, "Error!", MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End Try Next CrystalReportViewer1.ReportSource = cryRpt conn.Close() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)