Discussion :

[locs]

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 :

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

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

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

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
 
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.

[fatsora]

Bonjour,

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

tu fais

Code :

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

set serverout on

Code :

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

sho error

au moins on va voir les erreurs

c'est un bon debut

[locs]

Je viens de faire ce que tu m'

[locs]

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 :

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 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 :

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

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.

[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 :

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

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.

[locs]

Merci pour ton aide, je viens de trouver la solution voici le code de ma procedure stocké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
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 :

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

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(*)?