Discussion :

[providence]

Bonjour tout le monde,

je voudrais paramétrer le nom de mes colonnes.voilà comment ma table se présente:

Facture01;Facture02;Facture03;Facture04;...;Facture12
les chiffres correspondants aux différents mois de l'année.

voici un bout de code de ma procédure 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
 
IF 
    SUBSTR(xINVOICE_NO,5,2)=04 
THEN UPDATE BAL_AGEE SET   FACTURE04=xFACTURE 
    WHERE CONTRACT_NO=xCONTRACT;
END IF;
 
IF 
    SUBSTR(xINVOICE_NO,5,2)=05
 THEN UPDATE BAL_AGEE SET   FACTURE05=xFACTURE 
  WHERE CONTRACT_NO=xCONTRACT;
END IF;
.....
 
IF 
    SUBSTR(xINVOICE_NO,5,2)=12
 THEN UPDATE BAL_AGEE SET   FACTURE12=xFACTURE 
  WHERE CONTRACT_NO=xCONTRACT;
END IF;

je voudrais pouvoir utiliser une variable dans une boucle de sorte à pouvoir modifier dynamiquement le nom de mes colonnes FACTUREX(X allant de 1 à 12).

Esperant avoir bien posé mon souci.

[Waldar]

C'est possible mais concaténant une chaîne de caractères puis en effectuant un execute immediate.

Voir l'entrée de Sheikyerbouti à ce sujet :
http://sheikyerbouti.developpez.com/execute_immediate/

[providence]

merci Waldar de t'être penché sur ma préoccupation.J'avais dejà lu cette doc de SheikYerbouti que je salue au passage.

je me demande si le script ci-dessous pourrait être une solution:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
DECLARE
   X  integer
BEGIN
X:=1
Loop
  LC$Requete := ‘Update BAL_AGEE set 'FACTURE'||X where FACTURE=Xfacture’;
  EXECUTE IMMEDIATE LC$Requete;
  X:=X+1;
  exit when X=12
END loop;
end

merci d'éclairer ma lanterne

[Waldar]

Il y a plus rapide pour écrire la boucle, et il faut penser à bien transformer le nombre en chaîne.

Ça donnerait quelque chose de ce goût-là :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
declare
  LC$Requete varchar2(250);
begin
  for x in 1..12
  loop
    LC$Requete := 'Update BAL_AGEE set facture' || to_char(x, 'FM00') || 
                  ' = :1 where contract_no = :2';
    execute immediate LC$Requete using xFACTURE, xCONTRACT;
  end loop;
end;
/

N'oubliez pas de contrôler le code généré à l'aide de dbms_output.