Need Help with this Enter Parameter please....

[Ammad Asim]

Dears,

I have looked every where but i cannot find answer to this. Before you think i have already the RefreshReport and there is no change in this. Find below my code.

Try
strConnection = New System.Data.Ole Db.OleDbConnect ion(connections tring)
strConnection.O pen()
search_query = "SELECT account_tracks. request_num,acc ount_tracks.cli ent_name,accoun t_tracks.client _cis,account_tr acks.account_no ,account_activi ty.action_statu s,account_activ ity.comment,acc ount_activity.r ef_date,system_ login.username FROM account_tracks INNER JOIN account_activit y ON account_tracks. track_id = account_activit y.track_id,syst em_login WHERE account_activit y.ID=system_log in.ID AND account_activit y.[ref_date] BETWEEN #" & fromdatetime.To String(format) & "# AND #" & todatetime.ToSt ring(format) & "# AND account_tracks. client_cis = '" & searched_CIS.Te xt & "'"

If (Seg_CB.Text <> "") Then
search_query = search_query & " AND account_tracks.[segment] = '" & Seg_CB.Text & "'"
End If
If (Reg_CB.Text <> "") Then
search_query = search_query & " AND account_tracks.[region] = '" & Reg_CB.Text & "'"
End If
If (City_CB.Text <> "") Then
search_query = search_query & " AND account_tracks.[city] = '" & City_CB.Text & "'"
End If
If (CurStat_CB.Tex t <> "") Then
search_query = search_query & " AND account_tracks.[current_status] = '" & CurStat_CB.Text & "'"
End If


search_query = search_query & " Order by account_activit y.ref_date DESC"


objAdapter = New OleDbDataAdapte r(search_query, strConnection)
objAdapter.Fill (ObjDataSet, "account_activi ty")

Dim search_string As String

search_string = searched_CIS.Te xt

If (Seg_CB.Text <> "") Then
search_string = search_string & ", Segment: '" & Seg_CB.Text & "'"
End If
If (Reg_CB.Text <> "") Then
search_string = search_string & ", Region: '" & Reg_CB.Text & "'"
End If
If (City_CB.Text <> "") Then
search_string = search_string & ", City: '" & City_CB.Text & "'"
End If
If (CurStat_CB.Tex t <> "") Then
search_string = search_string & ", Status: '" & CurStat_CB.Text & "'"
End If

Dim objRpt As New CrystalReport1

objRpt.SetDataS ource(ObjDataSe t.Tables("accou nt_activity"))
GeneratedReport .CrystalReportV iewer1.ReportSo urce = objRpt

Dim crParameterFiel dDefinition As ParameterFieldD efinition
Dim crParameterFiel dDefinitions As ParameterFieldD efinitions
Dim crParameterDisc reteValue As ParameterDiscre teValue
Dim crParameterValu es As ParameterValues

crParameterFiel dDefinitions = objRpt.DataDefi nition.Paramete rFields

For Each crParameterFiel dDefinition In crParameterFiel dDefinitions
crParameterDisc reteValue = New ParameterDiscre teValue()
crParameterValu es = crParameterFiel dDefinition.Cur rentValues

Select Case crParameterFiel dDefinition.Nam e
Case "from_date"
crParameterDisc reteValue.Value = FromDate_DP3.Te xt
Case "to_date"
crParameterDisc reteValue.Value = ToDate_DP4.Text
Case "other_criteria "
crParameterDisc reteValue.Value = search_string
End Select

Try
crParameterValu es.Add(crParame terDiscreteValu e)
crParameterFiel dDefinition.App lyCurrentValues (crParameterVal ues)
Catch ex As Exception
End Try
Next

Catch ex As Exception
MessageBox.Show ("Failure Occured!")
Exit Sub
End Try


Everytime i run this, it keeps on asking me "Enter Parameter Values", please please let me know what can i do to fix this.

Regards,

Maddy

[Ammad Asim]

Anyone please. Really need help with this to get done with an important project :(

[Rabbit]

It would help to know what parameters it wants and what line it errors out on, if it's erroring out.

[Ammad Asim]

Thank you Rabbit for replying.

I believe i didn't explain it well earlier.

I am not getting any error. The crystal report is taking the parameters correctly.

The only thing happening is that each time when i Generate Report the Enter Parameters Value prompt pop up. The three parameters that are in the report and the prompt ask for are:

from_date
to_date
other_criteria

Why is that prompt coming every time?

I searched a lot and they said it happens due to Report Refresh but i don't have that here.

Would appreciate your help.

Regards,

Maddy

[Ammad Asim]

Anyone? Please help me out here?