Discussion :

[steph1969]

Bonjour,

Sous Delphi Xe, MsSql Express 2012, en utilisant un ADOConnection et un ADoQuery très simple (SELECT * FROM MYTABLE WHERE ID=1) cela me retourne un DataSet contenant 1 record (normal).

Lorsque j'essaie d'accéder à une information définie comme type DATE (au niveau de MSSql) je me rends compte que le champ (TField) est de type TStringField et non TDateTimeField et que donc ;

DataSet.FieldByName( 'DATE' ).Value me retoune une chaine de caractères (contenant bien la date YYYY-MM-DD) et pas une valeur de type TDateTime.

Mon application est actuellement fonctionnelle avec MySql, FireBird et Access via ADO (avec ces 3 autres SGBD cela retoune bien une date) et j'essaie d'être le plus "générique" possible dans la gestion des requêtes SQL et gestion des données c'est pourquoi je ne peux pas faire une conversion String > Date "manuelle" sinon je crée un cas particulier dans les modules de haut niveau qui ne savent pas quel SGBD est utilisé.

PS : dans les commande sINSERT et dans SQL Management Studio les dates sont au format 'YYYY-MM-DD' alors que j'ai un windows FR et SQL Express 2012 FR.

[istam3]

Bonjour,

En remplaçant

DataSet.FieldByName( 'DATE' ).Value

par

DataSet.FieldByName( 'DATE' ).AsDateTime tu devrais obtenir ce qui tu veux

[Rayek]

Bonjour,

En remplaçant

DataSet.FieldByName( 'DATE' ).Value

par

DataSet.FieldByName( 'DATE' ).AsDateTime tu devrais obtenir ce qui tu veux

Sauf que (si mes souvenirs sont bon) les composants Ado n'ont pas de déclinaisons AsXXXX (AsDateTime, AsInteger, etc ...)

[istam3]

Sous Delphi 7 et 2009 le TAdoQuery propose bien tout les typages AsString, AsInterger, etc.....
et après vérification dans XE2 aussi, je suppose donc que ça devrait y être dans XE

[steph1969]

Oui effectivement AsDateTime existe bien, mais déclenche une exception de convertion.
Ce que je ne comprend pas c'est le fait que le Type de champ n'est pas le même entre Firebird/MySql/access et MS Sql alors que les champs sous-jacent dans les tables sont de type Date.

Avec Firebird, MySql et Access :

(DataSet.FieldByName(DB_FLDS_PATIENTS_BIRTHDATE) is TDateTimeField) = True

Avec MsSql :

DataSet.FieldByName(DB_FLDS_PATIENTS_BIRTHDATE) is TDateTimeField = False

et cela en utilisant les même instructions SQL (select * ...) et composants ADOConncection et ADOQuery. Seule la chaine de connexion change .

Je vais créer une application simple basée uniquement sur des composants visuels ADOConnection > ADOTable > DataSource > DBGrid afin de voir si la colonne "Date" devient également un String !

[steph1969]

Voila je viens de créer une application test avec

ADOConnection (Provider=SQLOLEDB.1)
!
!
ADOTable
!
!
DataSource
!
!
DBGrid

ADOTable "pointe" sur une table contenant un champ de type "DATE"

et bien le champ correspondant (après avoir utilisé l'éditeur de champs de la table pour importer les champs) est de type TWideStringField

Why ?

[istam3]

Ce que je ne comprend pas c'est le fait que le Type de champ n'est pas le même entre Firebird/MySql/access et MS Sql alors que les champs sous-jacent dans les tables sont de type Date.

C'est parce que me semble-t-il, les différentes sgbd ne stockent pas les champs de la même façon, ce n'est pas parce que le champ est dit de type "date" ou "datetime" sous les 4 qu'il est stocké et remonté de la même façon.
Après n'étant pas utilisateur de MySql et MS Sql je ne suis pas sûr de pouvoir t'aider beacoup plus..

[Rayek]

Sous Delphi 7 et 2009 le TAdoQuery propose bien tout les typages AsString, AsInterger, etc.....
et après vérification dans XE2 aussi, je suppose donc que ça devrait y être dans XE

oupss , j'étais sur les ParamByName et pas sur les FieldByName, le vendredi c'est dur dur

[steph1969]

En cherchant avec le mot clé TWideStringField je suis tombé sur ceci :

http://qc.embarcadero.com/wc/qcmain.aspx?d=75076

c'est exactement cela ! ...

Je vais basculer mes champs Date et Time en DateTime ... mais bon c'est incroyable ce genre de bug ... surtout si cela traine depuis D2009 ! .

m'enfin, j'aurais perdu la journée ..

Merci à vous

[istam3]

Avec Firebird, MySql et Access :

(DataSet.FieldByName(DB_FLDS_PATIENTS_BIRTHDATE) is TDateTimeField) = True

Avec MsSql :

DataSet.FieldByName(DB_FLDS_PATIENTS_BIRTHDATE) is TDateTimeField = False

Truc bête, as-tu essayé avec

Code :

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

is TDateField

au lieu de TDateTimeField.

le vendredi c'est dur dur

je confirme le vendredi c'est plus dur

[steph1969]

le type est bien TWideStringField . (ce qui n'a rien avoir avec un type Date !).

[steph1969]

Bon j'ai changé les champ DATE et TIME en DATETIME et cela fonctionne ...