Discussion :

[delphino7]

bonjour

jai une BDD avec delphi 7 jai une table global comme suit :


Lignes - Le Figaro - Le Parisien - Le Soir - date

paris - 12 - 111 - 44 - 1/01/2008

marseille - 222 - 34 - 45 - 1/01/2008

Lyon - 33 - 55 -- 66 - 1/01/2008

paris - 55 - 66 - 77 - 2/01/2008

marseille - 99 - 88 --- 55 - 2/01/2008

lyon - 22 - 44 - 11 - 2/01/2008
-
paris - 66 - 44 - 77 - 3/01/2008
-
marseille - 44 - 33 - 66 - 3/01/2008

lyon - 22 - 44 - 100 - 3/01/2008
-


et je veux avoir cette etat avec une requete sql (tquery):

lignes : paris - date du 1/01/2008 - au date : 3/01/2008


journal - qte


Le Figaro - 133

Le parisien - 221

Le Soir - 198


es que je peux avoir cette etat de letat precedante ou bien je doit faire des modification parce que jai beau reflichi et tester mais aucun resultat

es que quelqu'un peu maider et me dire esque c possible avec une requete et comment ?

merci

[SergioMaster]

voci toujours une piste , si ce n'est pas paradox
sinon il faudra , je pense oter le premier champ du select et la clause group by

Code SQL :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
SELECT CAST('Le Figaro' AS CHAR(20)),SUM(LEFIGARO) FROM TABLE 
WHERE LIGNES='Paris' AND DATE BETWEEN ....
GROUP BY 0  
UNION
SELECT 'Le Parisien',SUM(LEPARISIEN) FROM TABLE 
WHERE LIGNES='Paris'  AND DATE BETWEEN .....
GROUP BY 0
UNION
SELECT 'Le Soir',SUM(LESOIR) FROM TABLE 
WHERE LIGNES='Paris' AND DATE BETWEEN .....
GROUP BY 0

[delphino7]

ok c a peu pret sa chaque lignes toute seul jai compris le sens de la requete


merci

[SergioMaster]

Selon ton énoncé

journal - qte


Le Figaro - 133

Le parisien - 221

Le Soir - 198

tu veux obtenir les trois (colonnes) ce que le Query proposé te permets de faire, l'UNION te fournissant trois "enregistrements" . Chaque requete 'toute seule' ne te fourniras qu'un seul "enregistrement" , pas top pour faire un état

[delphino7]

desolé je viens de lire votre requete c sa oui c exactement sa je vien de comprendre merci et desolé pour lerreur je rajoute quelque chose les tables sont en paradox je doit ajouter des parametres

je le test et je vous rond la reponse

merci

[SergioMaster]

puisque les tables sont Paradox il faut oublier la partie group by et le rajout de colonnes , dommage

Code SQL :

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

1
2
3
4
5
6
7
8
9
 
SELECT SUM(LEFIGARO) FROM TABLE 
WHERE LIGNES=:Ville AND DATE BETWEEN  :debut AND :fin
UNION
SELECT SUM(LEPARISIEN) FROM TABLE 
WHERE LIGNES=:Ville  AND DATE BETWEEN  :debut AND :fin
UNION
SELECT SUM(LESOIR) FROM TABLE 
WHERE LIGNES=:Ville AND DATE BETWEEN :debut AND :fin

c'est dans l'etat qu'il faudra gérer les noms des journaux

[delphino7]

bonjour

Code :

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

group by 0

elle fait quoi et pk vous lavez enlever ?


merci

[SergioMaster]

Code :

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

group by 0

permettait d'obtenir la première colonne de la requête qui :

1. n'était pas une colonne de la table
2. n'était pas le résultat d'un agrégat comme SUM, MAX, COUNT etc ...

Code :

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

CAST('Le Figaro' AS CHAR(20))

[delphino7]

bonjour
j'ai fait ce program mais il ne maffiche pas tout les journaux il maffiche que la somme de ''aggfield'' en plus il me calcul la somme entre deux date comme suit :
exemple : date : 23/04/2008 au 27/04/2008 il fait la somme mais il ne prend pas la valeur de la date 25/04/2008 !!!!!

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
procedure TForm4.Button6Click(Sender: TObject);
var requete,ville,Aggfield,Agg1field,Agg2field : string;
    StartDate, EndDate: TDate;
