Besoin de requête pour ETAT Rave

**blue_bird** · 02/04/2008, 15h30

Bonjour,
je développe une petite application qui gère les analyses dans un centre médicale, j'ai les tables avec les schémas ci-dessous :

J'ai besoin d'interroger ces tables pour obtenir le résultat suivant :

Où la jointure entre la table "Entête analyses" et "Détail analyses" se fait par le "Code", alors si quelqu'un sait comment formuler ces requêtes je serai ravi de le savoir (avec mes propres tests il m'a fallu créer une table intermédiaire le truc que je veux pas le faire)
n'hésiter pas à poser des questions pour mieux comprendre mon système.

Merci d'avance

**Aka Guymelef** · 02/04/2008, 15h45

Y'a un truc que je trouve bizarre dans votre modèle de donnée c'est que dans la table du détail des analyses il y a une redondance d'informations à savoir que le CCat et Lib_Analyse on peut les récupérer en jointant entre "détail analyse" et "analyse" mais bon admettons, peut-être pour optimiser les traitements.

1 et 2)

Code SQL :

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

1
2
3
4
5
6
7
SELECT cat.Lib_Categorie, da.Lib_Analyse, COUNT(*)
FROM entete_analyse ea
INNER JOIN detail_analyse da ON da.Code = ea.Code
INNER JOIN categorie cat ON cat.CCat = da.CCat
WHERE Type_med = 'I' // 'E'
AND // conditions sur dates
GROUP BY cat.Lib_Categorie, da.Lib_Analyse

3)

j'imagine qu'un patient correspond à une ligne dans la table des entête d'analyse.

Pour cette dernière requête, il y a plusieurs façon de voir les choses surtout si c'est pour un report. On peut notamment voir deux jeux d'enregistrements un donnant les valeurs pour les Internes et un autre pour les Externes. Et un troisième jeu contenant toutes les villes, ce dernier servant de maître dans une relation maître-détail avec les deux autres jeux.

**blue_bird** · 02/04/2008, 16h08

Pour le 3eme point, peux-tu me dire comment définir ces jeux d'enregistrements et quelle est la requête à appliquer (plus de détails S.T.P)

Merci

**Rayek** · 02/04/2008, 16h34

En faites pour le 3em point il va te falloir faire une requête assez complexe

Code sql :

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
 
Select 
  e.Ville,
  (
    Select Count(*) 
    from Entete as e1 
    where e1.Code = e.Code and e1.Type_med = 'I'
  ) as NbPatient_Interne,
  (
    Select Count(*) 
    From Entete as e2 
    inner join Analyse as a2 on e2.code = a2.Code 
    Where e2.Code = e.Code and e2.Type_med = 'I'
  ) as NbAnalyse_Interne,
  (
    Select Count(*) 
    from Entete as e3 
    where e3.Code = e.Code and e3.Type_med = 'E'
  ) as NbPatient_Externe,
  (
    Select Count(*) 
    From Entete as e4 
    inner join Analyse as a4 on e4.code = a4.Code 
    Where e4.Code = e.Code and e2.Type_med = 'E'
  ) as NbAnalyse_Externe
From Entete as e
Where Date_Saisie Between @PDateDebut and @PDateFin
Group By Ville

Pas sur que ca fonctionne et il faut mettre les bon nom de champs et de table, mais l'idée est là

**blue_bird** · 02/04/2008, 16h54

Merci Beaucoup pour votre aide je vais tester et je vous tiendrais au courrant

**blue_bird** · 13/04/2008, 09h58

Salut tout le monde, comme j'ai promis de vous tenir informé,
La deuxième solution ne marche pas le SELECT imbriqué ne trouve pas une correspondance avec le SELECT global (des total avec 0) que faire si c'est possible

**Rayek** · 14/04/2008, 09h42

Quelle solution de fonctionne pas :

Le 2) de Aka Guymelef
ou la requête que je t'ai fourni ?

**blue_bird** · 14/04/2008, 12h02

Bonjour Rayek
je parle de ta solution, elle me donne des totaux nuls (égal à 0) comme si une ville donnée n'a eu aucun patient et aucune analyse subie alors que les données existent réellement

Envoyé par Rayek

Quelle solution de fonctionne pas :

Le 2) de Aka Guymelef
ou la requête que je t'ai fourni ?

**Rayek** · 14/04/2008, 15h58

Affiche nous la requete correcte pour tes tables que je puisse vérifier si tu n'as pas oublié quelques choses.

**blue_bird** · 15/04/2008, 11h28

Bonjour Rayek,
Voilà les requêtes que j'ai testé :
1) Des totaux erronés

