Discussion :

[djasniper]

Bonjour tout le monde,
voila après une recherche minutieuse sur mon problème sans résultat concluant je me tourne vers vous pour votre aide si précieuse,
mon problème est simple je n'arrive pas a filtrer une table avec une requête SQL ayant comme filtre une date
la table "TabEvent" : (id_Event (int), date_event(date))
la requete est du genre :

Code :

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

1
2
3
SELECT * 
FROM "TabEvent" 
WHERE date_Ivent = "20/02/2015"

l'erreur reçu est "type miss match in expression"
j'ai essayer tout les type d’écriture que j'ai trouver sur le net sans succès

merci pour tout l'aide que vous pouvez me donner

NB: j'utilise le bon vieux delphi7 avec SQL Explorer 4 fourni avec

[SergioMaster]

Bonjour et Bienvenue,

A ma connaissance, Delphi 7 est fourni avec DBExplorer et non SQL Explorer.
Ceci ne nous renseigne pas vraiment sur le Type de Base de données utilisé puisque DBExplorer utilise BDE .
Toutefois chaque SGBD (au sens large) a sa "représentation interne" pour les dates

j'ai essayé tout les types d’écriture que j'ai trouvé sur le net sans succès

c.a.d ?

s'il s'agissait de Paradox , ceci fonctionne (notez qu'il faut exprimer sous la forme mm/dd/yyyy mais il est aussi possible d'utiliser la forme dd.mm.yyyy)

Code :

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

1
2
3
SELECT * 
FROM TabEvent 
WHERE date_Ivent = '02/20/2015'

une possibilité plus générale est d'utiliser le CAST(<Valeur> AS DATE)

[StringBuilder]

Vous pouvez essayer aussi avec une valeur littérale dont l'ordre des valeurs est sans surprise. Par exemple, la norme ISO : YYYY-MM-DD, soit "2015-02-20".

Le mieux étant de passer par une requête paramétrée. Comme ça vous passez réellement un argument de type date à la base de données.

Essayez de regarder vers ce topic : http://www.developpez.net/forums/d77...ee-delphi-7-a/

Ou de poser votre question dans le forum Delphi.

[djasniper]

Bonjour et Bienvenue,

A ma connaissance, Delphi 7 est fourni avec DBExplorer et non SQL Explorer.
Ceci ne nous renseigne pas vraiment sur le Type de Base de données utilisé puisque DBExplorer utilise BDE .
Toutefois chaque SGBD (au sens large) a sa "représentation interne" pour les dates


c.a.d ?

s'il s'agissait de Paradox , ceci fonctionne (notez qu'il faut exprimer sous la forme mm/dd/yyyy mais il est aussi possible d'utiliser la forme dd.mm.yyyy)

Code :

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

1
2
3
SELECT * 
FROM TabEvent 
WHERE date_Ivent = '02/20/2015'

une possibilité plus générale est d'utiliser le CAST(<Valeur> AS DATE)

Merci pour ta repense,

je savais bien qu'elle étai si simple, en effet c'est bien du PARADOX et voici ce que j'ai fait

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
 procedure TForm1.btFiltreClick(Sender: TObject);
  Var
   ChageDate: String; 
  begin
   ChangDate := FiltreDoc.Text[4] + FiltreDoc.Text[5] + FiltreDoc.Text[3] + FiltreDoc.Text[1] + FiltreDoc.Text[2]
                    + RightStr(FiltreDoc.Text,5);
                { je sais qu'il exeste une fonction pour cela mais je l'est fait mois même ;)}
    with TQuery.Create(nil) do
     begin
      DataBaseNAme := DBN;
      SQl.Clear;
      SQL.Text := 'SELECT * FROM "TabEvent" WHERE dat =  CAST (' + QuotedStr(ChangDate) + ' as Date)';
      Active := True;
      Free;
     end;
  end;

et ça marche très bien




NB: pour info c'est bien SQL explorer V4.00

[SergioMaster]

Bonjour,

Je ne peux pas laisser passer ça ! puisqu'il s'agit d'une requête au sein d'un programme Delphi

a) il aurait fallu poser la question sur le forum Delphi/Base de Données
b) utiliser une requête paramétrée
c) je ne sais comment est créé changdate

Code :

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

1
2
ChangDate := FiltreDoc.Text[4] + FiltreDoc.Text[5] + FiltreDoc.Text[3] + FiltreDoc.Text[1] + FiltreDoc.Text[2]
                    + RightStr(FiltreDoc.Text,5);

mais il est certain que une date normalisée serait mieux (utilisation d'un TDateTimePicker par exemple) les risques d'erreurs de saisie sont trop nombreux !
d) il y a un free qui me plait pas beaucoup, sauf si le traitement total n'est pas indiqué

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
   // changdate : TDateTime
   with TQuery.Create(nil) do
     begin
      DataBaseNAme := DBN;
      // SQl.Clear; // inutile
      SQL.Text := 'SELECT * FROM "TabEvent" WHERE dat =:PD';
      ParamByName('PD').asDateTime:=ChangDate;
      Active := True;
      // traitement
     Active:=False;
      Free; 
  end;