Discussion :

[imene25]

Salut tout le monde
je travaille sur une application de gestion de stock et je veux afficher dans un QuickRep1 les produits qui dépassent leurs dates de peremption.
j'ai écris la requette suivante dans SQL de Query1 :

Code :

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

1
2
3
select *
from Produit
where DatPer <= ???????

je veux écrire la date d'aujourd'hui (date courante) à la place de points d'intérogation mais je ne sais pas comment
merci d'avance.

[Cl@udius]

Salut

Avec CURRENT_DATE ?

Code sql :

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

1
2
3
select *
from Produit
where DatPer <= CURRENT_DATE

@+

[imene25]

Salut

Avec CURRENT_DATE ?

Code sql :

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

1
2
3
select *
from Produit
where DatPer <= CURRENT_DATE

@+

j'ai un message d'erreur: Nom de champ incorrect
CURRENT_DATE

[Cl@udius]

Quel est ton SGBD ?

[imene25]

Paradox

[Cl@udius]

Avec Paradox (puisque il n'inclut pas de mot-clé retournant heure, date, etc...) le plus simple est de passer par une requête paramétrée:

Code sql :

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

1
2
3
select *
from Produit
where DatPer <= :MaDate;

Et alimenter le paramètre avant d'appeler la requête:

Code :

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

1
2
Query1.ParamByName('MaDate').Value := Date;
Query1.Open;

@+ Claudius

[imene25]

pas d'erreurs maintenant, mais mon QuickRep est affiché vide
je veux faire la comparaison avec la date d'aujourd'hui si c'est possible SVP

[NABIL74]

salut,

imene, tu peux faire ça en utilisant un filtre sur "DatPer" :

Code :

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

1
2
3
4
5
6
7
procedure TForm1.Button1Click(Sender: TObject);
begin
Query1.SQL.Clear;
Query1.SQL.Add('SELECT * FROM Produit WHERE DatPer <=:DatPer');
Query1.ParamByName('DatPer').AsDate:=Now;//now => date du système
Query1.Active:=true;
end;

A+

NABIL74

[imene25]

slt ,
ça marche trés bien maintenant.
merci .