Quantcast
Channel: SQL Server Reporting Services
Viewing all articles
Browse latest Browse all 1418

parameters not passing to ssrs ServerReport - rendering report to pdf using ServerReport.Render

$
0
0

My code that sets up a ServerReport object on a web forms page, and then renders the report from SSRS to a pdf. Parameter and report name is passed by URL.

Private Sub Page_Load(sender As Object, e As EventArgs)
        Dim reportname As String
        'Dim parameter(0) As ReportParameter
        reportname = Request("reportname").ToString
        Dim v As New ReportViewer
        v.ProcessingMode = ProcessingMode.Remote
        Dim serverreport As New ServerReport
        serverreport = v.ServerReport
        serverreport.ReportServerUrl = New Uri("http://xxxxxx:80/ReportServer")
        serverreport.ReportPath = "/Reports/Aramid/Sheeter/" & reportname
        Select Case reportname

            Case Is = "NomexBlockCard" 'Or "NomexBlockLabel" Or "NomexInternalLabel"
                Dim paramList As New Generic.List(Of ReportParameter)
                paramList.Add(New ReportParameter("paramBlock", Request("paramBlock").ToString, False))
                serverreport.SetParameters(paramList)
            Case Is = "NomexRoutingData"
                Dim paramList As New Generic.List(Of ReportParameter)
                paramList.Add(New ReportParameter("paramWO", Request("paramWO").ToString, False))
                serverreport.SetParameters(paramList)
        End Select

        serverreport.ReportServerCredentials = New ReportViewerCredentials(user name here, password here, "CORE")
        Save(serverreport, "C:\WebReports\" & reportname & ".pdf")
        'now print
        Response.Redirect("reports.ashx?fileName=" & reportname)
    End Sub

    
    Public Sub Save(ByVal sr As ServerReport, ByVal savePath As String)
        Try
            Dim warnings As Warning() = Nothing
            Dim streamids As String() = Nothing
            Dim mimeType As String = Nothing
            Dim encoding As String = Nothing
            Dim extension As String = Nothing
            Dim deviceInfo As String
            Dim bytes As Byte()

            deviceInfo = "True" '<DeviceInfo><SimplePageHeaders>True</SimplePageHeaders></DeviceInfo>"
            bytes = sr.Render("PDF", Nothing, mimeType, _
            encoding, extension, streamids, warnings)
            Using Stream As New FileStream(savePath, FileMode.Create)
                Stream.Write(Bytes, 0, Bytes.Length)
                Stream.Close()
            End Using
        Catch ex As Exception
        End Try
    End Sub

The report renders and saves as a pdf but the parameter value does not seem to be getting used in the report.

I have confirmed over and over that there is a value in paramBlock.

I don't know what I am doing wrong.

Am I missing a step or something?

Ryan


Viewing all articles
Browse latest Browse all 1418

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>