使用 rs.exe 到运行报表服务器上的参数报表

Question

当我尝试运行一个 rs.exe 到运行我的报告（带参数）时遇到这种情况。

我正在使用下面的这个 bat 脚本：

"\server\R\subfolder\working\app\rs.exe" -i \server\R\subfolder\working\inputfile\coo.rss -s "http://server/ReportServer_MSSQLSERVER2" -v FILENAME="\server\R\subfolder\working\inputfile\file.csv" -v REPORTSERVER_FOLDER="/FILE_REPORT/FILE" -v Inputfile='DocType' -t  -v FORMAT="EXCEL" -e Exec2005

在上面的 bat 脚本（名称 coo.bat）中，我硬编码了报告参数（即 Inputfile='DocType），然后我在下面的报告服务脚本中引用了它：

 Public Sub Main()

 Dim separators As String = " "
 Dim Commands As String = Microsoft.VisualBasic.Command()
 DIm inputid As string
 Dim args() As String = Commands.Split(separators.ToCharArray)
 Dim argcount As Integer = 0
 For Each x As String In args
 argcount += 1
 Next
inputid = args(0).ToUpper

    TRY

     DIM deviceInfo as string = Nothing
     DIM extension as string = Nothing
     DIM encoding as string
     DIM mimeType as string = "application/Excel"
     DIM warnings() AS Warning = Nothing
     DIM streamIDs() as string = Nothing
     DIM results() as Byte

     rs.Credentials = System.Net.CredentialCache.DefaultCredentials
     rs.LoadReport(REPORTSERVER_FOLDER, inputid)

     results = rs.Render(FORMAT, deviceInfo, extension, mimeType, encoding, warnings, streamIDs)

     DIM stream As FileStream = File.OpenWrite(FILENAME)
     stream.Write(results, 0, results.Length)
     stream.Close()

    Catch e As IOException
      Console.WriteLine(e.Message)
    End Try
End Sub

但是，每当我执行 coo.bat，我总是得到：Unhandled exception:The parameter value provided for 'snapshotID' does not match the parameter type.

非常感谢您的意见。

Answer 1

我终于找到了解决办法。请查看编辑后的代码

Public Sub Main()

 Dim separators As String = " "
 Dim Commands As String = Microsoft.VisualBasic.Command()
 Dim args() As String = Commands.Split(separators.ToString)
'Report Parameters
 Dim parameters(1) As ParameterValue
 parameters(0) = New ParameterValue()
 parameters(0).Name = "Inputfile"
 parameters(0).Value =Inputfile


    TRY
     DIM historyID as string = Nothing
     DIM deviceInfo as string = Nothing
     DIM extension as string = Nothing
     DIM encoding as string
     DIM mimeType as string = "application/Excel"
     DIM warnings() AS Warning = Nothing
     DIM streamIDs() as string = Nothing
     DIM results() as Byte

     rs.Credentials = System.Net.CredentialCache.DefaultCredentials
     rs.LoadReport(REPORTSERVER_FOLDER,historyID )
     rs.SetExecutionParameters(parameters, "en-us")
     results = rs.Render(FORMAT, deviceInfo, extension, mimeType, encoding, warnings, streamIDs)

     DIM stream As FileStream = File.OpenWrite(FILENAME)
     stream.Write(results, 0, results.Length)
     stream.Close()

    Catch e As IOException
      Console.WriteLine(e.Message)
    End Try
End Sub

使用 rs.exe 到运行报表服务器上的参数报表

Using rs.exe to run a parameter report on report server

vb.net

vbscript

web-services

batch-file

reportingservices-2005

使用 rs.exe 到 运行 报表服务器上的参数报表

Using rs.exe to run a parameter report on report server

vb.net

vbscript

web-services

batch-file

reportingservices-2005

使用 rs.exe 到运行报表服务器上的参数报表