Discussion :

[ghan77]

J'aimerais comparer deux date mais je n'y arrive pas
u est la date que je récupère

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
      Query6.Close;
      Query6.sql.clear;
      Query6.sql.Add('SELECT S.SDate,SUM(P.PCost),SUM(P.PTotals)');
      Query6.sql.Add('FROM Products P');
      Query6.SQL.Add('JOIN MarketItems MI ON MI.P.PCode=IPCode');
      Query6.SQL.Add('JOIN Markets M ON MI.IMCode=M.MCode');
      Query6.SQL.Add('JOIN Sales S ON M.MCode=S.SMCode');
      Query6.SQL.Add('WHERE (S.SMCode=:x)');
      Query6.SQL.Add('GROUP BY SDate');
      Query6.Params[0].AsString:=AnsiUpperCase(combobox1.text);
      Query6.Open;
 
      t:=0;
 
      While not Query6.Eof and (t<h) do
            begin
            t:=t+(Query6.Fields[1].AsFloat/Query6.Fields[2].AsFloat);
            u:=Query6.Fields[0].AsString;
            end;
 
      Query3.Close;
      Query3.sql.clear;
      Query3.sql.Add('SELECT P.PCode,P.PName,Count(P.PCode) as NbrP,S.SDate,SUM(P.PPrice) AS PV,SUM(P.PCost/P.PTotals) AS CU');
      Query3.sql.Add('FROM Products P');
      Query3.SQL.Add('JOIN MarketItems MI ON MI.P.PCode=IPCode');
      Query3.SQL.Add('JOIN Markets M ON MI.IMCode=M.MCode');
      Query3.SQL.Add('JOIN Sales S ON M.MCode=S.SMCode');
      Query3.SQL.Add('WHERE (S.SMCode=:x)');
      Query3.SQL.Add('GROUP BY P.PCode,P.PName,S.SDate');
      Query3.Params[0].AsString:=AnsiUpperCase(combobox1.text);
      Query3.Open;
 
      g:=0;
      o:=0;
 
Query3.First;
while not Query3.Eof and (StrToDate(Query3.Fields[3].AsString)<StrToDate(u)) do
      begin
                m:=m+1;
                q:=Query3.fieldbyname('pv').AsFloat-Query3.fieldbyname('cu').AsFloat;
                g:=g+q;
                StringGrid1.Cells[0,m]:=Query3.Fields[1].AsString;
                StringGrid1.Cells[1,m]:=Query3.Fields[2].AsString;
                StringGrid1.Cells[2,m]:=floattostr(q);
                pc:=Query3.Fields[0].AsString;
                o:=o+Query3.Fields[2].AsInteger;
                Query3.Next;
      end;

[delphichem]

Pourquoi ne pas declarer la variable u en TDate?

Code :

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

u:=Query6.Fields[0].AsDatetime;

puis:

Code :

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

while not Query3.Eof and (Query3.Fields[3].AsDatetime)<u) do

[anapurna]

salut

petite question a quoi ca vous sert de passer par les paramettre ?

je serait toi j'utiliserait la fonction format est crerait directement ma requette

@+ Phil

[RamDevTeam]

MessagePosté le: Ven Jan 06, 2006 15:30 Sujet du message:
salut

petite question a quoi ca vous sert de passer par les paramettre ?

je serait toi j'utiliserait la fonction format est crerait directement ma requette

@+ Phil

C'est pas une bonne pratique à mon avis.

le passage par paramètre permet notamment de s'affranchir des pb de formatage lié au SGBD ET aussi de s'adapter au paramètre régionaux.

exemple :

Code :

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

1
2
3
rq.parambyname('Madate').asdatetime := today();
 
rq.parambyname('MaDate').asstring := '01/12/2005'; // 1er dec si tes parametres régionaux sont francais et ce quelquesoit le format de stockage des dates du sgbd.

Cà te permet aussi de pouvoir dissocier le code sql des valeurs des paramètres, etc ...

[anapurna]

salut

si tu fait

Code :

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

1
2
3
4
5
 st := 'select chp1' ;
 st :=  st  +'from matable ';
 st :=  st  +'where madate = "%s" ';
 
  marequette.sql.text := format(st,[DateTimeToStr(today())]);

fait exactement la meme chose
du moment que tu creer ta requette dynamiquement je persite a croire que les paramettre sont inutile

on peut meme le faire en utilisant un formatdatetime et definissant une constante de typage

@+ Phil

[slimjoe]

salut

si tu fait

Code :

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

1
2
3
4
5
 st := 'select chp1' ;
 st :=  st  +'from matable ';
 st :=  st  +'where madate = "%s" ';
 
  marequette.sql.text := format(st,[DateTimeToStr(today())]);

fait exactement la meme chose
du moment que tu creer ta requette dynamiquement je persite a croire que les paramettre sont inutile

on peut meme le faire en utilisant un formatdatetime et definissant une constante de typage

@+ Phil

Et si le format de date n'est pas le même entre le poste où roule l'appli et le serveur SQL ? Ça fonctionne toujours ?

À mon avis, non seulement l'utilisation de paramêtres règle définitivement le (détestable) problème des formats de dates (je travaille quotidiennement dans du code utilisé simultanément au Canada anglais, Canada français et aux EU alors je les aime bien les paramêtres ) mais aide aussi à clarifier le code.

Code :

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

1
2
3
4
5
6
7
8
9
 
with qMaReq do
begin
  SQL.Add('SELECT chp1');
  SQL.Add('FROM matable');
  SQL.Add('WHERE madate = :ParamDate');
  ParamByName('ParamDate').AsDateTime := Date();
  Open();
end;