@IT会議室は、ITエンジニアに特化した質問・回答コミュニティ「QA@IT」に生まれ変わりました。ぜひご利用ください。
- PR -

CrystalEnterprise9(RAS)でパラメータとODBC接続情報を同時に設定する方法

1
投稿者投稿内容
あれく
会議室デビュー日: 2003/08/21
投稿数: 11
投稿日時: 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"

%>

以上です。
どなたか双方を同時に指定する方法をご存じな方がいらっしゃいましたらその方法を教えて頂ければ幸いです。
あれく
会議室デビュー日: 2003/08/21
投稿数: 11
投稿日時: 2006-01-30 13:57
すいません。自己解決しました。
1

スキルアップ/キャリアアップ(JOB@IT)