Code sql :

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
SELECT
  e.Ville,
  (SELECT Count(*)
   FROM "Ent_anal.db" AS e1
   WHERE e1.Code = e.Code AND e1.Type_med = 'I') AS NbPatient_Interne,
  (SELECT Count(*)
   FROM "Ent_anal.DB" AS e2 INNER JOIN "Det_anal.db" AS a2 ON e2.code = a2.Code
   WHERE e2.Code = e.Code AND e2.Type_med = 'I') AS NbAnalyse_Interne,
  (SELECT Count(*)
   FROM "Ent_anal.db" AS e3
   WHERE e3.Code = e.Code AND e3.Type_med = 'E') AS NbPatient_Externe,
  (SELECT Count(*)
   FROM "Ent_anal.db" AS e4 INNER JOIN "Det_anal.db" AS a4 ON e4.code = a4.Code
   WHERE e4.Code = e.Code AND e4.Type_med = 'E') AS NbAnalyse_Externe
FROM "Ent_anal.db" AS e
WHERE Date_Sai Between @PDateDebut AND @PDateFin
GROUP BY Ville

2)Des totaux nuls

Code sql :

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
SELECT
  e.Ville,
  (SELECT Count(*)
   FROM "Ent_anal.DB" AS e1
   WHERE e1.Code = e.Code AND e1.Type_med = 'I' AND Date_Sai BETWEEN @D1 AND @D2) AS NbPatient_Interne ,
  (SELECT Count(*)
   FROM "Ent_anal.DB" AS e2 INNER JOIN "Det_anal.DB" AS a2 ON e2.code = a2.Code
   WHERE e2.Code = e.Code AND e2.Type_med = 'I' AND Date_Sai BETWEEN @D1 AND @D2) AS NbAnalyse_Interne ,
  (SELECT Count(*)
   FROM "Ent_anal.DB" AS e3
   WHERE e3.Code = e.Code AND e3.Type_med = 'E' AND Date_Sai BETWEEN @D1 AND @D2) AS NbPatient_Externe ,
  (SELECT Count(*)
   FROM "Ent_anal.DB" AS e4 INNER JOIN "Det_anal.DB" AS a4 ON e4.code = a4.Code
   WHERE e4.Code = e.Code AND e4.Type_med = 'E' AND Date_Sai BETWEEN @D1 AND @D2) AS NbAnalyse_Externe
FROM "Ent_anal.db" AS e
GROUP BY Ville

**Rayek** · 15/04/2008, 15h22

As tu testé chaque sous requete indépendamment pour voir si ca te retourne le bon résultat ?

**blue_bird** · 15/04/2008, 17h00

Bien sur et le résultat differt de celui donné par la requête qui englobe les SELECT de comptage (totaux erronés ou nuls) mais c'est celui qui est exact.

Envoyé par Rayek

As tu testé chaque sous requete indépendamment pour voir si ca te retourne le bon résultat ?

**Rayek** · 16/04/2008, 09h39

Peux tu montrer ton code Delphi ?

**blue_bird** · 16/04/2008, 15h57

il n' y a rien de spécial dans mon code juste deux TQUERY (puisque la requête globale ne marche pas) auxquels j'affecte des paramètres à partir d'autres objets comme un DATETIMEPICKER et aussi par code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
//************** Query 1 **************
Labodata.DecVilQuery1.Params[0].AsString:=Labodata.TVilleLibelle.Value;
Labodata.DecVilQuery1.Params[1].AsString:='I';
Labodata.DecVilQuery1.Params[2].AsDate:=DTPicker01.Date;
Labodata.DecVilQuery1.Params[3].AsDate:=DTPicker02.Date;
//************** Query 2 **************
Labodata.DecVilQuery2.Params[0].AsString:=Labodata.TVilleLibelle.Value; 
Labodata.DecVilQuery2.Params[1].AsString:='I';
Labodata.DecVilQuery2.Params[2].AsDate:=DTPicker01.Date;
Labodata.DecVilQuery2.Params[3].AsDate:=DTPicker02.Date;
//*****   Execution des Querys    ***********
Labodata.DecUniQuery1.ExecSQL; Labodata.DecUniQuery2.ExecSQL;

Labodata est la fiches données qui contient toutes mes Tables et Querys
Requête de Query 1:

Code sql :

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

1
2
3
4
 
SELECT Count(*) AS Nb1
FROM "Ent_anal.DB" AS e
WHERE e.Ville = :Ville AND e.Type_med = :Typ AND Date_Sai BETWEEN :D1 AND :D2

Requête de Query 2:

