procedure stockée erreur

Version imprimable

Bonjour, je suis en train d'essayer de faire une procédure stockée mais lorsque je l'éxécute dans SQL/PLUS, j'ai l'erreur suivante :

Code:

1
2
 
Avertissement : Procédure créée avec erreurs de compilation.

Le code de ma procédure stockée est :

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
 
CREATE OR REPLACE PROCEDURE ps_concat_crit(IN etab_naiss integer,IN no_immeuble integer,IN no_lot char(5)) AS
 
CURSOR GetCrit IS SELECT * FROM P_DESG WHERE  DSG_Domaine_Appli='Lot' AND DSG_No_Etab_Nais=etab_naiss AND DSG_No_Immeuble=no_immeuble AND DSG_No_Lot=no_lot;
CURSOR existEnreg IS SELECT COUNT(*) FROM T_Lots_crit WHERE TLC_No_Etab_Naiss=etab_naiss AND TLC_No_Imm=no_immeuble AND TLC_No_Lot=no_lot;
 
crits varchar2;
niu_courant P_DESG%ROWTYPE;
NbEnreg integer;
 
BEGIN
 
 FOR niu_courant IN GetCrit
 LOOP
   crits := ltrim(rtrim(crits)) || 'NIU' || niu_courant.DSG_NIU || '=' || niu_courant.DSG_Valeur_descriptif || ';';
 END LOOP;
 
 FOR NbEnreg IN existEnreg
 LOOP
  IF NbEnreg=0 THEN
    INSERT INTO T_Lots_crit(TLC_No_Etab_Naiss,TLC_No_Imm,TLC_No_Lot,TLC_Crit) VALUES (etab_naiss,no_immeuble,no_lot,crits);
  ELSE
    UPDATE T_Lots_crit SET TLC_Crit=crits WHERE TLC_No_Etab_Naiss=etab_naiss AND TLC_No_Imm=no_immeuble AND TLC_No_Lot=no_lot;
  END IF; 
 END LOOP;
END;

Si quelqu'un a une idée ou une piste pour que j'arrive a compiler cette procédure stockée correctement je suis preneur.
Merci d'avance.

16/01/2009, 10h33
fatsora

Bonjour,

sous sqlplus
par exemple apres avoir lancé la proce de creation

tu fais

Code:

set serverout on

Code:

sho error

au moins on va voir les erreurs

c'est un bon debut
16/01/2009, 10h38
locs

Je viens de faire ce que tu m'

Je viens de faire ce que tu m'as dit du coup j'ai réussi a corriger quelque erreur par contre j'ai une erreur que je ne comprend pas la je te redonne la procédure stockée modifié :

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
 
CREATE OR REPLACE PROCEDURE ps_concat_crit(etab_naiss IN integer, no_immeuble IN integer, no_lot IN char) AS
 
CURSOR GetCrit IS SELECT * FROM P_DESG WHERE  DSG_Domaine_Appli='Lot' AND DSG_No_Etab_Nais=etab_naiss AND DSG_No_Immeuble=no_immeuble AND DSG_No_Lot=no_lot;
CURSOR existEnreg IS SELECT COUNT(*) FROM T_Lots_crit WHERE TLC_No_Etab_Naiss=etab_naiss AND TLC_No_Imm=no_immeuble AND TLC_No_Lot=no_lot;
 
crits varchar2(30000);
niu_courant P_DESG%ROWTYPE;
NbEnreg integer;
 
BEGIN
 
 FOR niu_courant IN GetCrit LOOP
   crits := TRIM(crits) || 'NIU' || To_char(niu_courant.DSG_NIU) || '=' || niu_courant.DSG_Valeur_descriptif || ';';
 END LOOP;
 
 FOR NbEnreg IN existEnreg LOOP
  IF (NbEnreg=0) THEN
    INSERT INTO T_Lots_crit(TLC_No_Etab_Naiss,TLC_No_Imm,TLC_No_Lot,TLC_Crit) VALUES (etab_naiss,no_immeuble,no_lot,crits);
  ELSE
    UPDATE T_Lots_crit SET TLC_Crit=crits WHERE TLC_No_Etab_Naiss=etab_naiss AND TLC_No_Imm=no_immeuble AND TLC_No_Lot=no_lot;
  END IF; 
 END LOOP;
END;
/
SET serverout ON
show error

et le message d'erreur que je ne comprend pas

Code:

1
2
3
4
5
6
7
8
9
 
Avertissement : Procédure créée avec erreurs de compilation.
 
Erreurs pour PROCEDURE PS_CONCAT_CRIT :
 
LINE/COL ERROR
-------- -----------------------------------------------------------------
17/3     PL/SQL: Statement ignored
17/14    PLS-00306: numéro ou types d'arguments erronés dans appel à '='

