Discussion :

[k_boy]

Salut
j'ai un petit problème de compréhension avec SQL .j
e veut récupérer le nombre d'enregistrement dans une table que satisfaite une condition .

Code :

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

1
2
3
4
5
6
7
8
 
Query1.Close;
     Query1.SQL.Clear;
     Query1.SQL.Add ('SELECT COUNT(*)');
     Query1.SQL.Add ('FROM T1');
     Query1.SQL.Add ('WHERE date > d1 AND date< d2' );
     Query1.RequestLive := true;
     Query1.Open;

mon problème est que je ne sait pas comment récupérer le résultat de cette requête dans une variable de type entier.

[Cl@udius]

Salut

mon problème est que je ne sait pas comment récupérer le résultat de cette requête dans une variable de type entier.

Ainsi:

Code :

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

1
2
3
4
5
6
7
8
9
 
var
  Nb: Integer;
begin
  // ...
  Query1.Open;
  Nb := Query1.Fields[0].AsInteger;
  // ...
end.

La syntaxe peut être légèrement différente suivant les compos que tu utilises.

@+ Claudius

[k_boy]

est ce que vous pouvez me dire que représente le champs

Code :

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

Fields[0]

?
merci

[Cl@udius]

Re,

Fields[0] représente le 1° champ de la requête donc Count(*).

Sinon tu peux accéder au champ par son nom:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
  with Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add ('SELECT COUNT(*) AS NB');
    SQL.Add ('FROM T1');
    SQL.Add ('WHERE date > d1 AND date< d2' );
    RequestLive := true;
    Open;
    Nb := FieldByName('NB').AsInteger;
  end;

@+ Claudius

[k_boy]

en essayant d'exécuter la requête suivante

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
dt1:=FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date);
dt2:=FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
 
     Query1.Active := False;
     Query1.SQL.Clear;
     Query1.SQL.Add ('SELECT COUNT (*) ');
     Query1.SQL.Add ('FROM DET2');
     Query1.SQL.Add ('WHERE date > dt1 AND date < dt2' );
     Query1.RequestLive := true;
     Query1.Open;

j'ai eu le message d'erreur suivant

Code :

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

Invalid field name dt1

[ero-sennin]

Salut,

Tu ne peux pas faire comme cela. En effet, dans ta requête, tu spécifies une condition qui est la suivante :

Code :

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

'WHERE date > dt1 AND date < dt2'

Or, tu as déclaré dt1 et dt2 de cette façon :

Code :

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

1
2
dt1:=FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date);
dt2:=FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);

Ce qui veut dire que ce sont des variables, et donc qu'il faut les concaténer à ta chaîne...

Ca donnerai ceci (pas testé) :

Code :

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

1
2
3
4
5
6
7
8
9
dt1:=FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date);
dt2:=FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
Query1.Active := False;
Query1.SQL.Clear;
Query1.SQL.Add ('SELECT COUNT (*) ');
Query1.SQL.Add ('FROM DET2');
Query1.SQL.Add ('WHERE date > '+dt1+' AND date < '+dt2+'' );
Query1.RequestLive := true;
Query1.Open;

Maintenant, si tu veux récupérer le résultat de cette requête, je verrai plus une chose comme cela :

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
var
Resultat:integer;
 
begin
  dt1:=FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date);
  dt2:=FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
  Query1.Active := False;
  Query1.SQL.Clear;
  Query1.SQL.Add ('SELECT COUNT (*) AS NBRE');
  Query1.SQL.Add ('FROM DET2');
  Query1.SQL.Add ('WHERE date > '+dt1+' AND date < '+dt2+'' );
  Query1.RequestLive := true;
  Query1.Open;
  Resultat:=Query1.FieldByName('NBRE').AsInteger;
end;

J'espère que ça fonctionnera.
A+

[k_boy]

j'ai un message d'erreur

Code :

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

Type Mismatch in expression

,je pense parce que la date est enregistrer dans la table dans un champ de type DATE

[SergioMaster]

Moi j'aime bien mettre le points sur les i en SQL donc je proposerais ceci

Code :

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

