tag:blogger.com,1999:blog-8582349.post110262808084616502..comments2021-07-17T00:10:19.045-07:00Comments on BI/BPM - The SeeQueL: Command Line SQL RSAndrewhttp://www.blogger.com/profile/01723071506840447394noreply@blogger.comBlogger2125tag:blogger.com,1999:blog-8582349.post-21380672170570855992010-03-12T07:28:22.338-08:002010-03-12T07:28:22.338-08:00This comment has been removed by a blog administrator.日月神教-任我行https://www.blogger.com/profile/00629261950873803981noreply@blogger.comtag:blogger.com,1999:blog-8582349.post-1909077644173605012009-01-29T09:22:00.000-08:002009-01-29T09:22:00.000-08:00I got it to work with the following code additions...I got it to work with the following code additions<BR/><BR/>' File: RunReport.rss <BR/>Dim format as string = "PDF"<BR/>Dim fileName as String = "C:\Export2.pdf"<BR/>Dim reportPath as String = "/reports/report3"<BR/><BR/>Public Sub Main()<BR/><BR/> ' Prepare Render arguments<BR/> Dim rs as New ReportExecutionService()<BR/> Dim historyID as string = Nothing<BR/> Dim deviceInfo as string = Nothing<BR/> Dim showHide as string = Nothing<BR/> Dim results() as Byte<BR/> Dim encoding as string<BR/> Dim mimeType as string = "pdf"<BR/> Dim warnings() AS Warning = Nothing<BR/> Dim reportHistoryParameters() As ParameterValue = Nothing<BR/> Dim streamIDs() as string = Nothing<BR/> rs.Credentials = System.Net.CredentialCache.DefaultCredentials<BR/> rs.ExecutionHeaderValue = New ExecutionHeader()<BR/><BR/> ' Report Parameters <BR/> Dim parameters(2) As ParameterValue<BR/> parameters(0) = New ParameterValue()<BR/> parameters(0).Name = "JCN_IN"<BR/> parameters(0).Value = "VA00000001058"<BR/> parameters(1) = New ParameterValue()<BR/> parameters(1).Name = "MTC_IN"<BR/> parameters(1).Value = "00"<BR/> <BR/> <BR/> <BR/> rs.LoadReport(reportPath, Nothing)<BR/> <BR/><BR/> results = rs.Render(format, deviceInfo, "PDF", mimeType, encoding, warnings, streamIDs)<BR/><BR/> ' Open a file stream and write out the report <BR/> Dim stream As FileStream = File.OpenWrite(fileName)<BR/> stream.Write(results, 0, Results.Length)<BR/> stream.Close()<BR/><BR/>End SubKellerhttps://www.blogger.com/profile/11804708009385176519noreply@blogger.com