Discussion :

[vavastan]

Bonjour,

je suis en version oracle 9i

j'ai un probleme avec un execute immediate

SousRequeteSQL := 'SELECT 1 FROM ' || TRIM(TT_Table)
|| ' WHERE ' || TRIM(TT_Lot)
|| ' = ' || '''' || TRIM(i_lot) ;
RequeteSQL := 'UPDATE ' || TRIM(TM_Table)
|| ' SET ' || TRIM(TM_Integrer) || ' = 0 WHERE EXISTS ('
|| TRIM(SousRequeteSQL)
|| ')';

EXECUTE IMMEDIATE RequeteSQL;

mais il ne se passe rien, le update ne fonctionne pas

ma requete est dans une procedure lancée via un batch sous pl/sql


j'ai recuperer ma requete dans une variable
et quand je la lance sous toad, la, ça fonctionne

[plaineR]

As-tu fait un commit derrière ?

[vavastan]

oui j'ai bien fait un commit

[orafrance]

fait un :

Code :

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

DBMS_OUTPUT.PUT_LINE(RequeteSQL);

Pour afficher la requête et vérifier qu'elle est correcte.

Code :

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

|| ' = ' || '''' || TRIM(i_lot) ;

il ne manque pas la fermeture des quotes :

Code :

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

|| ' = ' || '''' || TRIM(i_lot) || '''';

[vavastan]

J'ai deja fait ca
la requete est correcte
elle fonctionne quand je la lance sous toad

[Korfandar]

Tu as essayé la fermeture des quotes comme le propose orafrance ?

[vavastan]

oui j'ai essayée, c'est pareil

[orafrance]

il faudrait le code complet :o

[vavastan]

voici le code complet :

CREATE OR REPLACE PROCEDURE PRC_Maj_Flag_Integrer_TM
(
i_lot IN VARCHAR2,
i_PrefixeErreur IN VARCHAR2
) IS

PrefixeErreur VARCHAR2(6);
TT_Prefixe VARCHAR2(3);
TT_Table VARCHAR2(30);
TT_Colonne VARCHAR2(30);
TT_Chrono VARCHAR2(30);
TT_Lot VARCHAR2(30);
TT_Integrer VARCHAR2(30);
TM_Table VARCHAR2(30);
TM_Colonne VARCHAR2(30);
TM_Chrono VARCHAR2(30);
TM_Lot VARCHAR2(30);
TM_Integrer VARCHAR2(30);
zTestUnderScore VARCHAR2(1);

RequeteSQL VARCHAR2(1000);
SousRequeteSQL VARCHAR2(500);

BEGIN

PrefixeErreur := i_PrefixeErreur || '%';
IF (SUBSTR(PrefixeErreur, 2, 1) = '_') THEN
zTestUnderScore := '_';
ELSE
zTestUnderScore := SUBSTR(PrefixeErreur, 2, 1);
END IF;
SELECT DISTINCT TEC_NOM_TABLE_CTRL,TEC_PREFIXE,
TEC_NOM_COL_TABLE_SOURCE,TEC_NOM_TABLE_MAITRE,
TEC_NOM_COL_TABLE_MAITRE
INTO TT_Table,
TT_Prefixe,
TT_Colonne,
TM_Table,
TM_Colonne
FROM &6..TEC_ERREURS_CODES
WHERE TEC_CODE_ERREUR LIKE PrefixeErreur AND
SUBSTR(TEC_CODE_ERREUR, 2, 1) = zTestUnderScore;

TT_Chrono := TT_Prefixe || '_SASMIG_CHRONO';
TT_Lot := TT_Prefixe || '_SASMIG_LOT';
TT_Integrer := TT_Prefixe || '_SASMIG_A_INTEGRER';
TM_Chrono := SUBSTR(TM_Colonne, 1, 3) || '_SASMIG_CHRONO';
TM_Lot := SUBSTR(TM_Colonne, 1, 3) || '_SASMIG_LOT';
TM_Integrer := SUBSTR(TM_Colonne, 1, 3) || '_SASMIG_A_INTEGRER';

