- - PR -
CrystalEnterprise9(RAS)でパラメータとODBC接続情報を同時に設定する方法
1
投稿者 | 投稿内容 |
---|---|
|
投稿日時: 2006-01-26 17:01
皆さんこんにちは。
只今CrystalEnterprise9(RAS)でCrystalReportに対するパラメータとODBCの接続情報を同時に設定する方法を模索しています。 それぞれ単体ではうまくいきますが、勉強不足で同時に指定する事が出来ません。 以下に単体で行っている方法を記述します。 1.パラメータ指定方法 <%@ Language=VBScript CodePage=65001 %> <% '=================================================================== ' WORKING WITH RAS AND ASP TO PASS LOGON AND PARAMETERS '=================================================================== reportname = "XXXXXXXXXX.rpt" '============================================================================ ' CREATE THE REPORT CLIENT DOCUMENT OBJECT AND OPEN THE REPORT '============================================================================ Set ObjFactory = CreateObject("CrystalReports.ObjectFactory.2") Dim path, iLen path = Request.ServerVariables("PATH_TRANSLATED") While (Right(path, 1) <> "\\" And Len(path) <> 0) iLen = Len(path) - 1 path = Left(path, iLen) Wend Set Session("oClientDoc") = objFactory.CreateObject("CrystalClientDoc.ReportClientDocument") '================================================================== ' WORKING WITH DISCRETE PARAMETERS '================================================================== Session("oClientDoc").Open path & reportName Public Sub PassParameter(strParamName, ParamValue) ParamIndex = Session("oClientDoc").DataDefinition.ParameterFields.Find(strParamName, 0) Set objParam = Session("oClientDoc").DataDefinition.ParameterFields.Item(ParamIndex) Set objNewParam = objParam.Clone objNewParam.CurrentValues.Add ParamValue Session("oClientDoc").DataDefController.ParameterFieldController.Modify ParamIndex, objNewParam End Sub 'パラメータ指定 PassParameter "@XXXX1", "XXXXXXX" PassParameter "@XXXX2", "XXXXXXX" PassParameter "@XXXX3", "XXXXXXX" '============================================================================ ' CHOOSING THE REPORT VIEWER '============================================================================ 'Response.Redirect "CrystalReportsInteractiveViewer.asp" Response.Redirect "CrystalReportsViewer.asp" 'Response.Redirect "CrystalReportsPartsViewer.asp" 'Response.Redirect "ActiveXViewer.asp" '============================================================================= %> 2.ODBC設定方法 <% '=================================================================================== ' Creation Date: July 2003 ' Author: ES ' Purpose: This sample ASP application demonstrates how to use the Report Application ' Server (RAS) Viewer SDK to logon to the report and subreport databases. '=================================================================================== 'Specify the report to be opened reportname = "XXXXXXXXXX.rpt" Session("pathReport") = Path & reportname Set oServerControl = ObjFactory.CreateObject("CrystalReports.CrystalReportServerControl") oServerControl.ReportSource = Session("pathReport") oServerControl.processHttpRequest Request, Response, Session Set Session("ConnectionInfos") = oServerControl.databaseLogonInfos For each connInfo in Session("ConnectionInfos") 'ODBC設定部 connInfo.UserName = "XXXXXX" connInfo.Password = "XXXXXX" Next Response.Redirect "CrystalReportViewer.asp" %> 以上です。 どなたか双方を同時に指定する方法をご存じな方がいらっしゃいましたらその方法を教えて頂ければ幸いです。 |
|
投稿日時: 2006-01-30 13:57
すいません。自己解決しました。
|
1