Aide sur les packages

**Maglight** · 12/10/2005, 15h46

Version Oracle : 9.2.1.0
Système d'exploitation WINDOWS

Bonjour
J’ai créé un package pour gérer des mises à jour dans certaines tables, il est appelé dans plusieurs procédures et ce n’est pas les mêmes champs qui sont mis à jour
Je n’ai trouvé que la solution de définir un type RECORD, je suppose qu’il y a une autre façon de procéder?
J’ai essayer de passer par un curseur mais j’ai un problème avec les valeurs par défaut
Voici une partie du code, merci pour vos conseils

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
CREATE OR REPLACE PACKAGE DOSSIER_PKG IS
 
TYPE typ_dos is record (dossier    dos.dossier%type,
         	 		 dt_cre    dos.dt_cre%type ,
  			 dt_deb    dos.dt_deb%type ,
 			 dt_fin    dos.dt_fin%type ,
 			 option    dos.option%type default '0',
			 ..... ,
			 ..... ,			
		   );			   
 
 rec_dos typ_dos ;
 
procedure ajout_dossier;
procedure Suppr_client;
.....
.....
 
END DOSSIER_PKG;
/
 
 
CREATE OR REPLACE PACKAGE BODY DOSSIER_PKG IS
 
    PROCEDURE Ajout_Dossier
    IS
 
      BEGIN
           IF REC_DOS.dossier is null  Then
              SELECT DOS.nextval INTO REC_DOS.dossier From dual;
 
             INSERT INTO DOS(dossier,dt_cre,dt_deb,dt_fin, ..... , ........  ) 
              VALUES(REC_DOS.dossier,
                          REC_DOS.dt_cre,
                          REC_DOS.dt_deb,
                          REC_DOS.dt_fin
                          ......
                          ...... 
                        ) ;
 
         ELSE
              .............;
              .............;
        END IF;
 
END;
 
 
END Dossier_pkg;
/

**Process Linux** · 12/10/2005, 16h21

Je n'ai pas compris votre question, qu'est ce que vous voulez faire exactement ?

**Maglight** · 12/10/2005, 16h30

Je voudrais savoir comment définir un type ayant la structure d'une table autrement que par un RECORD

**plaineR** · 12/10/2005, 16h39

Je ne suis pas sûr d'avoir compris non plus, mais cela peut-être répondra à ton problème :

Code :

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

mavariable matable%rowtype;

**Process Linux** · 12/10/2005, 16h43

voici un petit code qui réponde à ta question

Code :

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

1
2
3
4
5
6
7
 
PACKAGE BODY nom_package
IS
 
rec_dos ma_table%rowtype;
 
...

tu n'auras pas besoin de définir un type , le rowtype prend la structure de la table , en plus c'est dynamique.
Est ce ca répond à ta question ?

**SheikYerbouti** · 12/10/2005, 16h52

Vous pouvez créer un objet basé (bien que la différence avec un record ne soit pas évidente dans votre cas)

Code :

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

1
2
3
4
5
6
7
CREATE OR REPLACE TYPE TYP_XX AS OBJET
(
  col1  Varchar2(10),
  col2  Number,
  ...
)
/

**Maglight** · 12/10/2005, 16h57

J'ai fais un essai avec le code suivant

Code :

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

1
2
3
4
PACKAGE BODY nom_package 
IS 
 
rec_dos ma_table%rowtype;

J'ai une erreur lorsque j'utilise rec_dos.mon_champ
"Champ non défini"

**plaineR** · 12/10/2005, 17h01

et la colonne mon_champ existe bien dans la table ma_table ?

**Maglight** · 12/10/2005, 17h10

Oui, de plus le problème est sur tous les champs

**plaineR** · 12/10/2005, 18h56

Bizarre, cela devrait fonctionner :

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
SQL> create table test_dvp (col1 varchar2(30), col2 varchar2(30))
  2  /
Table created.
 
SQL> insert into test_dvp values ('a', 'A')
  2  /
1 row created.
 
SQL> insert into test_dvp values ('b', 'B')
  2  /
1 row created.
 
