Rem Create Database - MyTest 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 - gehan_g7@yahoo.com , charith_c7@yahoo.co.uk #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