[PLSQL] TYPE RECORD

**romuald9999** · 18/08/2004, 20h33

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
 
CREATE OR REPLACE PACKAGE Mon_Package IS 
 
  TYPE t_rec_prog IS RECORD (num prog.id%TYPE, 
                                             nom prog.nom%TYPE, 
                                             type prog.type%TYPE); 
 
  TYPE tab_t_rec_prog IS TABLE OF T_REC_BUG INDEX BY BINARY_INTEGER; 
 
  FUNCTION MesProg (p_i NUMBER, 
                                p_parametre1 NUMBER, 
                                p_parametre1 NUMBER ) RETURN TAB_T_REC_PROG; 
 
END Mon_Package; 
/ 
 
CREATE OR REPLACE PACKAGE BODY Mon_Package IS 
 
FUNCTION MesProg (p_i NUMBER, 
                              p_parametre1 NUMBER, 
                              p_parametre1 NUMBER) RETURN T_REC_PROG IS 
 
 CURSOR curs IS SELECT num, nom, type 
                          FROM prog 
                          WHERE nom = p_parametre1 
                                      AND type = p_parametre2; 
 
t_rec TAB_T_REC_PROG; 
i NUMBER := 1; 
 
BEGIN 
  FOR rec IN curs LOOP 
    t_rec(i).num := rec.num; 
    t_rec(i).nom := rec.nom; 
    t_rec(i).type := rec.type; 
    i := i+1; 
  END LOOP; 
 
  RETURN(t_rec(p_i)); 
 
END Mon_Package; 
/

Je fais ensuite appel a cette fonction mais comment acceder a chaque element du record?
Mon_Package.MesProg(i, param1, param2).id ??????????
Mon_Package.MesProg(i, param1, param2).nom ??????????
Mon_Package.MesProg(i, param1, param2).type??????????
[/code]

**plaineR** · 19/08/2004, 09h14

Oui par exemple ou tu peux également faire :

Code :

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

1
2
3
4
5
6
7
 
declare
   mavar t_rec_prog;
begin
   mavar := Mon_Package.MesProg(i, param1, param2);
   if mavar.id = ...
end;

... ce qui à l'avantage de n'exécuter qu'une fois le code de ta fonction, ce qui peut améliorer les temps de réponse.

**argoet** · 19/08/2004, 10h06

Un chtite exemple qui fonctionne avec 2 fonctions

1 qui ramene une collection (table) et l'autre qui ramene un record (like you want !!!

)

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
 
CREATE OR REPLACE PACKAGE Mon_Package IS 
 
  TYPE t_rec_prog IS RECORD (num prog.num%TYPE, 
                                             nom prog.nom%TYPE, 
                                             type prog.type%TYPE); 
 
 
  TYPE tab_t_rec_prog IS TABLE OF T_REC_PROG INDEX BY BINARY_INTEGER; 
 
  FUNCTION TAB_MesProg (p_i NUMBER) RETURN TAB_T_REC_PROG; 
  FUNCTION REC_MesProg (p_i NUMBER) RETURN T_REC_PROG; 
 
END Mon_Package; 
/ 
;
show err

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
 
CREATE OR REPLACE PACKAGE BODY Mon_Package IS 
 
-----------------------------------------------------------------
---  Ramene une collection d'enregistrements
-----------------------------------------------------------------
FUNCTION TAB_MesProg (p_i NUMBER) RETURN TAB_T_REC_PROG IS 
 
 CURSOR curs IS SELECT num, nom, type FROM prog where num = p_i;
 
  t_rec TAB_T_REC_PROG; 
  i NUMBER := 1; 
 
BEGIN 
  FOR rec IN curs LOOP 
    t_rec(i).num := rec.num; 
    t_rec(i).nom := rec.nom; 
    t_rec(i).type := rec.type; 
    i := i+1; 
  END LOOP; 
 
  RETURN(t_rec); 
 
END TAB_MesProg;

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
 
 
-----------------------------------------------------------------
---  Ramene  1 Enreg
-----------------------------------------------------------------
FUNCTION REC_MesProg (p_i NUMBER) RETURN T_REC_PROG IS 
 
 CURSOR curs IS SELECT num, nom, type FROM prog where num = p_i;
 
  t_rec TAB_T_REC_PROG; 
  i NUMBER := 1; 
 
BEGIN 
  FOR rec IN curs LOOP 
    t_rec(i).num := rec.num; 
    t_rec(i).nom := rec.nom; 
    t_rec(i).type := rec.type; 
    i := i+1; 
  END LOOP; 
 
  RETURN(t_rec(p_i)); 
 
END REC_MesProg; 
 
END Mon_Package; 
/ 
;
show err

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
 
 
Set Serveroutput on;
 
Declare
    Result Mon_Package.tab_t_rec_prog;
Begin
    Result := Mon_Package.TAB_MesProg(1);
 
    Dbms_output.put_line(Result(1).nom);
    Dbms_output.put_line(Result(2).nom);
 
    Dbms_output.put_line(Mon_Package.REC_MesProg(1).nom);
    Dbms_output.put_line(Mon_Package.REC_MesProg(2).nom);
 
End;
/

**romuald9999** · 19/08/2004, 10h50

