Discussion :

[ZenZiTone]

Bien le bonjour !

Dans une table contenant un champ de type TIMESTAMP, je souhaite lui attribuer une valeur de type TIMESTAMP.. Ce qui est logique !

En exécutant le code suivant :

Code :

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

T_TABLE.FieldByName('TIMETP').Value := wTimesTamp;

Une petite erreur de conversion apparaît : [DCC Erreur] ******.pas(471): E2010 Types incompatibles : 'Variant' et 'TTimeStamp'

Cela me parrait bizard car il me semblait que Value faisait un espèce de matching entre le type en base de données et le type que l'on souhaite lui affecter. Enfin c'est ce que j'en avais déduit, étant donné que pour les autres type, le Value fonctionne très bien.

Du coup j'en viens à la conclusion suivante : Soit je me suis trompé sur le Value, soit le TTimestamp ne correspond pas vraiment à un TIMESTAMP (celui de lla BDD).

Si vous pouviez m'éclairer, je vous en remercierai !

Cordialement,

ZenZiTone.

[Papy214]

TTimestamp est un record

Code :

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

1
2
3
4
5
 
TTimeStamp = record
    Time: Integer;      { Number of milliseconds since midnight }
    Date: Integer;      { One plus number of days since 1/1/0001 }
  end;

Je ne suis pas sur que les record puisse être convertis en variant :-)

Par contre, tu dois pouvoir utiliser System.SysUtils.TimeStampToDateTime avant d'assigner au variant.

Citation extraite de Site

Par défaut, les variants peuvent contenir des valeurs de tout type à l'exception des enregistrements, des ensembles, des tableaux statiques, des classes, des références de classes et des pointeurs.

[ShaiLeTroll]

Le type TTimeStamp n'est pas un type géré par le Variant, en tout cas il n'est pas dans la liste


tu utiliser un TSQLTimeStamp qui peut produit un variant via VarSQLTimeStampCreate

Pour savoir le type approprié, lance ceci

Code :

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

ShowMessage(T_TABLE.FieldByName('TIMETP').ClassName);

Grande chance pour que cela soit un TDateTimeField ou même mieux un
TSQLTimeStampField qui te fournira la propriété AsSQLTimeStamp

Cela peut-être un TLargeintField la partie Basse c'est TTimeStamp.Time et la partie haute TTimeStamp.Date

[ZenZiTone]

J'ai essayer la chose suivante :

Code :

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

1
2
3
wTimesTamp: Variant;
 
wTimesTamp := VarSQLTimeStampCreate;

Cela fonctionne, néamoins je n'ai que la date dans le timestamps, mais pas l'h/min/sec/ms...

je vais regarder d'un peu plus près pourquoi. Merci pour vos réponses

[EDIT]

En passant en paramètre un TDateTime, y a tout ce qu'il faut !