'This is my select query Dim rpt As New rptItems() Dim myConnection As OleDbConnection Dim MyCommand As New OleDbCommand() Dim myDA As New OleDbDataAdapter() Dim myDS As New DataSet 'The DataSet you created. myConnection = New OleDbConnection(cnn) MyCommand.Connection = myConnection MyCommand.CommandText = "SELECT ItemCode, ItemName,Qty FROM ItemTable" MyCommand.CommandType = CommandType.Text myDA.SelectCommand = MyCommand myDA.Fill(myDS, "Dataset1") rpt.SetDataSource(myDS) Report.CrystalReportViewer1.ReportSource = rpt Report.Show() '********************************************************************************** 'This is my parameter fields. Dim rpt As New rptItems() Dim crParameterFieldDefinitions As ParameterFieldDefinitions Dim crParameterFieldDefinition As ParameterFieldDefinition Dim crParameterValues As New ParameterValues Dim crParameterDiscreteValue As New ParameterDiscreteValue crParameterDiscreteValue.Value = TextBox1.Text crParameterFieldDefinitions = rpt.DataDefinition.ParameterFields crParameterFieldDefinition = crParameterFieldDefinitions.Item("Customername") crParameterValues = crParameterFieldDefinition.CurrentValues crParameterValues.Clear() crParameterValues.Add(crParameterDiscreteValue) crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) Report.CrystalReportViewer1.ReportSource = rpt Report.CrystalReportViewer1.Refresh() Report.Show()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)