1
2
 
  dt1:='CAST ("'+(FormatDateTime('dd.mm.yyyy 00:00:00 ',DateTimePicker1.Date)+'") AS DATE';

petit nota mettre des . plutôt que des / pour les dates en français

néanmoins le mieux est de passer les dates par paramètres

[Linkin]

Quelle est la base de données utilisée (la façon de gérer les dates en SQL n'est pas la même de partout)?

[k_boy]

c'est une base de donnée PARADOX

[Cl@udius]

Salut

néanmoins le mieux est de passer les dates par paramètres

As-tu essayé de mettre en place une requête paramétrée comme le suggère Sergio ?

@+

[k_boy]

non,est ce que vous pouvez m'expliquer c'est quoi une requete parametree ?

[Cl@udius]

Salut

En reprenant ton code du 1° message, cela donne:

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
 
  with Query1 do 
  begin
    Close;
    // Requête paramétrée, les paramètres sont préfixés par un ':'
    SQL.Clear;
    SQL.Add ('SELECT COUNT(*)');
    SQL.Add ('FROM T1');
    SQL.Add ('WHERE ChampDate > :Date1 AND ChampDate < :Date2' );
    // Transmettre les valeurs aux paramètres
    Parameters.ParamByName('Date1').Value := DateTimePicker1.Date;
    Parameters.ParamByName('Date2').Value := DateTimePicker2.Date;
    RequestLive := True;
    Open;
  end;

L'accès aux paramètres pourra être légèrement différent suivant les composants que tu utilises.

Voilou.

@+ Claudius

[k_boy]

j'ai toujours le message d'erreur

Code :

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

Difference de type dans une expression

et l'xpression est

Code :

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

Params.ParamByName('Date1').Value := DateTimePicker1.Date;

et non

Code :

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

Parameters.ParamByName('Date1').Value := DateTimePicker1.Date;

est ce que vous avez une idée sure l'origine de cette erreur ?

[ero-sennin]

Salut,

Peut être un élément de réponse ici ou là

De plus, il me semble que paradox code les date de cette façon : MM/JJ/AAAA ...

A+
En espérant t'avoir aidé

[moezben]

salut
je pense que ton code doit être comme ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Query1.close;
Query1.clear;
Query1.SQL.ADD('SELECT COUNT(*) FROM T1 ');
Query1.SQL.ADD('WHERE DateCond > :Date1 AND DateCond < :Date2');
Query1.ParamByName('Date1').AsDateTime :=FormatDateTime('dd/mm/yyyy',DateTimePicker1.Date);
Query1.ParamByName('Date2').AsDateTime := FormatDateTime('dd/mm/yyyy',DateTimePicker2.Date);
Query1.Prepare;
Query1.RequestLive := True;
Query1.Open;

Bon , mon explication tout d'abord est que paradox code les dates sous cette forme (jj/mm/aaaa) , ensuite il faut indiquer le type des paramétres passées ( AsDateTime ) , finalement , il faut préparer la requête par la requête prepare ...
J'espére que ça va marcher ,
Merci beaucoup
Bonne soirée ...

[k_boy]

désoler mais sa ne marche ,j'ai un message d'erreur

Code :

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

Incompatible types: 'TDateTime' and 'string'

[ero-sennin]

Salut,

Ca ne fonctionne pas avec la méthode de SergioMaster ?

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
var
Resultat:integer;
begin
  // dt1 et dt2 sont de type String
  dt1:='CAST(' + Quotedstr(FormatDateTime('DD/MM/YYYY',DateTimePicker1.Date))+' AS DATE)';
  dt2:='CAST(' + Quotedstr(FormatDateTime('DD/MM/YYYY',DateTimePicker2.Date))+' AS DATE)';
  Query1.Active := False;
  Query1.SQL.Clear;
  Query1.SQL.Add ('SELECT COUNT (*) AS NBRE');
  Query1.SQL.Add ('FROM DET2');
  Query1.SQL.Add ('WHERE date > '+dt1+' AND date < '+dt2+'' );
  Query1.RequestLive := true;
  Query1.Open;
  Resultat:=Query1.FieldByName('NBRE').AsInteger;
end;

A+

[k_boy]

malgré qu'il ne y a aucun message d'erreur mais sa ne marche pas,elle m'affiche comme résultat de la requête 0,malgré que la table contient plusieurs enregistrement qui satisfait la condition.
en plus en la valeur de la variable dt1 est comme suite

Code :

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

CAST('09/02/2007') AS DATE

est ce que c'est normal ?

[k_boy]

je ne sais pas ce qui ne tourne pas en rond ,j'ai pris la solution de SergioMaster et la solution de ero-sennin mais sa ne marche pas.il n y a aucun message d'erreur mais le résultat est incorrect .
j'ai essayer de fixer une date donnée que j'ai fait rentre dans une enregistrement de ma table mais rien ne marche elle ne la trouve pas cette enregistrement aussi(le résultat de la requête est toujours zéro)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
With Query1 do
begin
  Close;
  SQL.Clear;
  SQL.Add('select COUNT (*)as nbre');
  SQL.Add('FROM T1');
  SQL.Add('Where date = "10/02/2008"');
  Open;
  Resultat := Query1.FieldByName('nbre').AsInteger;
end;