Merci de m'aider la je sèche.

16/01/2009, 10h54
brassouille

Il n'y a pas les numéros de ligne, tu peux les afficher ou bien indiquer laquelle est ta ligne 17? (je ne sais pas si ça prend en compte les lignes vides...)

C'est surement une erreur du genre :

Code:

WHERE TLC_No_Etab_Naiss=etab_naiss

alors que etab_naiss est un integer, alors que TLC_No_Etab_Naiss est défini comme une chaine dans ta table.

Merci pour ton aide, je viens de trouver la solution voici le code de ma procedure stockée :

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
 
CREATE OR REPLACE PROCEDURE ps_concat_crit(etab_naiss IN integer, no_immeuble IN integer, no_lot IN char) AS
 
CURSOR GetCrit IS SELECT * FROM P_DESG WHERE  DSG_Domaine_Appli='Lot' AND DSG_No_Etab_Nais=etab_naiss AND DSG_No_Immeuble=no_immeuble AND DSG_No_Lot=no_lot;
CURSOR existEnreg IS SELECT COUNT(*) FROM T_Lots_crit WHERE TLC_No_Etab_Naiss=etab_naiss AND TLC_No_Imm=no_immeuble AND TLC_No_Lot=no_lot;
 
crits varchar2(30000);
niu_courant P_DESG%ROWTYPE;
NbEnreg integer;
 
BEGIN
 
 FOR niu_courant IN GetCrit LOOP
   crits := TRIM(crits) || 'NIU' || To_char(niu_courant.DSG_NIU) || '=' || niu_courant.DSG_Valeur_descriptif || ';';
 END LOOP;
 
 OPEN existEnreg;
 LOOP
  FETCH existEnreg INTO NbEnreg;
   IF (NbEnreg=0) THEN
     INSERT INTO T_Lots_crit(TLC_No_Etab_Naiss,TLC_No_Imm,TLC_No_Lot,TLC_Crit) VALUES (etab_naiss,no_immeuble,no_lot,crits);
   ELSE
     UPDATE T_Lots_crit SET TLC_Crit=crits WHERE TLC_No_Etab_Naiss=etab_naiss AND TLC_No_Imm=no_immeuble AND TLC_No_Lot=no_lot;
   END IF; 
  EXIT WHEN existEnreg%NOTFOUND;
 END LOOP;
END;
/
SET serverout ON
show error

La ligne 17 correspond a :

Code:

1
2
 
IF (NbEnreg=0) THEN

Par contre du coup je me demande si mon insert ce fait ou pas? si je quitte lorsque je ne trouve de count(*)?

16/01/2009, 11h17
brassouille
Ah ok j'avais pas fait attention à la manière dont tu utilisais ton curseur.

Alors plusieurs remarques

1. Pour parcourir un curseur, tu peux faire comme tu as fait, par contre pense à faire un close de ton curseur à la fin.

2. Quand tu parcours un curseur avec une boucle for, c'est une ligne qui est retournée. Donc si tu veux accéder à un champ particulier (en l'occurence, ton count), il faut faire ligne.champ. Dans ton cas, tu aurais pu faire dans ta requête un "select count(*) as toto" puis tester "NbEnreg.toto=0"

3. Mais en fait on s'en fout un peu de tout ça, je ne vois pas pourquoi tu fais une boucle puisque ton curseur ne retournera qu'une seule valeur!! Dans tous les cas tu passeras exactement une fois dans ta boucle. Donc pas besoin de curseur, écris simplement :
Code:

1 2 3 4 SELECT COUNT(*) INTO NbEnreg FROM T_Lots_crit WHERE TLC_No_Etab_Naiss=etab_naiss AND TLC_No_Imm=no_immeuble AND TLC_No_Lot=no_lot
16/01/2009, 11h26
fatsora
Code:

1 2 CURSOR existEnreg IS SELECT COUNT(*) FROM T_Lots_crit WHERE TLC_No_Etab_Naiss=etab_naiss AND TLC_No_Imm=no_immeuble AND TLC_No_Lot=no_lot;
ici ce cursuer n'est pas nécessaire

tu peux utiliser une variable a la place

Code:

select count(*) into ma_var

Citation:

Envoyé par locs

Par contre du coup je me demande si mon insert ce fait ou pas? si je quitte lorsque je ne trouve de count(*)?

tu as

Code:

DBMS_OUTPUT.PUT_LINE(SQL%ROWCOUNT);

sinon il y a MERGE qui insert si n'existe pas
et update ce qui existe (a partir de 9I)

voir la doc officielle sur tahiti.oracle.com
16/01/2009, 11h39
locs

Ok super ca marche impec, merci beaucoup.