Discussion :

[atruong]

Bonjour,
Dans une procédure je crée un curseur qui retourne une ou plusieurs lignes. Si mon 1er param a été renseigné, je parcours mon curseur.
L'exception no_data_found ne fonctionne pas si mon curseur ne retourne aucune ligne.
Je constate qu'en retappant l'instruction sql de mon curseur (select nom into v_nom from Pilote where comp=pcomp and nom like '%'||pnom||'%')
avant son ouverture résoud mon problème.

Ma question : Comment puis-je tester que le curseur ne renvoie aucun résultat sans inclure auparavant la requête précédemment citée ?

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
 
 CREATE OR REPLACE PROCEDURE AJOUTER(pcomp in varchar2, pnom in varchar2)
as
-- Déclaration du curseur en cas de màj de +sieurs lignes
cursor c_update is
select * from Pilote where comp=pcomp and nom like '%'||pnom||'%';
ligne c_update%ROWTYPE;
begin
  if (pcomp is null) then
    dbms_output.put_line('Veuillez renseigner la compagnie');
  else
    open c_update;  -- ouverture du curseur
    LOOP
    fetch c_update into ligne;  -- Traitement de chaque ligne du curseur
    exit when c_update%NOTFOUND;  -- on sort lorsque la dernière ligne a été atteinte
      dbms_output.put_line(ligne.nom || ' = ' || ligne.nbhvol);
      update Pilote set nbhvol=ligne.nbhvol+1 where comp=ligne.comp and nom=ligne.nom; -- Màj de la ligne correspondante
    END LOOP;  
    close c_update; -- fermeture du curseur
  end if;
 
EXCEPTION -- Définition des exceptions rencontrées
    when NO_DATA_FOUND then
    dbms_output.put_line('Aucune correspondance trouvée');
    when others then
    dbms_output.put_line('ERREUR AUTRE....');
end AJOUTER;

Je vous remercie par avance pour vos réponses.

[McM]

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
 
DECLARE
i NUMBER := 0;
CURSOR c IS ...
 
BEGIN
FOR r IN c 
LOOP
 i :=1;
 END LOOP;
 
IF i = 0
THEN
  --Pas de ligne
END IF;
END;

[imedg]

j'ai une solution mais je crois pas q'elle est optimale mais sa marche
tu déclare une variable
a number;
apres l'ouverture du cursor tu met a:=a+1
puis tu teste si a=1 c'est que le cursor n'a pas ramené aucune ligne si non
il a ramené plisieur
ton code devient

CREATE OR REPLACE PROCEDURE AJOUTER(pcomp in varchar2, pnom in varchar2)
as
-- Déclaration du curseur en cas de màj de +sieurs lignes
cursor c_update is
select * from Pilote where comp=pcomp and nom like '%'||pnom||'%';
ligne c_update%ROWTYPE;
a number;
begin
a:=0;
if (pcomp is null) then
dbms_output.put_line('Veuillez renseigner la compagnie');
else
open c_update; -- ouverture du curseur
LOOP
fetch c_update into ligne; -- Traitement de chaque ligne du curseur
a:=a+1;
exit when c_update%NOTFOUND; -- on sort lorsque la dernière ligne a été atteinte
dbms_output.put_line(ligne.nom || ' = ' || ligne.nbhvol);
update Pilote set nbhvol=ligne.nbhvol+1 where comp=ligne.comp and nom=ligne.nom; -- Màj de la ligne correspondante
END LOOP;
close c_update; -- fermeture du curseur
end if;
if a =1 then
dbms_output.put_line('Aucune correspondance trouvée');
end if;
EXCEPTION -- Définition des exceptions rencontrées
when NO_DATA_FOUND then
dbms_output.put_line('Aucune correspondance trouvée');
when others then
dbms_output.put_line('ERREUR AUTRE....');
end AJOUTER;

[plaineR]

Le plus simple est de tester le rowcount du curseur avant de le fermer:

Code :

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

1
2
3
4
 
if c_update%rowcount = 0 then
   dbms_output.put_line('Aucune correspondance trouvée');
end if;

[atruong]

Merci pour vos réponses McM et imedg et plaineR

McM : je n'ai pas réussi à utiliser ton For...

imedg : la procédure ne passe pas dans le if final..
J'ai tenté aussi juste après le FETCH :

Code :

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

1
2
3
4
 
- curseur%FOUND
- curseur%NOTFOUND  
- not (curseur%FOUND)

plaineR : Tu m'as donné la bonne solution.
Tester le rowcount du curseur tout simplement......
(Je pensais que le rowcount ne serait pa renseigné)

Merci infiniment à tous les 3 d'avoir pris le temps de m'aider.

Dans l'attente de pouvoir vous rendre service un jour,

atruong

[McM]

McM : je n'ai pas réussi à utiliser ton For...

Le FOR ne nécessite pas de fermeture, pas de fetch, c'est tout automatique.

Code :

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

1
2
3
4
5
6
7
8
9
DECLARE
CURSOR c IS SELECT 1 as col1, 'b' as col2
FROM DUAL;
BEGIN
 FOR r IN c 
 LOOP
   DBMS_OUTPUT.PUT_LINE('Colonne 1 : '|| r.col1 || ' Colonne 2:' || r.col2);
END LOOP;
END;

[atruong]

Bonjour McM,

Merci pour ta réponse, je n'avais pas saisi...
Bonne journée