Passing parameterto Crystal report in vb.net

[Sep410]

Hi all,

I have a report in Vb.net and I used Crystal report viewer contorol.

The problem is I have 2 prameter in my report and I don't know how to pass the value to them.

  Dim rpt As New rptOpenCase()
        Dim con As SqlConnection
        Dim sql As String
        Dim da As New SqlDataAdapter
        Dim ds As New DataSet
        con = New SqlConnection(strCon)
        con.Open()
        sql = " SELECT     [Case ID], [Open Date], Name, Worker, Service, [Issue Type], Fee,OD"
        Sql &= " FROM dbo.vOpenCase "
        If txtStartdate.Text <> "" And txtEndDate.Text <> "" Then sql &= " WHERE     (OD BETWEEN '" & txtStartdate.Text & "' AND '" & txtEndDate.Text & "')"
 
        da = New SqlDataAdapter(Sql, con)
        da.Fill(ds)
        rpt.Refresh()
        rpt.SetDataSource(ds.Tables(0))
        CrystalReportViewer1.ReportSource = rpt
        rpt.Refresh()
        CrystalReportViewer1.Zoom(75)
        Publicds = ds.Copy()

I tried so many things that I found on the net but none of them worked.I need exact code.

I just want to show txtStartDate and txtEndDate on top of my report.

Please help me.

[kenobewan]

Does &= work, I use += instead. Your dates may need to be converted to dates, eg CDate. HTH.

[Sep410]

Thanks for reply but all the other things in my code is working fine.
I need to know how should I pass parameter to crystal report.

[Sep410]

I found it:

      Dim paramFields As New CrystalDecisions.Shared.ParameterFields()
                Dim paramField As New CrystalDecisions.Shared.ParameterField()
                Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue()
                Dim paramField2 As New CrystalDecisions.Shared.ParameterField()
                Dim discreteVal2 As New CrystalDecisions.Shared.ParameterDiscreteValue()
 
                paramField.ParameterFieldName = "s"
                Dim str As String = txtStartdate.Text.ToString
                discreteVal.Value = str
                paramField.CurrentValues.Add(discreteVal)
                paramFields.Add(paramField)
 
 
 
                paramField2.ParameterFieldName = "E"
                Dim str2 As String = txtEndDate.Text.ToString
                discreteVal2.Value = str2
                paramField2.CurrentValues.Add(discreteVal2)
                paramFields.Add(paramField2)
                CrystalReportViewer1.ParameterFieldInfo = paramFields