:aie: [ Cursor / Package ] - Problème de syntaxe

Version imprimable

Bonjour,

J'ai un problème de syntaxe avec l'utilisation de Curseur Explicite au sein d'un Package voila le cas :

SPEC

Code:

1
2
3
4
5
6
7
8
9
10
11
create or replace
PACKAGE PKG_RIGHTMNGT AS

  -- VALEURS RENVOYER PAR LES FONCTIONS
  aclDefault XMLTYPE ;  
  
  CURSOR xmlname_cur RETURN XMLTYPE ; -- declare cursor spec
   
  -- Renvoi les ACLs par default d'un profile
  function acl_default(profile_in IN VARCHAR2) return XMLTYPE ;
END PKG_RIGHTMNGT;

BODY

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
create or replace
PACKAGE BODY PKG_RIGHTMNGT AS  
  
  -- Renvoi les ACLs par default d'un profile
  function acl_default(profile_in IN VARCHAR2) return XMLTYPE AS  
  BEGIN  
    
    CURSOR xmlname_cur RETURN XMLTYPE IS
      SELECT
        XMLElement("XMLNAME", 
          XMLAttributes(extractValue(ACL_DEF,'/FIELDS/XMLNAME/@ID') AS "ID"),
          XMLElement("PROFILE", XMLElement( profile_in,extract(ACL_DEF,'/FIELDS/XMLNAME/PROFILE/'||profile_in||'/text()'))))
      FROM 
        Tfields ;
    ...
    RETURN aclDefault ;
  END acl_default ;
  
END PKG_RIGHTMNGT;

comment peut on déclaré ce curseur de facon Valide...

J'ai lu la doc d'Oracle mais l'exemple donnée (avec une requete simple) adapté à mon cas... est invalide...

merci de votre aide...

INFO :: Base Oracle en 10gR2

Voici une facon plus simple d'utiliser un curseur

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
PROCEDURE PROCEDURE_PRD IS
 
CURSOR PRDOUITS_CUR IS
SELECT    CODE_PRODUITS,
	   NOM_PRODUIT
 FROM PRODUITS;
 
PRODUITS_REC PRDOUITS_CUR%ROWTYPE;
 
BEGIN
	FOR PRODUITS_REC IN PRODUITS_CUR
	LOOP
	BEGIN
	  IF PRODUITS_REC.CODE_PRODUITS  IS NULL .... THEN
	....
	END;
END;

20/07/2007, 09h19
c.langlet

daccord sauf pour

Citation:

PRODUITS_REC PRDOUITS_CUR%ROWTYPE;

lorsqu'un curseur et utilisé de cette façon la declaration de la variable de reception est automatique et n'a pas a être faite.

La declaration du curseur n'est pas au bon endroit (la faire AVANT le BEGIN)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
function acl_default(profile_in IN VARCHAR2) return XMLTYPE AS  
  CURSOR xmlname_cur RETURN XMLTYPE IS
      SELECT
        XMLElement("XMLNAME", 
          XMLAttributes(extractValue(ACL_DEF,'/FIELDS/XMLNAME/@ID') AS "ID"),
          XMLElement("PROFILE", XMLElement( profile_in,extract(ACL_DEF,'/FIELDS/XMLNAME/PROFILE/'||profile_in||'/text()'))))
      FROM 
        Tfields ;
  
  
BEGIN  
      ...
    RETURN aclDefault ;
  END acl_default ;
  
END PKG_RIGHTMNGT;

22/07/2007, 22h31
jacquesh

Merci pour vos réponses...

j'ai fais l'aquisition de ce suberbe bouquin http://www.superbookdeals.com/cgi-bi...3428801&bisac=
ou on y trouve toutes les réponses concernant PL/SQL :king:
très bien fait & très claire !!