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

文書翻訳 文書翻訳
文書番号: 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 AS
    Procedure 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 サイトを参照してください。
http://msdn2.microsoft.com/en-us/data/aa937695.aspx
Oracle8 Enterprise Edition ドキュメント

プロパティ

文書番号: 255043 - 最終更新日: 2011年7月22日 - リビジョン: 5.0
キーワード:?
kbhowto kboracle kbmt KB255043 KbMtja
機械翻訳の免責
重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。
英語版 KB:255043
Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社 及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。(Microsoft Corporation、その関連会社 またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。
サポート期間が終了した「サポート技術情報」資料に関する免責事項
この資料は、マイクロソフトでサポートされていない製品について記述したものです。そのため、この資料は現状ベースで提供されており、今後更新されることはありません。

フィードバック

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com