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

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

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

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

[fatsora]

Code :

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

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

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

select count(*) into ma_var

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 :

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

 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

[locs]

Ok super ca marche impec, merci beaucoup.