Comment utiliser les instructions LCD (comme GRANT) dans Forms (10g)
Bonjour,
J'ai ce code suivant pour un déclencheur dans FORMS 10g
(je l'ai simplifié pour le rendre plus compréhensible)
Code:
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
|
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);
BEGIN
Open C_droit ;
Loop
Fetch C_droit Into LC$login, LC$codemodu;
if LC$codemodu is not null then
select nom_role into roleattr
from module
where codemodu= LC$codemodu;
grant roleattr to :PW.login;
end if;
Exit When C_droit%NOTFOUND ;
End loop ;
Close C_droit ;
END; |
En effet, je veux lire les droits accordés à un utilisateur dans la table DROIT et lui attribuer un role pour accéder à un menu bien donné. Les roles associés à chaque menu se trouvent dans la table MODULE.
Quand je l'exécute, il me renvoie une erreur au niveau de l'instruction LCD GRANT.
Je désire savoir comment on utilise une telle instruction dans FORMS.
Excuse moi pour les bêtises, j'apprends encore.
Merci d'avance