Code sql :

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

1
2
3
4
 
SELECT Count(*) AS Nb2
FROM "Ent_anal.DB" AS e INNER JOIN "Det_anal.DB" AS d ON e.code = d.Code
WHERE e.Ville = :Ville AND e.Type_med = :Typ AND Date_Sai BETWEEN :D1

et j'insère le résultat des deux requêtes pour chaque ville dans une table pour l'utiliser ensuite avec Rave Reports, voilà j'espère que c'est ce que tu voulais savoir.

Envoyé par Rayek

Peux tu montrer ton code Delphi ?

**Rayek** · 17/04/2008, 09h02

Au lieu de mettre les données dans une table autant utiliser directement la ou les requetes avec Rave Report.

Déjà, on n'utilise jamais ExecSQL avec une requete de type Select, mais Open ou Active := True.

Il vaut mieux utlilser ParamByName que Params[] car il suffit qu'il y est changement de place dans la requete d'un des critères pour que cela ne fonctionne plus.

Code delphi :

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
 
With Labodata do
begin
  With DecVilQuery1 do
  begin
    ParamCheck := True;
    With Parameters do // Seulement si c'est des composants Ado sinon supprimer la ligne
    begin
      ParamByName('Ville'). Value := TVilleLibelle.Value;
      ParamByName('Type').Value   :='I';
      ParamByName('D1').Value     := DTPicker01.Date;
      ParamByName('D2').Value     := DTPicker02.Date;
    end;
    Open;
  end;
 
  With DecVilQuery2 do
  begin
    //************** Query 2 **************
    ParamCheck := True;
    With Parameters do // Seulement si c'est des composants Ado sinon supprimer la ligne
    begin
      ParamByName('Ville'). Value := TVilleLibelle.Value;
      ParamByName('Type').Value   :='I';
      ParamByName('D1').Value     := DTPicker01.Date;
      ParamByName('D2').Value     := DTPicker02.Date;
    end;
    Open;
  end;
end;

**blue_bird** · 19/04/2008, 09h43

Bien vu Rayek pour le paramétrage des Querys mais il faut que je te précise une chose, l'exécution des deux Querys est incluse dans une boucle While qui parcours la table des ville, alors pour chaque ville j'execute les deux requêtes pour faire le décompte et j'insère le résultat dans une table, si t'as quelque chose pour contourner ça je t'en serais reconnaissant

**Rayek** · 21/04/2008, 09h01

tu peux ne faire qu'une requete dans ce style

Code SQL :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
SELECT 'NbPatient' as TypeCount,e.Ville,e.Type_med,Count(*) AS Nb1
FROM "Ent_anal.DB" AS e
WHERE Date_Sai BETWEEN :D1 AND :D2
Group by Ville,Type_med
 
union
 
SELECT 'NbAnalyse' as TypeCount,e.Ville,e.Type_med,Count(*) AS Nb2
FROM "Ent_anal.DB" AS e INNER JOIN "Det_anal.DB" AS d ON e.code = d.Code
WHERE Date_Sai BETWEEN :D3 and :D4
 
Order by Ville,Type_med

Cette requete affichera le nombre de patient/Analyse par type de consultation et par villes sur une période allant de D1 à D2.
D3 et D4 sont identiques respectivement à D1 et D2 mais avec Ado tu ne peux pas avoir plusieurs fois le même paramètres et simplement le remplir avec ParamByName, ca ne fonctionne pas.

Après avec cette requete tu peux :
- Soit l'exploiter directement dans un RaveReport
- Soit (par exemple) utiliser un TJvMemoryTable (Composant gratuit de la JVCL) pour formatter comme tu veux les données puis utiliser RaveReport.

**blue_bird** · 21/04/2008, 16h38

Merci beaucoup Rayek, je vais tester et je te tiendrais informé

PS : Comment ajouter le paquet JVCL

**Rayek** · 22/04/2008, 08h43

Envoyé par blue_bird

PS : Comment ajouter le paquet JVCL

Euh .. normalement il y a un installable pour cela.
Tu installes la JCL, puis après la JVCL, ca doit se faire tout seul.

**blue_bird** · 22/04/2008, 09h44

Bonjour Rayek
voilà le résultat que m'a donné ta requête

il n y a pas un moyen de mettre les résultats NbPatient et NbAnalyse sur une même ligne pour les deux types de médecine.
excuse-moi si je n'arrête pas de t'ennuyer avec mes demandes et merci beaucoup pour ton aide précieuse

Besoin de requête pour ETAT Rave

Bases de données Delphi

Discussions similaires

Partager

Partager