Comprehension syntaxe d'une procédure [Résolu]

[devalender]

Bonjour tous
j'ai mis en place une procédure qui ne marche pas ! je ne sais pas ou se trouve l'erreur, voici le code :

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
SET TERM ^ ;
 
CREATE PROCEDURE FOTO
RETURNS(
  RESULTAT VARCHAR(500) CHARACTER SET ISO8859_1)
AS
DECLARE VARIABLE MONCODE VARCHAR(80);
DECLARE VARIABLE LAROUTE VARCHAR(200);
DECLARE VARIABLE LEFICHIER VARCHAR(100);
BEGIN
FOR
SELECT REPLACE(champ5,'/','-'), LECHEMINFICHIER(champ15) ,LENOMFICHIER(champ15)
FROM MESINFORMATIONS
WHERE champ15 CONTAINING '\'
INTO :moncode,:laroute, lefichier
DO
BEGIN
RESULTAT=:laroute||'\'||:moncode||''||'.jpg';
UPDATE MESINFORMATIONS
SET
champ15=:RESULTAT
WHERE CHAMP5=:moncode;
SUSPEND;
END
END^
 
SET TERM ; ^

A l’exécution pas de problème, mais après un select sur le table rien n'a changé.
A mon avis a chaque sélection de la boucle for il doit avoir une exécution d'update !

Code :

1
2
3
4
5
6
7
FOR
SELECT .....................................  //A chaque select
DO
BEGIN
UPDATE.......................................//On un update
END
END^

Merci pour vos éclairages.

[dehorter olivier]

Bonjour
As tu validé la transactions ?

[devalender]

oui comitt transaction !

[dehorter olivier]

Il n'y a pas de problème de syntaxe, mais de logique.

La variable "nom code" contient Champs5 MAIS dont les "/" sont remplacés par des "-"; donc la clause de sélection dans l'UPDATE
WHERE CHAMP5=:moncode; ne trouve évidemment rien

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
FOR 
   SELECT Champ5,
           Lecheminfichier(Champ15),
           Lenomfichier(Champ15)
      FROM Mesinformations
    WHERE Champ15 CONTAINING '\'
    INTO :Moncode,
         :Laroute,
         Lefichier
DO
BEGIN
    Resultat = :Laroute || '\' || REPLACE(:Moncode, '/', '-') || '' || '.jpg';
    UPDATE Mesinformations
    SET Champ15 = :Resultat
    WHERE Champ5 = :Moncode;
END

[devalender]

je crois avoir trouver la valeur du champ5 change lors de la comparaison dans le Where du update,
donc il ne retrouve plus l'ancienne valeur.

Code :

1
2
3
4
5
6
7
8
9
10
11
SELECT champ5, LECHEMINFICHIER(champ15) ,LENOMFICHIER(champ15)
FROM MESINFORMATIONS
WHERE champ15 CONTAINING '\'
INTO :moncode,:laroute, lefichier
DO
BEGIN
RESULTAT=:laroute||'/'||replace(:moncode,'/','-')||''||'.jpg';
UPDATE MESINFORMATIONS
SET
champ15=:RESULTAT
WHERE CHAMP5=:moncode;

Merci a tous