Create Crystal Reports based on Drop Down List Selection

Question

Hello Guys I am working on something there i want to generate crystal reports for selected item in Drop down list. Here In drop down list i have pg names and i want generate report like Pg Rents and Pg Expenses and total of pg rents and total of expenses and finally i want to show the profit/Loss for all these i have all tables like pg names pg roomspg joinees pg rents etc. please can any one tell me how to generate?? Thanks

Abhinav Kansal · Answer

Imports System.Data.SqlClient Public Class StudentReport1 Dim rdr As SqlDataReader = Nothing Dim dtable As DataTable Dim con As SqlConnection = Nothing Dim adp As SqlDataAdapter Dim ds As DataSet Dim cmd As SqlCommand = Nothing Dim dt As New DataTable Dim cs As String = Data Source=KANSAL\KANSAL;Initial Catalog=dbexport;User ID=sa Private Sub StudentReport1_Load(ByVal sender As System.Object ByVal e As System.EventArgs) Handles MyBase.Load fillcombo() End Sub Sub fillcombo() Try Dim CN As New SqlConnection(cs) CN.Open() adp = New SqlDataAdapter() adp.SelectCommand = New SqlCommand(SELECT distinct (school_name) FROM report_table  CN) ds = New DataSet(ds) adp.Fill(ds) dtable = ds.Tables(0) cmbEmployeeName.Items.Clear() For Each drow As DataRow In dtable.Rows cmbEmployeeName.Items.Add(drow(0).ToString()) 'DocName.SelectedIndex = -1 Next Catch ex As Exception MessageBox.Show(ex.Message Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub Private Sub EmployeeName_SelectedIndexChanged(ByVal sender As System.Object ByVal e As System.EventArgs) Handles cmbEmployeeName.SelectedIndexChanged Try Cursor = Cursors.WaitCursor Timer1.Enabled = True Dim rptDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument Dim rpt As New CrystalReport4() 'The report you created. Dim myConnection As SqlConnection Dim MyCommand As New SqlCommand() Dim myDA As New SqlDataAdapter() Dim myDS As New DataSet 'The DataSet you created. Dim strReportPath As String myConnection = New SqlConnection(cs) MyCommand.Connection = myConnection MyCommand.CommandText = select report_table.school_name FROM report_table where school_name = ' & cmbEmployeeName.Text & ' order by Std_num MyCommand.CommandType = CommandType.Text myDA.SelectCommand = MyCommand myDA.Fill(myDS report_table) strReportPath = Application.StartupPath & \reports\CrystalReport4.rpt rptDocument.Load(strReportPath) rptDocument.SetDataSource(myDS.Tables(0)) CrystalReportViewer1.ReportSource = rptDocument Catch ex As Exception MessageBox.Show(ex.Message Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub Private Sub TextBox1_TextChanged(ByVal sender As System.Object ByVal e As System.EventArgs) Handles txtEmployeeName.TextChanged Try Cursor = Cursors.WaitCursor Timer1.Enabled = True Dim rpt As New CrystalReport1() 'The report you created. Dim myConnection As SqlConnection Dim MyCommand As New SqlCommand() Dim myDA As New SqlDataAdapter() Dim myDS As New DataSet 'The DataSet you created. myConnection = New SqlConnection(cs) MyCommand.Connection = myConnection MyCommand.CommandText = select report_table.school_name FROM report_table where school_name = ' & cmbEmployeeName.Text & ' order bt Std_num  MyCommand.CommandType = CommandType.Text myDA.SelectCommand = MyCommand myDA.Fill(myDS report_table) rpt.SetDataSource(myDS) CrystalReportViewer1.ReportSource = rpt Catch ex As Exception MessageBox.Show(ex.Message Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub Private Sub StudentReport1_FormClosing(ByVal sender As Object ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing Me.Hide() MainMenu.Show() End Sub Private Sub txtEmployeeName_TextChanged(ByVal sender As System.Object ByVal e As System.EventArgs) Handles txtEmployeeName.TextChanged End Sub Private Sub button4_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles button4.Click Try Cursor = Cursors.WaitCursor Timer1.Enabled = True Dim rpt As New CrystalReport1() 'The report you created. Dim myConnection As SqlConnection Dim MyCommand As New SqlCommand() Dim myDA As New SqlDataAdapter() Dim myDS As New DataSet 'The DataSet you created. myConnection = New SqlConnection(cs) MyCommand.Connection = myConnection MyCommand.CommandText = select report_table.Std_num FROM report_table where report_table.Std_num between  & CInt(DateFrom.Text) &  and  & CInt(DateTo.Text) &  order by Std_num MyCommand.CommandType = CommandType.Text myDA.SelectCommand = MyCommand myDA.Fill(myDS report_table) rpt.SetDataSource(myDS) Dim fname As String fname = CrystalReport4.rpt CrystalReportViewer2.ReportSource = Application.StartupPath & \Reports\ & fname &  Catch ex As Exception MessageBox.Show(ex.Message Error MessageBoxButtons.OK MessageBoxIcon.Error) End Try End Sub Private Sub button5_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles button5.Click CrystalReportViewer2.ReportSource = Nothing DateFrom.Text =  DateTo.Text =  End Sub Private Sub button8_Click(ByVal sender As System.Object ByVal e As System.EventArgs) Handles button8.Click cmbEmployeeName.Text =  txtEmployeeName.Text =  CrystalReportViewer1.ReportSource = Nothing End Sub Private Sub TabControl1_Click(ByVal sender As Object ByVal e As System.EventArgs) Handles TabControl1.Click CrystalReportViewer2.ReportSource = Nothing DateFrom.Text =  DateTo.Text =  cmbEmployeeName.Text =  txtEmployeeName.Text =  CrystalReportViewer1.ReportSource = Nothing End Sub Private Sub Timer1_Tick(ByVal sender As System.Object ByVal e As System.EventArgs) Handles Timer1.Tick Cursor = Cursors.Default Timer1.Enabled = False End Sub Private Sub CrystalReportViewer2_Load(ByVal sender As System.Object ByVal e As System.EventArgs) Handles CrystalReportViewer2.Load End Sub Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load End Sub End Class

Anurag Sarkar · Answer

You can also refer to following links http://www.aspdotnet-suresh.com/2012/01/crystal-reports-sample-in-aspnet.html www.c-sharpcorner.com/UploadFile/john_charles/WorkingwithParameterFieldsinCrystalReports06232008102249AM/WorkingwithParameterFieldsinCrystalReports.aspx http://vb.net-informations.com/crystal-report/vb.net_crystal_report_parameter_integer.htm http://csharpdotnetfreak.blogspot.com/2011/09/pass-crystalreport-parameters.html http://www.mindstick.com/Articles/125cbf8f-f1e5-44a7-b3ca-41450a3fbd18/?Dynamically%20pass%20parameter%20value%20in%20Crystal%20Report

Anurag Sarkar · Answer

Put the code so that we can help you.