asked on

Error trying to generate a report with parameters

I have created a report that contains parameters. I set it up so that the parameters would be hidden. I am trying to run this report and have it displayed in a report viewer on an asp page that I have. I basically created a page that will accept the parameters and then click a button to generate the report based on the parameters the user enters. Some of the parameters will be null at times.
I am running the program and I get a message. Can anyone please tell me what my problem is?
The message is: Object reference not set to an instance of an object.

Here's the code too:
Protected Sub btnSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
setParams()
ReportViewer1.ProcessingMode = Microsoft.Reporting.WebForms.ProcessingMode.Remote
ReportViewer1.ServerReport.ReportServerUrl = New System.Uri("http://srmha-96648582/ReportServer")
ReportViewer1.ServerReport.ReportPath = "/Report Project6/CCD"
(The message occurs on this next line)
RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("user", txtUserName1.Text)
RptParameters(1) = New Microsoft.Reporting.WebForms.ReportParameter("keyword", txtKeyWord.Text)
RptParameters(2) = New Microsoft.Reporting.WebForms.ReportParameter("userlastname", userLastName)
RptParameters(3) = New Microsoft.Reporting.WebForms.ReportParameter("userfirstname", userFirstName)
RptParameters(4) = New Microsoft.Reporting.WebForms.ReportParameter("custlastname", custLastName)
RptParameters(5) = New Microsoft.Reporting.WebForms.ReportParameter("custfirstname", custFirstName)
RptParameters(6) = New Microsoft.Reporting.WebForms.ReportParameter("startdate", txtStartDate.Text)
RptParameters(7) = New Microsoft.Reporting.WebForms.ReportParameter("enddate", txtEndDate.Text)
ReportViewer1.ServerReport.SetParameters(RptParameters)
ReportViewer1.ServerReport.Refresh()

End Sub

HainKurt

code for setParams() ???

mmtcunningham1

ASKER

Sub setParams()
Dim i As Integer
If ddlUserName.SelectedValue <> "" Then
i = ddlUserName.SelectedValue.IndexOf(",")
userLastName = ddlUserName.SelectedValue.Substring(0, i)
userFirstName = ddlUserName.SelectedValue.Substring(i + 1, ddlUserName.SelectedValue.Length - (userLastName.Length + 1))
Else
userLastName = ""
userFirstName = ""
End If
If ddlCustomerName.SelectedValue <> "" Then
i = ddlCustomerName.SelectedValue.IndexOf(",")
custLastName = ddlCustomerName.SelectedValue.Substring(0, i)
custFirstName = ddlCustomerName.SelectedValue.Substring(i + 1, ddlCustomerName.SelectedValue.Length - (custLastName.Length + 1))
Else
custLastName = ""
custFirstName = ""
End If
End Sub

HainKurt

above code is not related :)

how do you define RptParameters?

HainKurt

try:

RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("user", txtUserName1.Text)
-->
RptParameters.add(New Microsoft.Reporting.WebForms.ReportParameter("user", txtUserName1.Text))

same for all others

mmtcunningham1

ASKER

I have it defined like this:
Dim RptParameters() As Microsoft.Reporting.WebForms.ReportParameter

mmtcunningham1

ASKER

RptParameters.add(-----)) is not allowed for system.array is the message i'm getting

HainKurt

something like this:

Dim RptParameters() As Microsoft.Reporting.WebForms.ReportParameter = new Microsoft.Reporting.WebForms.ReportParameter(7)

ASKER CERTIFIED SOLUTION

HainKurt

membership

This solution is only available to members.

To access this solution, you must be a member of Experts Exchange.

Start Free Trial

mmtcunningham1

ASKER

that won't work

HainKurt

this did not work?

Dim RptParameters(7) As Microsoft.Reporting.WebForms.ReportParameter
RptParameters(0) = New Microsoft.Reporting.WebForms.ReportParameter("user", txtUserName1.Text)
...
RptParameters(7) = New Microsoft.Reporting.WebForms.ReportParameter("enddate", txtEndDate.Text)
ReportViewer1.ServerReport.SetParameters(RptParameters)
...

mmtcunningham1

ASKER

This worked for me.
Dim RptParameters(7) As Microsoft.Reporting.WebForms.ReportParameter

HainKurt

or use this syntax (from MS - Generic List approach)

Dim paramList As New Generic.List(Of ReportParameter)
paramList.Add(New ReportParameter("EmpID", "288", False))
paramList.Add(New ReportParameter("ReportMonth", "12", False))
paramList.Add(New ReportParameter("ReportYear", "2003", False))
ReportViewer1.ServerReport.SetParameters(paramList)

http://msdn.microsoft.com/en-us/library/ms252663(v=vs.80).aspx

in your case:

Dim RptParameters As New Generic.List(Of Microsoft.Reporting.WebForms.ReportParameter)
RptParameters.Add(New Microsoft.Reporting.WebForms.ReportParameter("user", txtUserName1.Text))
...
RptParameters.Add(New Microsoft.Reporting.WebForms.ReportParameter("enddate", txtEndDate.Text))
ReportViewer1.ServerReport.SetParameters(RptParameters)

Open in new window