SousRequeteSQL := 'SELECT 1 FROM '
|| TRIM(TT_Table)
|| ' WHERE '
|| TRIM(TT_Lot)
|| ' = '
|| ''''
|| TRIM(i_lot)
|| ''''
|| ' AND '
|| TRIM(TT_Integrer)
|| ' = 0 AND '
|| TRIM(TM_Integrer)
|| ' = 1 AND '
|| TRIM(TT_Colonne)
|| ' = '
|| TRIM(TM_Colonne);
RequeteSQL := 'UPDATE '
|| TRIM(TM_Table)
|| ' SET '
|| TRIM(TM_Integrer)
|| ' = 0 WHERE EXISTS ('
|| TRIM(SousRequeteSQL)
|| ')';
EXECUTE IMMEDIATE RequeteSQL;
COMMIT;

END

[orafrance]

essaye d'ajouter ceci :

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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
CREATE OR REPLACE PROCEDURE PRC_Maj_Flag_Integrer_TM
(
i_lot IN VARCHAR2,
i_PrefixeErreur IN VARCHAR2
) IS
nb_lig NUMBER;
...
BEGIN
...
SousRequeteSQL := 'SELECT count(*) FROM '
|| TRIM(TT_Table)
|| ' WHERE '
|| TRIM(TT_Lot)
|| ' = '
|| ''''
|| TRIM(i_lot)
|| ''''
|| ' AND '
|| TRIM(TT_Integrer)
|| ' = 0 AND '
|| TRIM(TM_Integrer)
|| ' = 1 AND '
|| TRIM(TT_Colonne)
|| ' = '
|| TRIM(TM_Colonne);
 
EXECUTE IMMEDIATE RequeteSQL INTO nb_lig;
DBMS_OUTPUT.PUT_LINE(nb_lig);
 
SousRequeteSQL := 'SELECT 1 FROM '
|| TRIM(TT_Table)
|| ' WHERE '
|| TRIM(TT_Lot)
|| ' = '
|| ''''
|| TRIM(i_lot)
|| ''''
|| ' AND '
|| TRIM(TT_Integrer)
|| ' = 0 AND '
|| TRIM(TM_Integrer)
|| ' = 1 AND '
|| TRIM(TT_Colonne)
|| ' = '
|| TRIM(TM_Colonne);
RequeteSQL := 'UPDATE '
|| TRIM(TM_Table)
|| ' SET '
|| TRIM(TM_Integrer)
|| ' = 0 WHERE EXISTS ('
|| TRIM(SousRequeteSQL)
|| ')';
EXECUTE IMMEDIATE RequeteSQL;
DBMS_OUTPUT.PUT_LINE(SQL%ROWCOUNT);
 
...

[vavastan]

je recupère bien mon nombre de ligne avec DBMS_OUTPUT
mais ça ne change rien :
la requete update marche sous toad
mais pas via mon batch

[orafrance]

à mon avis tu ne regardes pas la bonne table... tu utilises le même user ? Il n'y a pas de synonyme ?

[mnitu]

à mon avis tu ne regardes pas la bonne table... tu utilises le même user ? Il n'y a pas de synonyme ?

peut être je me trompe mais Bingo

Code :

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

1
2
3
4
...
FROM &6..TEC_ERREURS_CODES
...

[vavastan]

je suis bien sur le bon user
et je n'ai pas de synonyme
(ce sont des tables toutes créées dynamiquement)

[vavastan]

non ce n'est pas un probleme de user

j'ai essayée de mettre les &6.. partout mais ça donne pareil

de plus, je n'ai aucun message d'erreur

[mnitu]

Ajoutez (déjà demandé par orafrance)

Code :

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

1
2
 
DBMS_OUTPUT.PUT_LINE(RequeteSQL);

dans ta procédure et poste la requête générée.

[McM]

peut être je me trompe mais Bingo

Code :

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

1
2
3
4
...
FROM &6..TEC_ERREURS_CODES
...

En sql+, oracle te demande de remplacer le &6 par une valeur.
En création de procédure, ça ne marche pas, vu que le code est précompilé.

A mon avis, ta procédure n'est pas compilée.
(et en plus il manque un ; au dernier END)

Fais un show error.

[mnitu]

En sql+, oracle te demande de remplacer le &6 par une valeur.
En création de procédure, ça ne marche pas, vu que le code est précompilé.
...

Si il exécute son script de création de la procédure par sqlplus, sqlplus va demander la valeur pour la variable de substitution et la procédure peut être crée avec succès. (bref, je n'aime pas du tout ça et de meilleures solutions existent pour attendre le même but).