Måske kan dette hjælpe:
Private Sub Display_Report(ByVal strParam1 As String, ByVal strParam2 As String)
Try
'Set the report Processing Mode
rvRateCode.ProcessingMode = Microsoft.Reporting.WebForms.ProcessingMode.Remote
'Set the Report Viewer - Server URL & Report Path
rvRateCode.ServerReport.ReportServerUrl = New Uri("
http://SERVERNAME/ReportServer")
rvRateCode.ServerReport.ReportPath = "/FOLDER/REPORT_NAME"
'Setup parameter collection
Dim pInfo As Microsoft.Reporting.WebForms.ReportParameterInfoCollection
Dim paramList As New Generic.List(Of Microsoft.Reporting.WebForms.ReportParameter)
'Insert parameter list
paramList.Add(New Microsoft.Reporting.WebForms.ReportParameter("Report_Parameter_1", strParam1.ToUpper, False))
paramList.Add(New Microsoft.Reporting.WebForms.ReportParameter("Report_Parameter_2", strParam2.ToUpper, False))
rvRateCode.ServerReport.SetParameters(paramList)
pInfo = rvRateCode.ServerReport.GetParameters()
'Refresh the report
rvRateCode.ServerReport.Refresh()
Catch ex As Exception
lblError.Text = "Error submitting data. Error Message: " & ex.Message & " Stack Trace: " & ex.StackTrace
End Try
End Sub
Det er et snippet jeg har fundet, koder normalt ikke VB