Why Enter Parameter value Window pops up?

[Sep410]

Hi all,
I am using vb.net and Sql2005 and crystal report viewer in my application. the peroblem is when I run a report and I set the value for parameter a Enter Parameter value pops up.I shoudl re-enter the value then the report works.

What is wrong with this code:

Dim con As SqlConnection
        Dim sql As String
        Dim da As New SqlDataAdapter
        Dim ds As New DataSet
        Dim rpt As New CrystalReport1()
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue
 
        con = New SqlConnection(strCon)
        con.Open()
        sql = "SELECT     ActivityTyID, ActTyDescription, ActivityID   FROM         dbo.tbl_ActivityType  WHERE     (ActivityID = '" & TextBox1.Text & "')"
        da = New SqlDataAdapter(sql, con)
        da.Fill(ds)
        rpt.Refresh()
        rpt.SetDataSource(ds.Tables(0))
 
        crParameterDiscreteValue.Value = Int(TextBox1.Text)
        crParameterFieldDefinitions = rpt.DataDefinition.ParameterFields()
        crParameterFieldDefinition = crParameterFieldDefinitions.Item("ActivityId")
        crParameterValues = crParameterFieldDefinition.CurrentValues
        rpt.Refresh()
        crParameterValues.Clear()
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
        CrystalReportViewer1.ReportSource = rpt
        rpt.Refresh()
        CrystalReportViewer1.Zoom(75)

[Sep410]

I found this and it is working:

      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     ActivityTyID, ActTyDescription, ActivityID   FROM         dbo.tbl_ActivityType  WHERE     (ActivityID = '" & TextBox1.Text & "')"
        da = New SqlDataAdapter(sql, con)
        da.Fill(ds)
        Dim cr As New ReportDocument
        cr.Load(cls.pathing() + "\Reports\CrystalReport1.rpt")
        MsgBox(cls.pathing())
        cr.SetDataSource(ds.Tables(0))
        cr.SetParameterValue("ActivityID", TextBox1.Text)
        CrystalReportViewer1.ReportSource = cr

[Plater]

In the original code you used "ActivityID " in the sql cmd, but set the parameter "ActivityId ".
Case matters.