How to display Crystal report ?

See more:

VB

Can some body tell me how to display Crystal report i.e rpt file which has database located on other server and actual it is executed on another server. Also providing the code.

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