[TQuery] Requête somme entre deux dates

**delphino7** · 19/04/2008, 17h42

je reexplique voila par exemple jai troi journaux ,plusieurs ville,aujourduhui jai fait la livraison dans toutes les villes et jai calculer le total de chaque journal .

demain je fait la meme chose ect.........

apres chaque fin de semaine je fait le total globalde la somme entre de date chaque journal par exemple le journal parisien jadditionne le total du lundi plus le totale du mardi plus le mercredi ect.........pour la ville marselle .

jai fait une requete mais il me manque quelque chose que jignore et jaimerai aprendre svp

jai fait sa :

select * fron Table_dispatch where (Ville=:E1) and (between date=:E2 and date2=:E3)

la somme avec sql je ne sais pas la faire et aussi je sais que la syntaxe est fausse si vous pouvez me la corriger svp

merci

**evarisnea** · 20/04/2008, 00h35

pour te répondre correctement, il faudrait déjà connaitre la structure de ta table ainsi que ton sgbd. mais déjà ta formulation du BETWEEN n'est pas bonne.
sur le site tu as d'excellents cours sur les bases de données,ainsi que sur le langage sql

**delphino7** · 20/04/2008, 09h15

mes tables avec paradox justilise Tquery pour calculer les sommes

je texplique il ya 9 colonnes dans la table come suit :

Ville Date parisien quotidien le soir le figaro ......................ect

la ou il ya les journaux jinsert les quantiter livrees de la journee et je calcule le montant de chaque journal apres jarchive a la fin de la semaine jaimerai calculer les taux de chaque journal (somme) ou bien entre deux date

merci

**evarisnea** · 20/04/2008, 09h26

je n'utilise pas paradox, mais une requête de ce genre devrait faire l'affaire

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
    SUM(le_parisien) as somme_parisien,
    SUM(le_figaro) as somme_figaro,
    SUM(le_soir) as somme_soir,
    SUM(le_quotidien) as somme_quotidien,
    SUM(autre_champ) as somme_autre_champ
  FROM
    Table_dispatch
  WHERE
    (champ_date BETWEEN :param_date1 AND :param_date2)
    AND
    (champ_ville = :param_ville)
;

param_date1, param_date2 désignent respectivement la date de début et de fin pour la période voulue.
param_ville désigne la ville concernée.

**delphino7** · 20/04/2008, 09h34

je vais le tester et je te rend la reponse

merci

**delphino7** · 21/04/2008, 13h16

voila ce que jai fait ta requete ma donner une idee donc jai changer le calcul des sommes de chaque fin de journer par sa :

Code sql :

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

select sum(le_figaro) from Table_dispatch

mais je ne sais pas comment afficher le resultat sur une dbedit qui as le datafield total

merci

**evarisnea** · 21/04/2008, 16h36

tu pourrais modifier ta requête comme ceci:

Code SQL :

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

SELECT SUM(le_figaro) AS total FROM Table_dispatch

puis lier le TQuery correspondant à cette requête à un Datasource, puis à ton DBEDit avec la propriété datafield à total.
ps: la requête n'effectue aucun filtre sur les dates, ce qui implique qu'elle fera la somme de toutes les colonnes le_figaro se trouvant dans la table

**delphino7** · 21/04/2008, 17h30

est ce que ceci est juste :

Code :

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

1
2
3
4
5
6
7
8
9
procedure TForm3.Button13Click(Sender: TObject);
var requete : string;
begin
requete := 'SELECT SUM(X1) AS Total FROM  Table_journal ' ;
query1.SQL.Clear;
query1.SQL.Add(requete);
query1.Prepare;
query1.ExecSQL;
query1.Close;

est ce qu'il m'affiche directement le résultat dans le dbedit une fois que son datafield est total et datasource à datasource2

mais il m'affiche le message suivant

type mismatch

info: j'ai déclarer mes champ de type alphanumeric est ce que je dois changer le type en numeric ou bien integer sachant que mes table sont en paradox?

merci

**evarisnea** · 21/04/2008, 17h37

juste deux modifications

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm3.Button13Click(Sender: TObject);
var requete : string;
begin
requete := 'SELECT SUM(X1) AS Total FROM  Table_journal ' ;
query1.SQL.Clear;
query1.SQL.Add(requete);
query1.Prepare;
//query1.ExecSQL;
query1.Open;
//query1.Close;
end;

ExecSQL s'utilise pour des requêtes ACTION, genre UPDATE, DELETE etc. pour les requêtes SELECT, il faut utiliser la méthode Open pour ouvrir le jeu de données et ne pas le refermer avec la méthode Close tant que tu désires accéder à ses données !!!
voilà

**delphino7** · 21/04/2008, 17h41

merci je vais les corriger et je te rend la reponse

**evarisnea** · 21/04/2008, 17h47

Envoyé par delphino7

mais il m'affiche le message suivant

type mismatch

info: j'ai déclarer mes champ de type alphanumeric est ce que je dois changer le type en numeric ou bien integer sachant que mes table sont en paradox?

le champs X1 est il alphanumérique ?

étant donné que la fonction SUM effectue une opération arithmétique, le champs X1 doit être de type numérique (entier, réel, etc.)

**saidus** · 21/04/2008, 17h59

Envoyé par evarisnea

juste deux modifications

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TForm3.Button13Click(Sender: TObject);
var requete : string;
begin
requete := 'SELECT SUM(X1) AS Total FROM  Table_journal ' ;
query1.SQL.Clear;
query1.SQL.Add(requete);
query1.Prepare;
//query1.ExecSQL;
query1.Open;
//query1.Close;
end;

ExecSQL s'utilise pour des requêtes ACTION, genre UPDATE, DELETE etc. pour les requêtes SELECT, il faut utiliser la méthode Open pour ouvrir le jeu de données et ne pas le refermer avec la méthode Close tant que tu désires accéder à ses données !!!
voilà

je prefere encore ..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm3.Button13Click(Sender: TObject);
var requete : string;
begin
requete := 'SELECT SUM(X1) AS Total FROM  Table_journal ' ;
query1.SQL.Close;
query1.SQL.Clear;
query1.SQL.Add(requete);
query1.Prepare;
//query1.ExecSQL;
query1.Open;
//query1.Close;
end;