Genial les collections, je vais utiliser plus souvent!
Pour des questions de perf je vais plutot retourner au travers de ma fonctions une collection d'enregistrements (FUNCTION TAB_MesProg (p_i NUMBER) RETURN TAB_T_REC_PROG ) et ainsi comme le disait PlaineR,
ma fonction sexecute une fois me retourne tous les records dont jai besoin!

Ca marche pile poil sauf que jai un petit probleme sql

Code :

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

1
2
3
4
 
date BETWEEN TO_DATE(NVL(p_date_parametre1,'19000101'), 'DD/MM/YYYY') AND TO_DATE(p_dateparametre2, DD/MM/YYYY'))
AND type = NVL(DECODE(p_type_parametre, 'LAGIER', 1, 'TRACIER', 2),  type)
AND description LIKE NVL('%' || TRIM(REPLACE(description_parametre, CHR(10), CHR(32))) || '%',description )

Nous sommes daccord que avec un tel code concernant notemment les types, je devrais avoir les types recherches si le "p_type_parametre" est renseigne et tous les types de ma table si le "p_type_parametre" nest pas renseigne cad les records ou le type est null dans la table egalement?
De meme pour le description!!
Pourtant il retourne pas les records dont ces champs sont null!!

Si vous voyez le truc merci
Sinon ben merci a tous pour les collections, c vachement utile apperement!

**echoes** · 19/08/2004, 10h54

il n'y aurait point une pitite erreur de format de date dans :

Code :

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

1
2
 
TO_DATE(NVL(p_date_parametre1,'19000101'), 'DD/MM/YYYY')

?

**romuald9999** · 19/08/2004, 10h59

oups

Code :

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

1
2
3
4
 
date BETWEEN TO_DATE(NVL(p_date_parametre1,'01/01/1900'), 'DD/MM/YYYY') AND TO_DATE(p_dateparametre2, DD/MM/YYYY')) 
AND type = NVL(DECODE(p_type_parametre, 'LAGIER', 1, 'TRACIER', 2),  type) 
AND description LIKE NVL('%' || TRIM(REPLACE(description_parametre, CHR(10), CHR(32))) || '%',description )

Mais ca ne vient pas de la jai juste fais une erreur en recopiant!

**echoes** · 19/08/2004, 11h09

et avec :

Code :

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

1
2
 
AND nvl(type,0) = NVL(DECODE(p_type_parametre, 'LAGIER', 1, 'TRACIER', 2),  0)

?

**romuald9999** · 19/08/2004, 11h32

oui merci ca marche mais je comprends pas pourquoi

type = NVL(DECODE(p_type_parametre, 'LAGIER', 1, 'TRACIER', 2), type)

ne fonctionnait pas!

Tu as une idee pour la date? Quand la base a ete cree le champ date a ete defini comme NULL POSSIBLE si bien que beaucoup de records nont pas de date et jaimerais que ces records soient retournee au demandeur si dans mon formulaire le champ date nest pas renseigne!
En effet dans mon code si le champ date du formulaire nest pas renseigne jimpose une recherche entre 01/01/1900 et sysdate ce qui ninclue pas les dates NULL!

**argoet** · 19/08/2004, 11h46

parce qu'une egalite sur une valeur null est "inconsidérée" par oracle
regardes , si tu fais

Code :

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

where type = type

dans ta requete : seul les record avec type renseigné seront selectionnés

**romuald9999** · 19/08/2004, 13h30

en effet logique merci!
Mais pour la date vous feriez comment?

Code :

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

1
2
 
BETWEEN TO_DATE(NVL(p_date_parametre1,'01/01/1900'), 'DD/MM/YYYY') AND TO_DATE(p_dateparametre2, DD/MM/YYYY'))

Je veux faire afficher les records NULL pour la date au cas ou les champs dates dans les formulaisres ne sont pas renseignes!

**plaineR** · 19/08/2004, 14h13

porquoi ne pas faire tout bêtement ?

Code :

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

1
2
3
 
date_ BETWEEN TO_DATE(NVL(p_date_parametre1,'01/01/1900'), 'DD/MM/YYYY') AND TO_DATE(p_dateparametre2, DD/MM/YYYY')) 
or date is null

**argoet** · 19/08/2004, 14h14

Nvl date au 01/01/1900 = cas du paramtre non renseigné : dans le cas contraire à priori parametre 1 est > au 01/01/1900 donc pas d'égalité

Code :

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

1
2
3
4
 
where nvl(Ma_table.date,to_date('01/01/1900','DD/MM/YYYY'))
      BETWEEN To_Date(NVL(p_date_parametre1,'01/01/1900'), 'DD/MM/YYYY') And 
              To_Date(NVL(p_date_parametre2,'01/01/1900'), 'DD/MM/YYYY')

**romuald9999** · 19/08/2004, 14h40

ok merci beaucoup argoet!

PlaineR, si je met un "or date is null", dans ce cas je ramene les records dont la date est nulle meme si le champ date est renseigne dans le formulaire!

**plaineR** · 19/08/2004, 15h18

Rien ne t'empêche de faire :

Code :

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

1
2
(date_ BETWEEN p_date_parametre1 and p_date_parametre2
or (p_date_parametre1 is null and date is null))

Perso, j'aime pas les valeurs par défaut, c'est souvent risque de bug, si elles sont mal pensées ! En plus je trouve cela plus lisible.

Question subsidiaire : que ce passe-t-il si ton paramètre p_date_parametre2 est null ?

[PLSQL] TYPE RECORD

Oracle

Discussions similaires

Partager

Partager