Discussion :

[pierrot67]

Bonjour

Pourrais-t'on m'expliquer comment effectuer un filtre sur le champ "date" d'une table paradox?

Code :

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

1
2
3
4
5
6
7
 
var filtre:string;
begin
with dm2.Nom do
filtre:='Date=''' + edit1.text +'''';
filter:=filtre;
Filtered:=True;

Evidemment ça ne marche pas car je n'ai jamais utilisé le filtre sur la date.
Si quelqu'un pourrait m'aider?

Merci d'avance

[tourlourou]

Mieux vaux peut-être ne pas limiter le bloc with..do à la seule première ligne ?

Code :

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

1
2
3
4
5
6
with dm2.Nom do
begin
  filtre := 'Date=' + QuotedStr(edit1.text);
  filter := filtre;
  Filtered:=True;
end;

[pierrot67]

Merci
mais ça ne filtre pas et quand je vide "l'edit" il me dit qu'il est impossible de convertir un (Olestr) en type (Date)

[pierrot67]

en fait si ça filtre mais il m'affiche toujours ce message : impossible de convertir un (Olestr) en type (Date)

[ThWilliam]

Fais-tu un contrôle de validité de la date dans ton Edit avant d'appliquer le filtre ?
Un Edit "vide" n'est évidemment pas une date valide.

Cordialement
Thierry

[SergioMaster]

Bonjour,
Attention , il faudra en plus que le format corresponde à la base de données
par exemple , pour firebird (ou interbase) le format par défaut d'une date c'est MM/JJ/AAAA ou JJ-MM-AAAA (et d'autres encore)

pour paradox , c'est le format dit "américain" soit MM/JJ/AAAA qu'il faut utilisé

c'est pour cela que je répète souvent , lorsque je vois le mot "filtre" ,qu'une query paramétrée est souvent préférable

Code SQL :

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

SELECT * FROM LATABLE WHERE UNEDATE=:D

ou D est le paramètre

de plus il faut éviter ne nommer un champ "date" , mot souvent réservé

[camatchou]

Bonjour,

Moi j'utiliserai bien un TDateTimePicker à la place d'un Tedit

A+

[mario9]

Bonjour

Moi j'utilise dans delphi 7 un dateedit.text il faut que ton champ D_DATE soit un champ texte ou le convertir pour être une variable texte

Code :

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

1
2
lefiltre:= 'D_DATE >= ' + '''' +DateEdit1.text + '''' +
              ' AND ' +  'D_DATE <= ' + '''' +DateEdit2.text + '''';

Si ca peut vous aidé

Mario

[jeanparfait]

Salut,
tu pourrais tenter ceci dans la procedure onchange d'un datetimepicker

Code :

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

1
2
3
4
5
6
Query.active:=false;
Query.sql.text:='Select Monchamp1,Monchamp2,MonchampDate '+
                'From MaTable '+
                'where MonchampDate =:param '+
Query.params[0].value:=datetimepiker.date;  
Query.active:=true;

[SergioMaster]

Code :

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

1
2
3
4
5
6
Query.active:=false;
Query.sql.text:='Select Monchamp1,Monchamp2,MonchampDate '+
                'From MaTable '+
                'where MonchampDate like :param '+
Query.params[0].value:=datetimepiker.date;  
Query.active:=true;

Bonjour,
non, non , pas de LIKE sur une date !

[jeanparfait]

Bonjour, SergioMaster
Sergio j'ai rectifié mais ça marche bien pourtant, quel est le problème avec le like ?

[SergioMaster]

Bonsoir,

tout d'abord parce que une date c'est unique , ensuite parce que une date est stockée en valeur numérique et enfin parce qu'il n'y a pas de caractère de substitution !

on utilise le Like surtout pour des Strings , pour rechercher une chaine partielle et encore lorsque c'est le début qui est connu on préférera STARTING WITH à LIKE

[jeanparfait]

ok merci pour le plus