Discussion :

[vrachid]

Bonjour à tous
voila j'ai conçu une application Delphi de gestion de patients, qui utilisait une BDD ACCESS et suite à un problème j'ai basculé sur MySql et tout fonctionne sauf quand je fais une recherche par date de consultation je n'y arrive pas voila le dernier code que j'ai essayé et que j'ai trouvé sur le net:

Code :

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

1
2
3
4
5
6
7
SQL.Add('SELECT * From TablePatient'
+' where DateCons = :A1 AND DateCons < :A2 ');
Parameters.ParseSQL(DM.APatient.SQL.Text, True);
Parameters.ParamByName('A1').Value:=DDebut.Date-1;
Parameters.ParamByName('A2').Value:=DFin.Date;
Open;
ExecSql;

le code que j'utilisait avec ACCESS était semblable à celui la et fonctionnait bien.
Je vous remercie pour votre aide.

[tourlourou]

Parameters.ParamByName('A1').AsDateTime := DDebut.Date-1 ; ?

[SergioMaster]

Bonjour,

Plutôt que cette requête (et le ddebut-1) , j'aurais utilisé la condition BETWEEN

Code SQL :

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

SELECT * From TablePatient  where DateCons BETWEEN :A1 AND :A2

Ceci étant , un autre piège peut être que les dates aient été stocké en Datetime (ou TimeStamp) , on ne sait également pas d'où viennent ces DDate.Date et Dfin.Date
(est-ce bien une date ou un datetime encore une fois ?)

[vrachid]

Bonjour et merci pour ta réponse,
désolé , j'utilise des TDateTimePicker (DDebut et DFin).
j'ai déja essayé ce code

Code :

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

1
2
3
4
5
6
7
8
SQL.Add('SELECT Id_Patient, DateCons, Nom, Prenom, DateNais, Age,'
         +'Adresse, Telephone, fixe, Profession From Patient'
         +' where WHERE DateCons BETWEEN :A1 AND :A2');
Parameters.ParseSQL(DM.APatient.SQL.Text, True);
Parameters.ParamByName('A1').Value:=DDebut.Date;
Parameters.ParamByName('A2').Value:=DFin.Date;
Open;
ExecSql;

mais il me renvoi cette erreur

alors si vous avez une suggestion

[SergioMaster]

alors si vous avez une suggestion

utiliser un version plus récente de mySQL , qui supporte le BETWEEN , je suis sur que BETWEEN est supporté dorénavant

j'utilise des TDateTimePicker

je ne sais plus si dépendant des versions de Delphi , le résultat TDateTimePicker.Date renvoie bien juste la date et pas Date,Heure .
Je n'ai pas le temps de m'y pencher maintenant (Pâques=Aid el Kebir oblige)

au pire avec une vieille version de MySQL ,

Code :

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

1
2
3
4
 
SELECT Id_Patient, DateCons, Nom, Prenom, DateNais, Age,'
         +'Adresse, Telephone, fixe, Profession From Patient'
         +' where WHERE DateCons >= :A1 AND DateCons<=:A2'

devrait fonctionner

Il faut juste vérifier cette histoire de TimeStamp

[vrachid]

Bonjour,
voila finalement le mon probleme vient du fait que mysql stock les date au faormat yyyy-dd-mm, et que le TDateTimePicker est au format français et malgré la modification du format (TDateTimePicker.format ) il renvoi toujours la date en français. J'ai vérifié avec la fonction showmessage.
j'ai songé a deux solution:
1. mettre le champ danteCons au type text .
2. créer un TDateTimePicker avec le format yyyy-dd-mm puis décoder la date de mon TDateTimePicker et la recoder selon le TDateTimePicker que j'ai crée.
Sinon s'il existe une solution pour forcer le TDateTimePicker à prendre le format anglais.

Merci à vous tous.

[Andnotor]

where WHERE de toute façon ça va pas le faire

[SergioMaster]

Bonjour,

Cela va faire plaisir a SQLPro si je dis 'mysql de ' , je viens de lire que les dates ne sont pas stockées en numérique (et même pas contrôlées !)

qu'a cela ne tienne il est est facile de faire la requête (en enlevant le Where Where )

Code :

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

1
2
3
4
5
6
 
SQL.Add('SELECT * From TablePatient'
+' where DateCons BETWEEN :A1 AND :A2 ');
Parameters.ParseSQL(DM.APatient.SQL.Text, True);
Parameters.ParamByName('A1').asString:=FormatDateTime('AAAA-MM-JJ',DDebut.Date);
Parameters.ParamByName('A2').asString:=FormatDateTime('AAAA-MM-JJ',DFin.Date);