Précédent   Forum des professionnels en informatique > Bases de données > Oracle > PL/SQL
PL/SQL Forum d'entraide sur le PL/SQL
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 31/01/2011, 17h18   #1
Membre habitué
 
Avatar de anayathefirst
 
Inscription : décembre 2006
Messages : 326
Détails du profil
Informations personnelles :
Âge : 27
Localisation : France, Loire Atlantique (Pays de la Loire)

Informations forums :
Inscription : décembre 2006
Messages : 326
Points : 147
Points : 147
Par défaut [Oracle 10G] Tableau Croisé Dynamique

Salut,
J'aimerais créer une procédure qui génère un tableau croisé dynamique. Bien entendu, je sais que c'est impossible avec une commande SQL classique.
J'ai donc écrit une procédure qui génère dynamiquement une requête SQL avec toutes mes colonnes, mais je ne sais pas comment retourner le resultat de la requête comme celui d'un select clasique.
Si dessous le code que j'utilise :
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
declare 
  stmt varchar2 (2048);
  abu varchar2(56);
  cursor cursor_abu IS 
    SELECT DISTINCT val_2 
    FROM t_slalom_outputs 
    WHERE table_name='WS3_MATURITY_LEVEL_PROCESS';
begin
stmt := 'select '
  || ' decode(grouping(val_3),1,''Grand Total'',val_3) as domain, '
  || ' decode(grouping(val_4),1,''-'',val_4)as process';
  open cursor_abu;
  loop
    fetch cursor_abu INTO abu;
    exit when cursor_abu%notfound;
    stmt := stmt || ' ,round(sum(decode(val_2,''' ||abu || ''',val_5,0))/sum(decode(val_2,''' ||abu || ''',1,0)),2) as "' ||abu ||'" ';
  end loop;
  close cursor_abu;
  stmt := stmt || 'from '
  || 't_slalom_outputs '
  || 'where '
  || 'table_name=''WS3_MATURITY_LEVEL_PROCESS'' '
  || 'group by rollup (val_3,val_4) '
  || 'order by 1 asc, 2 asc';
 
  execute immediate stmt;
 
end;
Pour info, je fait ça pour intégrer le résultat dans un système de reporting extrêmement archaïque qui ne sais pas générer automatiquement des tableaux croisés (eh oui, ça existe encore).
Dans mon système, la seul chose que je peux lui donner est une requête SQL, donc si je peux lui renvoyer le résultat de la requête dans ma procédure, ce serait l'idéal.

PS. Non, je ne peux pas créer une fonction qui génère la requête et la donner à mon logiciel (il est archaïque, et mon client n'est pas prête à le changer)
anayathefirst est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 31/01/2011, 18h24   #2
Membre Expert
 
Avatar de Garuda
 
Homme Philippe CHIRCOP
Chef de projet
Inscription : juin 2007
Messages : 1 109
Détails du profil
Informations personnelles :
Nom : Homme Philippe CHIRCOP
Localisation : France

Informations professionnelles :
Activité : Chef de projet
Secteur : Bâtiment

Informations forums :
Inscription : juin 2007
Messages : 1 109
Points : 1 559
Points : 1 559
Citation:
Dans mon système, la seul chose que je peux lui donner est une requête SQL, donc si je peux lui renvoyer le résultat de la requête dans ma procédure, ce serait l'idéal.
je ne comprends pas !
Tu peux lui donner une requête SQL ou le résultat d'une requête ????
__________________
Garuda गरूड
Brahmâ la Guerre et Vishnu la Paix

Oracle 10.2.0.4 - Forms6i patch 17 - Toad 11.1 - sharePoint 2010
Garuda est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 31/01/2011, 20h39   #3
Membre Expert
 
Inscription : août 2008
Messages : 1 271
Détails du profil
Informations forums :
Inscription : août 2008
Messages : 1 271
Points : 1 929
Points : 1 929
Je ne sais pas si ça fonctionnera mais tu auras probalement plus de chance en utilisant OPEN à la place de EXECUTE IMMEDIATE, par 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
25
26
27
28
29
declare 
  stmt varchar2 (2048);
  abu varchar2(56);
  l_cursor sys_refcursor;
  cursor cursor_abu IS 
    SELECT DISTINCT val_2 
    FROM t_slalom_outputs 
    WHERE table_name='WS3_MATURITY_LEVEL_PROCESS';
begin
stmt := 'select '
  || ' decode(grouping(val_3),1,''Grand Total'',val_3) as domain, '
  || ' decode(grouping(val_4),1,''-'',val_4)as process';
  open cursor_abu;
  loop
    fetch cursor_abu INTO abu;
    exit when cursor_abu%notfound;
    stmt := stmt || ' ,round(sum(decode(val_2,''' ||abu || ''',val_5,0))/sum(decode(val_2,''' ||abu || ''',1,0)),2) as "' ||abu ||'" ';
  end loop;
  close cursor_abu;
  stmt := stmt || 'from '
  || 't_slalom_outputs '
  || 'where '
  || 'table_name=''WS3_MATURITY_LEVEL_PROCESS'' '
  || 'group by rollup (val_3,val_4) '
  || 'order by 1 asc, 2 asc';
 
  open l_cursor FOR stmt;
 
end;
Si tu ne peux lui donner qu'une requête SQL, une autre piste serait d'utiliser une fonction pipelined.
skuatamad est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/02/2011, 10h05   #4
Membre habitué
 
Avatar de anayathefirst
 
Inscription : décembre 2006
Messages : 326
Détails du profil
Informations personnelles :
Âge : 27
Localisation : France, Loire Atlantique (Pays de la Loire)

Informations forums :
Inscription : décembre 2006
Messages : 326
Points : 147
Points : 147
Citation:
Envoyé par Garuda Voir le message
je ne comprends pas !
Tu peux lui donner une requête SQL ou le résultat d'une requête ????
Ce que je voulais dire, c'est que dans mon outil, il y a un champ spécifique pour écrire la requête qui lui permet d'afficher le tableau. il faudrait donc que mon bloque PL/SQL renvoie un résultat comme si c'était une requête SQL. Je ne connais pas le produit plus que cela, donc je ne suis pas en mesure de donner plus d'explications quand à son fonctionnement ou son interprétation du SQL ou PL/SQL.

Bref, je crois que mon cas est désespéré. Je vais plutôt essayer de contourner le problème en intégrant un logiciel intermédiaire (comme Excel par exemple).

Merci quand même
anayathefirst est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 06h50.


 
 
 
 
Partenaires

Hébergement Web