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.

Expand|Select|Wrap|Line Numbers

   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:

Expand|Select|Wrap|Line Numbers

       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

Passing parameterto Crystal report in vb.net

re: Passing parameterto Crystal report in vb.net

re: Passing parameterto Crystal report in vb.net

re: Passing parameterto Crystal report in vb.net

Similar .NET Framework bytes

/bytes/development

/bytes/it

/bytes/about