• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Parameter Passing To Crystal Reports Using CrystalDecisions In .Net Framework 2.0

Parameter Passing To Crystal Reports Using CrystalDecisions In .Net Framework 2.0

Parameter Passing To Crystal Reports Using CrystalDecisions In .Net Framework 2.0

API Declarations


Rem Create Table - Employee_Master

Rem Coloumns
Rem Employee_ID [ INT ]
Rem Employee_FName [ VARCHAR 50 ]
Rem Employee_LName [ VARCHAR 50 ]
Rem Employee_Age [ SmallInt ]
Rem Employee_Country [ VARCHAR 50 ]

Rem Cretae Stored Proc

Rem CREATE PROC [dbo].[PROC_GETEMPLOYEES]
Rem AS
Rem SELECT
Rem Employee_FName,Employee_LName,Employee_Age,Employee_Country
Rem FROM Employee_Master
Rem ORDER BY
Rem Employee_ID

Rem Add Some Data Into Table

Rem Goto .Net Environment
Rem Create Windows Application Under Visual Basic [ 2005 ]

Rem Add Dataset Then Rename As 'ds_Employees.xsd'
Rem Add Datatable Under Dataset Rename That Datatable As 'DTable_Employees'
Rem Add DataColoumns Under DataTable

Rem Remember Datatable Coloumn Names And Stored Proc Field Names Must Be Equal.

Rem Add CrystalReport Then Rename It As 'Employees.rpt'
Rem Add Datatable Into Report.
Rem Design Your Report According To Ur Choise.
Rem Under Report Create String Type Parameter @LName
Rem Add Following Code Under Selection Formula Record
Rem {DTable_Employees.Employee_LName} LIKE {?@LName} + "*"

Rem If This Not Clear Mail Me .....

Rem Add 01 GroupBox
Rem Add 01 Label Control
Rem Add 01 TextBox
Rem Add 01 Button
Rem Add 01 Crystal Report Viewer

Rem Add Referances
Rem System.Configuration

Add SQL Connection String Into App Config File.

Rem --------------------------



Rate Parameter Passing To Crystal Reports Using CrystalDecisions In .Net Framework 2.0

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Imports System.Data
Imports System.Data.SqlClient
Imports CrystalDecisions
Imports System.Configuration

#Region "About Author"
REM Author : Gehan Fernando
REM Date   : 06-Apr-2007
REM Title  : Parameter Passing To Crystal Reports Using CrystalDecisions In .Net Framework 2.0
REM About  : Gehan Fernando Currently Attached To AKLO Information Technologies (Pvt) Ltd, Sri Lanka.
REM          As Software Developer, Most Of Time He Attached To R.N.D Sites."
REM        : Code Work 100%
REM		   : Mail - [email protected] , [email protected]
#End Region

Public Class FrmParameters

    Private Sub FrmParameters_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Me.BackColor = My.Settings.BackColour()
        Me.Font = My.Settings.FontUse()
        Me.Text = My.Settings.SystemHeader.ToString()

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Try
            Me.Cursor = Cursors.WaitCursor

            Dim St, Ed As DateTime

            Label2.Text = ""
            St = DateTime.Now.ToLongTimeString()

            CryView.ReportSource = Nothing
            Button1.Enabled = False
            Button1.Refresh()

            Dim Constr As String = ""
            Dim Config As ConnectionStringSettings = ConfigurationManager.ConnectionStrings("SQLServer")
            Constr = Config.ConnectionString.ToString()

            Dim Con As New SqlConnection(Constr)
            Con.Open()
            Dim Com As New SqlCommand("PROC_GETEMPLOYEES", Con)
            Com.CommandType = CommandType.StoredProcedure

            Dim DSet As New ds_Employees()
            Dim Adap As New SqlDataAdapter(Com)

            DSet.Tables("DTable_Employees").BeginLoadData()
            Adap.Fill(DSet.Tables("DTable_Employees"))
            DSet.Tables("DTable_Employees").EndLoadData()

            DSet.Tables("DTable_Employees").AcceptChanges()
            DSet.AcceptChanges()

            Dim Rpt As New Employees()

            Dim PField As New CrystalDecisions.Shared.ParameterField()
            Dim PFields As New CrystalDecisions.Shared.ParameterFields()
            Dim DisValue As New CrystalDecisions.Shared.ParameterDiscreteValue()

            PField.Name = "@LName"
            DisValue.Value = TextBox1.Text
            PField.CurrentValues.Add(DisValue)

            PFields.Add(PField)
            CryView.ParameterFieldInfo = PFields

            Rpt.SetDataSource(DSet.Tables("DTable_Employees"))
            CryView.ReportSource = Rpt

            Ed = DateTime.Now.ToLongTimeString()

            Dim IntVal As Int16 = 0

            IntVal = DateDiff(DateInterval.Second, St, Ed)

            If IntVal < 60 Then
                Label2.Text = IntVal & " Second(s) Spend To Display Report."
            Else
                Label2.Text = (IntVal / 60) & " Minute(s) Spend To Display Report."
            End If

            Adap.Dispose()
            DSet.Dispose()
            Com.Dispose()
            Con.Dispose()

            Button1.Enabled = True
            Button1.Refresh()
            Me.Cursor = Cursors.Default
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error ...", MessageBoxButtons.OK, MessageBoxIcon.Error)
            Button1.Enabled = True
            Button1.Refresh()
            Me.Cursor = Cursors.Default
        End Try

    End Sub

    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged

        CryView.ReportSource = Nothing
        Label2.Text = ""

    End Sub

End Class