How can I generate a Crystal Report depending on the selected item in a dropdownlist filled with items from database?

I am using a vb code behind.

thanks

Diana_j86

What version of Visual Studio do you have?

In VS2005 you need to do the following:

1) Right click on your solution and select add, New Item.

2) Add a dataset and create your queries in the dataset. Make sure you save this dataset or it will not show up later.

3) Add your reportviewer

4) Right click on your solution and select add new Item Again and then add a crystal report

5) In the crystal report wizard Select crystal reports wizard and the type of report you want

6) Under the data menu you need to select project data, then ADO.NET datasets. Assuming you saved your dataset it will now show up in this field and you can make your selection as well as create your crystal report.

7) The code behind:

Dim dataSet As DataSet
Me.Cursor = Cursors.WaitCursor
Dim crReportDocument As CrystalReport1
Dim Con As SqlConnection
Dim Da As SqlDataAdapter
Dim conn As String = "Server=Your Server;Database=Your DB; User ID=sa;Password=Your PW"
Con = New SqlConnection(conn)
Dim sqlString As String = "This is where you can place your SQL query and pass all parameters   i.e.  ComboBox1.SelectedValue"
Dim cmSQL As SqlClient.SqlCommand
cmSQL = New SqlClient.SqlCommand(sqlString, Con)
Con.Open
Da = New SqlDataAdapter(sqlString, Con)
dataSet = New DataSet
Da.Fill(dataSet, "Dataset Name you created in steps above")
crReportDocument = New CrystalReport1
crReportDocument.SetDataSource(dataSet)
CView.ReportSource = crReportDocument
'crReportDocument.Load("~/CrystalReport1.rpt")
Con.Close

Please note that CView is the name of my report viewer.

Hope this helps

Thanks for your response, I really appriciate that, But I have this error " Line 1: Incorrect syntax near 'Sam' ", it happens when I click on any item from the drop down list....

my code is:

Dim conn As New SqlConnection(connString)

If Not IsPostBack Then

End If

End Sub

Dim dataSet As DataSet

Dim Da As SqlDataAdapter

Da = New SqlDataAdapter(sqlString, conn)

conn.Close()

Dim sqlString As String = "select * from Receiptitems"

Me.DropDownList1.Items.Add(dr(0))

End While

End Sub

Also, ( Me.Cursor = Cursors.WaitCursor ) didn't work :(

 What is the problem, I followed all the steps, but don't know why I have this error

Could it be because in the stored procedure the attribute (Name) I have is reserved?

O.K,

Let start: Did you copy this code Directly? If so I see my first issue with the following line:

Dim sqlString As String = "select * from Receiptitems where Name=" & Me.DropDownList1.SelectedItem.TextDim cmSQL As

It needs to be:

Dim sqlString As String = "select * from Receiptitems where Name='" & Me.DropDownList1.SelectedItem.Text & "'

Maybe you did not copy it right.

The second part is:

Da.Fill(dataSet, "Dataset3.xsd"), is Dataset3.xsd your Dataset name? or the file name? Make sure that that is your dataset name. My file name for example is endofmonth.xsd, but my dataset name is "closingbalance".

Look at that and let me know.

Thanks alot, it worked