Problème Insert PL/SQL

Version imprimable

Bonjour,

Voila j'ai réaliser la requete suivante en pl/Sql le pb c'est que l'insertion ne se fait pas... Quelqu'un a une idée ?

Merci...

Requete :

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
DECLARE
CURSOR RowsToInsert IS
    SELECT distinct etape, rp.famille, substr(RC.blabla,6,2)  from recette RC, Produit rp
    WHERE RC.nom = rp.nom
    AND rp.famille like 'Gateau%'
    AND substr(rc.blabla,7,1) NOT IN ('U', 'J')
      ;
      sSql VARCHAR2(4000);
 
BEGIN
 
        FOR cur IN RowsToInsert LOOP
          BEGIN
                      sSql := 'INSERT INTO ETAPE_REF_TABLE ( etape, famille, cuisson, eqt, degres) ';
                      sSql := sSql || 'VALUES (' || cur.etape || ',' || cur.famille || ', NULL, NULL, NULL ) ' ;
                      sSql := sSql || 'WHERE NOT EXISTS (SELECT 1 FROM ETAPE_REF_TABLE WHERE etape = ''' || cur.etape''' );' ;
                      DBMS_OUTPUT.Put_Line('Requête a exécuter : ' || sSql);
                      ExecSQL (sSql);
                      ssql :='';
          END;  
        END LOOP;
 
 
END;

La procédure stoquée ExecSQL (s as string) fonctionne très bien car d'autre personnes s'en servent.

En gros ma requete revient a faire ceci :

Code:

1
2
3
4
5
6
7
INSERT INTO ETAPE_REF_TABLE 
 
(ETAPE,FAMILLE,Cuisson,eqt,degres)
 
VALUES ('Casse Oeuf,'gateau',NULL,NULL,NULL) WHERE NOT EXISTS ( SELECT 1 FROM ETAPE_REF_TABLE WHERE STAGE='Casse Oeuf'
 
);

Il me dit que la commande ne s'est pas terminée correctement. Je vois pas trop le problème sachant que je veux insérer dans cette table cet élément si il n'existe pas...

Si quelqu'un peut m'aider dans mon avancé merci d'avance...

Bonjour,

Que contient ta procédure ExecSql ? Utilises-tu le SQL Dynamique ?

Pour tester vraiment ton bloc PL/SQL, enlève ton appel à ta procédure et fais un Execute immediate :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
DECLARE
CURSOR RowsToInsert IS
SELECT distinct etape, rp.famille, substr(RC.blabla,6,2) from recette RC, Produit rp
WHERE RC.nom = rp.nom
AND rp.famille like 'Gateau%'
AND substr(rc.blabla,7,1) NOT IN ('U', 'J')
;
sSql VARCHAR2(4000);
 
BEGIN
 
FOR cur IN RowsToInsert 
LOOP
 
sSql := 'INSERT INTO ETAPE_REF_TABLE ( etape, famille, cuisson, eqt, degres) ';
sSql := sSql || 'VALUES (' || cur.etape || ',' || cur.famille || ', NULL, NULL, NULL ) ' ;
sSql := sSql || 'WHERE NOT EXISTS (SELECT 1 FROM ETAPE_REF_TABLE WHERE etape = ''' || cur.etape''' );' ;
DBMS_OUTPUT.Put_Line('Requête a exécuter : ' || sSql);
EXECUTE IMMEDIATE sSql;
ssql :='';
END LOOP;
END;

De plus tu as un END et un BEGIN en trop.

PS: Utilise les balises codes car c'est dur à déchiffrer !!!

c'est pas plus simple :

Code:

1
2
3
4
5
6
7
8
INSERT INTO ETAPE_REF_TABLE ( etape, famille, cuisson, eqt, degres)
(
   SELECT DISTINCT etape, rp.famille, substr(RC.blabla,6,2)  FROM recette RC, produit rp
    WHERE RC.nom = rp.nom
    AND rp.famille LIKE 'Gateau%'
    AND substr(rc.blabla,7,1) NOT IN ('U', 'J')
    AND etape NOT IN (SELECT etape FROM ETAPE_REF_TABLE)
)

20/05/2008, 10h09
kervoaz

Bonjour,

VALUES ('Casse Oeuf,'gateau',NULL,NULL,NULL)
il manque des apostrophes dans ton execute pour encadrer les String(comme dans ta clause where)

Cdt
20/05/2008, 10h10
laurentschneider
essaye avec des guillemets si etape et famille sont des strings.
Code:

1 2 sSql := sSql || 'VALUES (''' || cur.etape || ''',''' || cur.famille || ''', NULL, NULL, NULL ) ' ;
PS: kervoaz, tu as été plus rapide 8-)
20/05/2008, 17h55
kervoaz

mais moins précis.
c'est l'habitude du boulot: faire vite et pas cher :)
20/05/2008, 19h14
BAZ187REM

Merci a tous j'essaierai ca demain ^^ merci encore !!