Problème de cursor

Version imprimable

Problème de cursor

Je cherche à copier une table dans une autre. Pour chaque enregisrement je veux vérifier que le code de l'enregistrement est contenu dans la table de destination. S'il est bien contenu, je vais un update de la ligne sinon je dois refusé l'importation de la ligne et loggé l'erreur.
Mon problème c'est que mon update ne se déclenche jamais et je ne sais pas comment faire pour logger l'information en cas de refus d'importation.
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 30 31 32 33 34 35 36 37 DECLARE TYPE recordTypeFlux IS RECORD ( libelle tmp_type_flux.tf_libelle%TYPE, code tmp_type_flux.tf_code%TYPE ); rec recordTypeFlux; CURSOR CurseurTypeFlux IS select tf_libelle , tf_code from tmp_type_flux; CURSOR ExisteTypeFlux IS select * from type_flux where type_flux.code_type_flux = rec.code; BEGIN OPEN CurseurTypeFlux; OPEN ExisteTypeFlux; dbms_output.put_line('1'); LOOP FETCH CurseurTypeFlux INTO rec; EXIT WHEN CurseurTypeFlux%NOTFOUND; If ExisteTypeFlux%NOTFOUND Then update type_flux set libelle_type_flux = rec.libelle; /* insert into type_flux(libelle_type_flux, code_type_flux) values (rec.libelle,rec.code); */ END If; END LOOP; CLOSE CurseurTypeFlux; CLOSE ExisteTypeFlux; COMMIT; END;

03/11/2005, 11h59
TheRussian

Bonjour,

est-ce du PL/SQL sur Oracle ?
Car si c'est le cas le forum Oracle sera peut-être mieux pour avoir une réponse.

Je ne connais pas Oracle.

C'est du PL/SQL, non ? Pourquoi ne pas avoir posté dans le forum oracle ?

Tu fais :

Code:

If ExisteTypeFlux%NOTFOUND Then

alors que tu n'as pas fait de fetch sur ce curseur, il ne peut donc jamais faire d'update.

Par ailleurs, la déclaration de ton curseur ExisteTypeFlux est fausse, en effet dans :

Code:

where type_flux.code_type_flux = rec.code;

rec.code est null au moment de la déclaration, ta condtion ne sera jamais respectée. Tu dois donc passer par un paramètre au niveau de ton curseur ou faire un simple select (mieux au niveau perf).

Voici ton script corrigé :

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
30
31
32
33
34
DECLARE  
  TYPE recordTypeFlux IS RECORD 
    ( 
      libelle tmp_type_flux.tf_libelle%TYPE, 
      code tmp_type_flux.tf_code%TYPE 
    ); 
 
  rec recordTypeFlux; 
 
  CURSOR CurseurTypeFlux IS 
         select tf_libelle , tf_code from tmp_type_flux; 
  CURSOR ExisteTypeFlux (rec_code tmp_type_flux.tf_code%TYPE) IS 
         select * from type_flux where type_flux.code_type_flux = rec_code; 
  rec2 ExisteTypeFlux%rowtype;
BEGIN    
 
  OPEN CurseurTypeFlux; 
 
  dbms_output.put_line('1'); 
 
  LOOP    
     FETCH CurseurTypeFlux INTO rec; 
  EXIT WHEN CurseurTypeFlux%NOTFOUND; 
     OPEN ExisteTypeFlux (rec.code);
     FETCH ExisteTypeFlux INTO rec2;
     If ExisteTypeFlux%NOTFOUND Then 
        update type_flux set libelle_type_flux = rec.libelle; 
        /* insert into type_flux(libelle_type_flux, code_type_flux) values (rec.libelle,rec.code); */ 
     END If; 
     CLOSE ExisteTypeFlux; 
  END LOOP; 
  CLOSE CurseurTypeFlux; 
  COMMIT; 
END;

et voici une version optimisé de celui-ci :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
DECLARE  
  CURSOR CurseurTypeFlux IS 
         select tf_libelle , tf_code from tmp_type_flux;
  v_exist number(1); 
BEGIN    
  FOR rec in CurseurTypeFlux LOOP
     begin
       select 1
       into v_exist
       from type_flux 
       where type_flux.code_type_flux = rec_code
         and rownum = 1;
     exception 
        when no_data_found then
            update type_flux set libelle_type_flux = rec.libelle; 
            /* insert into type_flux(libelle_type_flux, code_type_flux) values (rec.libelle,rec.code); */ 
     end;
  END LOOP; 
  COMMIT; 
END;

Qu'appelles-tu loggé l'information ?

03/11/2005, 12h39
lapartdombre

Merci beaucoup... par loggé j'entends renseigner un fichier de le log en lui disant que la ligne contenant le code et le libelle x ne peut etre insérée
03/11/2005, 12h58
plaineR

Dans ce cas il faut que tu utilises le package utl_file. Pour plus d'infos sur ce package :
http://sheikyerbouti.developpez.com/pl_sql/?page=Chap8
03/11/2005, 14h08
Xo

Ca fait la 2° fois en 2 jours que je déplace un de tes sujet sur le forum Oracle, merci de jeter un oeil à tes mp ;)