Procedure pour dupliquer une ligne

Version imprimable

Bonjour,

jai 2 tables :
- Personnes : où il y a mes données.
- Tampon : vide

Personnes (Nom,Prenom,Adresse,Groupe)
Tampon(TNom,TPrenom,TAdresse,TGroupe)

le champs Personnes.Groupe est un VARCHAR2, il peut avoir comme valeur (A; AB;ABC; ABCD etc...)

Le but est de copier le contenu de personnes dans Tampon et quand Groupe à n lettres, dupliquer la ligne n fois dans Tampon.

Exemples :
on a dans personnes
Martin toto 15 rue du four ABC
Dupond titi 28 av des fleurs C

on veut dans Tampon
Martin toto 15 rue du four A
Martin toto 15 rue du four B
Martin toto 15 rue du four C
Dupond titi 28 av des fleurs C

jai fais la procedure PL/SQL suivante
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 28 29 CREATE OR REPLACE PROCEDURE Dupliquer_lignes IS CURSOR CCur IS SELECT a.Nom,a.Prenom,a.Adresse,a.Groupe FROM Personnes a; ligne Personnes%ROWTYPE; n Personnes.Nom%TYPE; p Personnes.Prenom%TYPE; adr Personnes.Adresse%TYPE; g Personnes.Groupe%TYPE; i NUMBER; BEGIN i:=1; OPEN CCur; LOOP; FETCH CCur INTO n,p,adr,g; EXIT WHEN CCur%NOTFOUND; IF substr(trim(a.Groupe))>1 THEN FOR i IN 1 .. substr(trim(a.Groupe)) LOOP; INSERT INTO Tampon VALUES(n,p,adr,g); i:=i+1; END LOOP; ELSE INSERT INTO Tampon VALUES(n,p,adr,g); END IF; END LOOP; CLOSE CCur; END; /
Mes Problèmes :

1 - Il y a une erreur de syntaxe que je ne trouve pas
2 - Je ne sais pas comment ecrire "quand on duplique, on prend la 1er Groupe, puis le 2nd etc...
3 - Avez-vous une solution plus simple.

Merci

1) l'erreur est dans le substr
2) Tu mélanges LE PL/SQL et le VB
3) Il y a une boucle beaucoup plus simple en PL

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
CREATE OR REPLACE PROCEDURE Dupliquer_lignes IS
CURSOR CCur
IS
  SELECT   a.Nom,
           a.Prenom,
           a.Adresse,
           a.Groupe
    FROM   Personnes a;
ligne   ccur%ROWTYPE;
BEGIN
FOR ligne IN CCur
LOOP
   FOR i IN 1 .. LENGTH (ligne.Groupe)
     LOOP
        INSERT INTO Tampon
          VALUES   (ligne.Nom,
                    ligne.Prenom,
                    ligne.Adresse,
                    SUBSTR (ligne.Groupe, i, 1));
     END LOOP;
END LOOP;
COMMIT;
END;

Nul besoin d'un procédure compliquée. En fait vous avez besoin d'une requête pivot pour multiplier les enregistrements comme dans l'exemple

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
 
SQL> r
  1  With data as
  2  (
  3    Select 'Martin' nom, 'toto' prenom, '15 rue du four' adresse, 'ABC' Groupe from dual union all
  4    Select 'Dupond' nom, 'titi' prenom, '28 av des fleurs' adresse, 'C' Groupe From dual
  5  ), pivot as
  6  (
  7    Select level row_num from dual connect by level <= 10
  8  )
  9  Select nom, prenom, adresse, groupe
 10    From (
 11           Select nom, prenom, adresse, substr(groupe, row_num,1) groupe
 12             From data,
 13                  pivot
 14         )
 15* Where groupe is not null
 
NOM    PREN ADRESSE          G
------ ---- ---------------- -
Martin toto 15 rue du four   A
Dupond titi 28 av des fleurs C
Martin toto 15 rue du four   B
Martin toto 15 rue du four   C

et ensuite il reste seulement de faire un simple insert into tampon select ... from...

15/01/2009, 20h52
gdeon

Merci, en fait je me suis aperçu de mon erreur et j'ai fais la meme chose que garuda.

par contre je ne connaissais pas les pivot