Discussion :

[monthaldo]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
declare
     CURSOR C_droit IS
     Select login,  codemodu
     From droit
     where login = :PW.login 
     ;
     LC$login droit.login%Type ;
     LC$codemodu droit.codemodu%Type ;
 
     roleattr VARCHAR2(30 BYTE);
 
	TYPE TYP_REF_CUR IS REF CURSOR ;
	C_modu TYP_REF_CUR ;
 
 
BEGIN
   Open C_droit ; 
   Loop 
      Fetch C_droit Into LC$login,  LC$codemodu; 
      	if 
            - -----
            -------
        else
 
            Open  C_modu For 'select nom_role from module' ;
      		  While C_modu %FOUND
      		  Loop
      		  	Fetch C_modu Into roleattr ;
      			Forms_ddl('grant'|| roleattr || 'to' || :PW.login||';');
		  End loop ;
	     Close C_modu ;
 
      	end if;	
 
      Exit When C_droit%NOTFOUND ;
   End loop ;
   Close C_droit ; 
 
END;

J'ai à la ligne suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
            Open  C_modu For 'select nom_role from module' ;

l'erreur: "Erreur 591,... cette fonction n'est pas prise en charge dans les programmes côté client"

Aidez moi à lever cette erreur

Merci d'avance

[SheikYerbouti]

Comme le dit le message, vous ne pouvez pas utiliser cette syntaxe coté client, donc coté Forms. Vous devez definir votre second curseur comme le premier.

[monthaldo]

Merci pour la réaction.

Le problème qui se pose, c'est que je dois charger ce curseur avec une requête donc la condition dépend des données récupérer dans le FETCH du premier curseur.
Il est impossible de le déclarer et le charger dans la partie déclarative comme le premier

Je ne sais s'il y a un autre moyen pour gérer celà.
(une façon de faire)

Merci

[c.langlet]

bonjour,
il est tout a fait possible de faire des choses comme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
declare
     cursor c1 is select * from table1;
     cursor c2 (z_code varchar2) is select * from table2 where clef=z_code;
begin
  for e1 in c1
  loop
        for e2 in c2(e1.code)
        loop
            ---traitement
        end loop;
  end loop;
end;

a condition que la requete du deuxieme curseur soit la même et que juste les valeur de test change , cela doit correspondre a votre probleme.

[monthaldo]

Merci bcp, c'est bon