begin
requete := (' SELECT SUM('+Aggfield+') FROM Table_joursemaine WHERE (LIGNES=:Ville AND (Date_Liv BETWEEN  :StartDate AND :EndDate))');
Aggfield := Edit1.Text;
Agg1field := Edit5.Text;
Agg2field := Edit6.Text;
ville := edit4.Text;
StartDate := strtodate(Edit2.text);
Enddate := strtodate(Edit3.Text);
with Query2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT SUM('+Aggfield+') FROM Table_joursemaine WHERE (LIGNES=:Ville AND (Date_Liv BETWEEN  :StartDate AND :EndDate))');
    SQL.Add('Union');
    SQL.Add('SELECT SUM('+Agg1field+') FROM Table_joursemaine WHERE (LIGNES=:Ville AND (Date_Liv BETWEEN  :StartDate AND :EndDate))');
    SQL.Add('Union');
    SQL.Add('SELECT SUM('+Agg2field+') FROM Table_joursemaine WHERE (LIGNES=:Ville AND (Date_Liv BETWEEN  :StartDate AND :EndDate))');
    ParamByName('StartDate').AsDate := StartDate;
    ParamByName('EndDate').AsDate := EndDate;
    parambyname('ville').AsString := ville;
    Prepare;
    Open;
  end;
end;

je doit faire quoi ou est lerreur?
merci

[SergioMaster]

peux-tu m'envoyer le fichier (petit) via messages privé

je doit avouer que j'ai toujours été frileux avec le test des Dates via BETWEEN

[delphino7]

comment je fait je zip mon projet et je te lenvoi ?

merci

[SergioMaster]

juste la table paradox (c'est pour avoir un jeu d'essai sans me fatiguer )

[delphino7]

desole mais comment je fait pour envoier une piece jointe ?

merci

[SergioMaster]

pas grave , je viens de faire un petit fichier

Code SQL :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
SELECT SUM(J1)
FROM "test.db" 
WHERE DATE_L between '01/01/2008' AND '1/3/2008'
UNION 
SELECT SUM(J2)
FROM "test.db" 
WHERE DATE_L between '01/01/2008' AND '1/3/2008'
UNION
SELECT SUM(J3)
FROM "test.db" 
WHERE DATE_L between '01/01/2008' AND '1/3/2008'

Fonctionne parfaitement ce qui me fait penser que ton passage de paramètres est incorrect . Essayes :

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
procedure TForm4.Button6Click(Sender: TObject);
var requete,ville,Aggfield,Agg1field,Agg2field : string;
    StartDate, EndDate: TDate;
begin
//requete := (' SELECT SUM('+Aggfield+') FROM Table_joursemaine WHERE (LIGNES=:Ville AND (Date_Liv BETWEEN  :StartDate AND :EndDate))');
Aggfield := Edit1.Text;
Agg1field := Edit5.Text;
Agg2field := Edit6.Text;
ville := edit4.Text;
StartDate := strtodate(Edit2.text);
Enddate := strtodate(Edit3.Text);
with Query2 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT SUM('+Aggfield+') FROM Table_joursemaine WHERE LIGNES=:Ville AND Date_Liv BETWEEN '+Quotedstr(Edit2.text) AND '+Quotedstr(Edi3.text));
    SQL.Add('Union');
    SQL.Add('SELECT SUM('+Agg1field+') FROM Table_joursemaine WHERE LIGNES=:Ville AND Date_Liv BETWEEN '+Quotedstr(Edit2.text) AND '+Quotedstr(Edi3.text));
    SQL.Add('Union');
    SQL.Add('SELECT SUM('+Agg2field+') FROM Table_joursemaine WHERE LIGNES=:Ville AND Date_Liv BETWEEN '+Quotedstr(Edit2.text) AND '+Quotedstr(Edi3.text));
    parambyname('ville').AsString := ville;
    Prepare;
    Open;
  end;
end;

pour voir ATTENTION AU FORMAT DE LA DATE MM/JJ/AAAA

[delphino7]

desole mais comment je fait pour envoier une piece jointe ?

merci

[SergioMaster]

pour envoyer une piece jointe regardes sous la zozn de saisie du message dans les options supplémentaires , le cadre Fichiers attachés, bouton [Gérer les pieces jointes]

[delphino7]

le program ne ce compile pas il maffiche en bas :
''
unterminated string
operator not aplicable to this operend type''


merci

[ALWEBER]

A mon avis tu ne prends pas le problème dans le bon sens.
L'opération que tu souhaites faire par ta requete s'appelle Normalisation (cf formes normales de Boyce-Codd). La table source devrait avoir une autre forme :
Date,Ville,Journal,Quantite et être primary-indexée sur Date+Ville.
Est ce que tu as la possibilité de changer le format de la table interrogée ?

[SergioMaster]

+ 1 @ALBEWER pour la structure

quant à la compilation

1. Je n'ai as testé le code
2. il faut juste s'en inspiré
3. je n'écris pas le programme a ta place

[delphino7]

ok je vais voir ou est lerreur !!

merci