1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
|
SQL> Declare
2 -- déclaration du curseur
3 CURSOR C_EMP IS
4 Select
5 empno
6 ,ename
7 ,job
8 From
9 EMP
10 ;
11 -- variables d'accueil
12 LN$Num EMP.empno%Type ;
13 LC$Nom EMP.ename%Type ;
14 LC$Job EMP.job%Type ;
15 Begin
16 Open C_EMP ; -- ouverture du curseur
17 Loop -- boucle sur les lignes
18 Fetch C_EMP Into LN$Num, LC$Nom, LC$Job ; -- Lecture d'une ligne
19 Exit When C_EMP%NOTFOUND ; -- sortie lorsque le curseur ne ramène plus de ligne
20 End loop ;
21 Close C_EMP ; -- fermeture du curseur
22 End ;
23 / |
Partager