SQL> insert into test_dvp values ('c', 'C')
  2  /
1 row created.
 
SQL> create or replace package pack_dvp is
  2    v_test_dvp test_dvp%rowtype;
  3    
  4    procedure affiche_col2_test_dvp (val_col1 in varchar2);
  5  end;
  6  /
Package created.
 
SQL> create or replace package body pack_dvp is
  2    procedure affiche_col2_test_dvp (val_col1 in varchar2) is
  3    begin
  4      select *
  5      into v_test_dvp
  6      from test_dvp
  7      where col1 = val_col1
  8        and rownum = 1;
  9      dbms_output.put_line (v_test_dvp.col1 || '=>' || v_test_dvp.col2);
 10    end;
 11  end;
 12  /
Package body created.
 
SQL> exec pack_dvp.affiche_col2_test_dvp ('a')
a=>A
PL/SQL procedure successfully completed.

**Maglight** · 13/10/2005, 09h57

Merci beaucoup

**dyvim** · 13/10/2005, 14h37

Envoyé par plaineR

Bizarre, cela devrait fonctionner :

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
SQL> create table test_dvp (col1 varchar2(30), col2 varchar2(30))
  ...
SQL> create or replace package body pack_dvp is
  2    procedure affiche_col2_test_dvp (val_col1 in varchar2) is
  3    begin
  4      select *
  5      into v_test_dvp
  6      from test_dvp
  7      where col1 = val_col1
  8        and rownum = 1;
  9      dbms_output.put_line (v_test_dvp.col1 || '=>' || v_test_dvp.col2);
 10    end;
 11  end;
 12  /
...

Je me demandais à quoi servait le

Code :

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

where rownum=1

???
Est ce que ca ne fait pas apparaitre forcément "a=>A" ???

**plaineR** · 13/10/2005, 15h06

Le rownum = 1 sert à ne ramener qu'une ligne.

Dans mon exemple, cela ne sert à rien puisque je n'ai qu'une ligne dont la col1='a', si j'en avais eu plusieurs, seul la première ligne aurait été ramenée sans que j'ai à gérer l'exception too_many_rows.

**dyvim** · 13/10/2005, 23h00

Merci ... cette astuce pourra certainement m'être utile un jour...
Bien qu'une requete qui doit ramener une seule ligne et en ramène plusieurs soit en toute logique mal écrite

...
Et je me trompais sur sa signification puisque le numéro de ligne(rownum) est celui du résultat et pas celui de la table d'origine...

**plaineR** · 14/10/2005, 09h31

Envoyé par dyvim

Bien qu'une requete qui doit ramener une seule ligne et en ramène plusieurs soit en toute logique mal écrite

...

Pas forcément, par exemple, parfois tu as juste besoin de savoir s'il existe au moins un enregistrement correspondant à ta requête avant d'effectuer une action. Le rownum est pratique dans ce cas.

**dyvim** · 14/10/2005, 10h37

Envoyé par plaineR

Pas forcément, par exemple, parfois tu as juste besoin de savoir s'il existe au moins un enregistrement correspondant à ta requête avant d'effectuer une action. Le rownum est pratique dans ce cas.

Bah j'aurais plutôt fait un count(*)... mais le rownum=1 peut avoir son interêt...

**plaineR** · 14/10/2005, 11h13

Au niveau perf le count n'est vraiment pas terrible

, il vaut mieux de loin utiliser le rownum

**orafrance** · 14/10/2005, 11h24

au niveau perf ça ne change rien puisque le rownum ne s'applique que sur le fetch, toutes les données sont récupérées comme le COUNT

**plaineR** · 14/10/2005, 11h28

Envoyé par Fred_D

au niveau perf ça ne change rien puisque le rownum ne s'applique que sur le fetch, toutes les données sont récupérées comme le COUNT

Code :

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

1
2
3
4
5
6
7
8
9
10
11
SQL> select count(*) from matable;
 COUNT(*)
---------
   426840
 real: 2656
 
SQL> select 1 from matable where rownum = 1;
        1
---------
        1
 real: 62

Aide sur les packages

Oracle

Discussions similaires

Partager

Partager