Comment faire pour récupérer jeu d'enregistrements ADO à partir d'Oracle via ASP à l'aide de REF CURSORS

Traductions disponibles Traductions disponibles
Numéro d'article: 255043 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

Grâce à la version de Microsoft Data Access Components (MDAC) 2.5, le fournisseur OLEDB Microsoft pour Oracle accepte le retour de jeux d'enregistrements (ActiveX Data Objects) à partir d'une procédure Oracle par le biais d'un type de CURSEUR REF. Cette fonctionnalité est uniquement prise en charge dans le fournisseur OLEDB Microsoft pour Oracle. Microsoft ODBC pour Oracle pilote ne prend pas en charge l'utilisation de REF CURSORS.

Plus d'informations

Cette nouvelle fonctionnalité présente des avantages sur le fournisseur précédent :
  • Dans les versions précédentes du fournisseur de la seule façon de récupérer un jeu d'enregistrements ADO à partir d'une procédure Oracle était pour déclarer une table SQL/pl pour chaque colonne qui a été retournée dans le jeu d'enregistrements. Avec le nouveau fournisseur que vous devez uniquement déclarer un CURSEUR REF, qui gère ensuite le retour de toutes les colonnes.

    Pour plus d'informations sur la récupération des procédures Oracle dans SQL/pl des tableaux, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft :
    229919 Comment faire pour récupérer un jeu d'enregistrements à partir d'Oracle Utilisation dans ASP
  • Dans la version précédente du fournisseur que vous deviez spécifier le nombre maximal d'enregistrements qui retourne dans le jeu d'enregistrements. Lorsque vous ouvrez un jeu d'enregistrements ADO qui repose sur un CURSEUR REF, cette étape n'est plus nécessaire. Avec le nouveau fournisseur, vous pouvez simplement spécifier 0 pour le nombre d'enregistrements. Par exemple :

    {call curspkg_join.open_join_cursor1(?, {resultset 0, io_cursor})}
    					
Pour utiliser l'exemple dans cet article :
  • Vous devez être proficient avec Microsoft Visual Basic Scripting Edition (VBScript), (ActiveX Data Objects) et ASP (Active Server Pages).

  • Si vous créez packages Oracle, vous devez comprendre d'Oracle procédure Language/Structured Query Language.

  • Votre serveur d'informations sur Internet (IIS) doit être configuré correctement pour manipuler la base de données Oracle.

    Pour plus d'informations, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la Base de connaissances Microsoft :
    193225 Comment faire pour configurer IIS pour se connecter à Oracle à partir de ASP et ADO

Exemple de code

L'exemple de code suivant montre comment récupérer un jeu d'enregistrements ADO à partir d'une procédure Oracle par l'intermédiaire d'un CURSEUR REF et puis affiche les données sur une page ASP. Vous devez modifier la chaîne de connexion OLEDB utilisée dans le code ASP pour se connecter à votre base de données Oracle.

  1. Créez le package Oracle suivant sur le serveur Oracle avant d'exécuter du code ASP. Ce package utilise des tables définies dans le schéma Oracle Scott/TIGRE. Le schéma Oracle Scott/TIGRE est installé avec l'installation de Oracle par défaut. Si ce schéma n'existe pas, vous devez exécuter les scripts table suivants et insérer des informations dans les tables :

    scripts de table
    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)
    );
    						

    scripts de package
    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. Voici le script ASP qui appelle la procédure précédente :
    <%@ 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>
    						

Références

Pour plus d'informations sur MDAC, consultez l'adresse suivante :
http://msdn2.microsoft.com/en-us/data/aa937695.aspx
Documentation Oracle8 Enterprise Edition

Propriétés

Numéro d'article: 255043 - Dernière mise à jour: jeudi 17 mai 2007 - Version: 3.3
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft OLE DB Provider for Oracle Server 1.0
Mots-clés : 
kbmt kbhowto kboracle KB255043 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 255043
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.
Exclusion de responsabilité concernant les contenus obsolètes dans la Base de connaissances
Cet article concerne des produits pour lesquels Microsoft n'offre plus de support. Il est par conséquent fourni « en l'état » et ne sera plus mis à jour.

Envoyer des commentaires

 

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