Discussion :

[critok]

Bonjour

voila j'ai le bout de code suivant dans mon application:

Code :

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

1
2
3
4
5
6
 
DataModule3.DtSprem.CommandText:='SELECT count(distinct ADH_ID) FROM gl_class_10 WHERE COM_DATE BETWEEN '+QuotedStr(datedeb)+' AND '+QuotedStr(datedujour)+'';
 
DataModule3.DtSprem.Active:=true;
count:=DataModule3.DtSprem.Fields[0].AsInteger;
DataModule3.DtSprem.Active:=false;

+datedeb et datedujour sont tous les deux des variables de type string de forme 12/05/2005

+la variable count est un integer

Lorsque que je saisie cette requete dans sqlserver par ex:
SELECT count(distinct ADH_ID) FROM gl_class_10 WHERE COM_DATE BETWEEN '12/05/2005' AND '16/09/2006'

elle marche parfaitement et retourne 7 par ex.
conclusion-> la requete est bonne

Lorsque je place cette requete (avec les dates en brut) dans mon CommandText, l'application me retourne egalement 7
conclusion->l'application fonctionne

Cependant quand je remplace les dates en brut par leurs variables string (voir premier code en haut), cela me retourne 0 et ne me fait aucune erreurs.

Je ne comprends pas mon erreur.

Pouvez vous m'aider?
merci d'avance

[Benjamin GAGNEUX]

Bonjour et bienvenue sur le forum de www.developpez.com

Je te conseille de lire les règles du forum .

Ainsi, afin de permettre une meilleur visibilité de ton code, tu devrais mettre les balises 'Code'.

De plus, ta question serait mieux placé dans Delphi et Bases de données (tu peux demander à un modérateur le déplacement)


Pour ce qui concerne ton problème...

Pourquoi la requete fonctionne mais pas sous l'application ?

Peut-être existe-t-il un problème de compatibilité de date ?
format anglais/américain -> MM/JJ/AAAA
fotmat francais -> JJ/MM/AAAA

Pour éviter d'avoir ce problème choisir un format de date sous forme de Double (Tant mieux Delphi peut gérer les dates en type Double facilement ).

Bon dev'
A+

[portu]

Code :

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

1
2
3
4
5
6
 
DataModule3.DtSprem.CommandText:='SELECT count(distinct ADH_ID) FROM gl_class_10 '+
                                 'WHERE COM_DATE BETWEEN :dat1 AND :dat2 ;';
DataModule3.DtSprem.Parameters.ParamByName('dat1').Value := TDateTime(datedeb);
DataModule3.DtSprem.Parameters.ParamByName('dat2').Value := TDateTIme(datedujour);
DataModule3.DtSprem.Execute;

Datedeb et Datedujour doivent être de type TDate (ou TDateTime);
Je mis TDateTIme(datedujour) pcq Microsoft JET ne gere que le type TDateTime (Maintenant, je ne sais pas si tu travailles sous une base Access)

[critok]

Non je travaille sous une base sqlserver.

Dans ma base le type de la date est: DATETIME

Ce que je ne comprends pas c'est que lorque je mets la date en brut ex: 12/05/2005 dans mon code a la place des variables cela marche parfaitement.

J'ai vérifié et mes variables sont bien initialisées, de type string et de la forme jj/mm/aaaa.

De plus lors de la compilation je n'ai aucunes erreurs.

[portu]

As tu essayé ce que yobenzen t'a proposé ? De formatter la date non pas en String mais en Type Double ?

[Benjamin GAGNEUX]

Moi, j'avais rencontré le problème sous ACCESS mais connaissance les habitude de Microsoft, je pense qu'il en va de même pour SQLServer.

En faite, j'avais constaté que ACCESS choisissait un peu le format qu'il lui plaisait pour les dates. C'est pourquoi je te proposais d'utiliser les dates sous forme de Double. Là, les erreurs de convertions semblent impossible.

De plus, dans ton application, il sera nettement plus facile de changer les dates, les modifier, etc ... puisque le DateTimePicker renvoie un double, et puisque les routines de DateUtils utilisent toutes des doubles.

En espérant avoir fait avancer le Chmilblick....
A+