現在オフラインです。再接続するためにインターネットの接続を待っています

REF のカーソルを使用して ASP から Oracle から ADO レコード セットを取得するには、方法

重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。

255043
サポート期間が終了した「サポート技術情報」資料に関する免責事項
この資料は、マイクロソフトでサポートされていない製品について記述したものです。そのため、この資料は現状ベースで提供されており、今後更新されることはありません。
概要
リリースの Microsoft データ アクセス コンポーネント (MDAC) 2.5 では、Oracle 用の Microsoft ole DB プロバイダーに今すぐ ActiveX データ オブジェクト (ADO) レコード セットの戻り値は REF CURSOR 型を使用しての Oracle プロシージャからサポートしています。この機能は Oracle 用の Microsoft ole DB プロバイダーでのみサポートされています。Microsoft ODBC Oracle ドライバーは、REF カーソルの使用をサポートしていません。
詳細
この新機能いくつかの利点がより以前のプロバイダーがあります。
  • プロバイダーの以前のバージョンで、Oracle プロシージャから ADO レコード セットを取得する唯一の方法は PL/SQL テーブルのレコード セットで返されるした各列を宣言しました。のみ 1 つの REF CURSOR を宣言する必要があります、新しいプロバイダーには、返されたすべての列を処理します。

    Oracle プロシージャ PL/SQL テーブルから取得する方法の詳細については、「サポート技術情報」資料を参照するには、次の文書番号をクリックしてください。
    229919 ASP で ADO を使用して Oracle からのレコード セットを取得するには、方法
  • プロバイダーの以前のバージョンでは、レコード セット内を返しますレコードの最大数を指定する必要があります。その手順は、REF CURSOR に基づく ADO レコード セットを開くと、できなく必要があります。新しいプロバイダーにだけ 0 のレコードの数を指定できます。たとえば。

    {call curspkg_join.open_join_cursor1(?, {resultset 0, io_cursor})}					
この資料でサンプルを使用するには。
  • Microsoft Visual Basic Scripting Edition (VBScript)、ActiveX データ オブジェクト (ADO) および Active Server Pages (ASP) に精通しているはずです。

  • Oracle パッケージを作成する場合は、Oracle の手続き型言語と構造化照会言語を理解する必要があります。

  • インターネット インフォメーション サービス (IIS) は、Oracle データベースを使用するが正しく構成する必要があります。

    詳細については、「サポート技術情報」資料を参照するには、次の文書番号をクリックしてください。
    193225 ASP および ADO から Oracle への接続に IIS を構成する方法

サンプル コード

次のサンプル コード、Oracle REF カーソルによるを ADO レコード セットを取得する方法を示していて、ASP ページ上でデータを表示します。ASP コードを Oracle データベースに接続するために使用、OLEDB 接続文字列を変更する必要があります。

  1. Oracle サーバーの ASP コードを実行する前に、次の Oracle パッケージを作成します。このパッケージは、Oracle の Scott/tiger スキーマで定義されているいくつかのテーブルを使用します。Oracle Scott/tiger スキーマは、既定の Oracle 環境にインストールされます。このスキーマが存在しない場合は、次のテーブル ・ スクリプトを実行し、いくつかの情報をテーブルに挿入する必要があります。

    テーブル ・ スクリプト
    CREATE TABLE DEPT(DEPTNO NUMBER(2,0) NOT NULL, DNAME VARCHAR2(14) NULL, LOC VARCHAR2(13) NULL,PRIMARY KEY (DEPTNO));CREATE TABLE EMP(EMPNO NUMBER(4,0) NOT NULL, ENAME VARCHAR2(10) NULL, JOB VARCHAR2(9) NULL, MGR NUMBER(4,0) NULL, HIREDATE DATE NULL, SAL NUMBER(7,2) NULL, COMM NUMBER(7,2) NULL, DEPTNO NUMBER(2,0) NULL,FOREIGN KEY (DEPTNO) REFERENCES DEPT(DEPTNO),  PRIMARY KEY (EMPNO));						

    パッケージ スクリプト
    CREATE OR REPLACE PACKAGE curspkg_join AS 	TYPE t_cursor IS REF CURSOR ; 	Procedure open_join_cursor1 (n_EMPNO IN NUMBER, io_cursor IN OUT t_cursor); END curspkg_join;/ CREATE OR REPLACE PACKAGE BODY curspkg_join ASProcedure open_join_cursor1 (n_EMPNO IN NUMBER, io_cursor IN OUT t_cursor) IS 	v_cursor t_cursor; BEGIN 	IF n_EMPNO <> 0 	THEN		OPEN v_cursor FOR 		SELECT EMP.EMPNO, EMP.ENAME, DEPT.DEPTNO, DEPT.DNAME 			FROM EMP, DEPT 			WHERE EMP.DEPTNO = DEPT.DEPTNO 			AND EMP.EMPNO = n_EMPNO;	ELSE 		OPEN v_cursor FOR 		SELECT EMP.EMPNO, EMP.ENAME, DEPT.DEPTNO, DEPT.DNAME 			FROM EMP, DEPT 			WHERE EMP.DEPTNO = DEPT.DEPTNO;	END IF;	io_cursor := v_cursor; END open_join_cursor1; END curspkg_join;/ 						
  2. 上記の手順を呼び出して、ASP スクリプトを次に示します。
    <%@ Language=VBScript %><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><BODY><P><%	Const CONNECT = "Provider=MSDAORA.1;Data Source=your_tns_alias_name;User ID=scott;Password=tiger"			Dim cn, rs, cmd, param	Dim SQL	set cn = Server.CreateObject( "ADODB.Connection" )	cn.Open CONNECT		SQL = "{call curspkg_join.open_join_cursor1(?, {resultset 0, io_cursor})}"	set cmd = server.CreateObject ("ADODB.Command")	with cmd		set .ActiveConnection	= cn	    .CommandText			= SQL	    .CommandType			= 1		'adCmdText	    'Pass in 0 to retrieve all of the records	    set param = .CreateParameter("id", 131 , 1 , , 0)  '<<131=adNumeric, 1=adParamInput	    .Parameters.Append param	end with						set rs = server.CreateObject ( "ADODB.Recordset" ) 	set rs = cmd.execute		    	%>	<TABLE WIDTH="80%" ALIGN=center BORDER=1 CELLSPACING=3 CELLPADDING=3>	<%	Response.Write ("<TR bgcolor=Gray>")	For i = 0 To rs.Fields.Count - 1		Response.Write ("<TD>" & rs.Fields(i).Name & "</TD>")	Next	Response.Write ("</TR>")	Do until rs.EOF		response.write ("<TR>")		for i = 0 to rs.Fields.Count - 1			If IsNull(rs(i).value) then 				Response.Write ("<TD> NULL </TD>")			else 				Response.Write ("<TD>" & rs(i).value & "</TD>")			end if 		next 		rs.MoveNext		response.write ("</TR>")	loop	%>	</TABLE>	<%	Set cmd = Nothing	Set param = Nothing	rs.close	Set rs = Nothing	cn.close	Set cn = Nothing%></P></BODY></HTML>						
関連情報
MDAC の詳細については、次の Web サイトを参照してください。Oracle8 Enterprise Edition ドキュメント
REF_CURSOR

警告: この資料は、自動翻訳されています

プロパティ

文書番号:255043 - 最終更新日: 07/22/2011 13:40:00 - リビジョン: 5.0

  • kbhowto kboracle kbmt KB255043 KbMtja
フィードバック