by Gehan Fernando (47 Submissions)
Category: Databases/Data Access/DAO/ADO
Compatability: VB.NET
Difficulty: Unknown Difficulty
Originally Published: Tue 4th September 2007
Date Added: Mon 8th February 2021
Rating: (1 Votes)
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 --------------------------
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
No comments have been posted about Parameter Passing To Crystal Reports Using CrystalDecisions In .Net Framework 2.0. Why not be the first to post a comment about Parameter Passing To Crystal Reports Using CrystalDecisions In .Net Framework 2.0.