Discussion :

[Tchitchi13]

Bonjour,
Je suis bloqué sur un problème avec une base de données SQLite.
Cette base contient (entre autre) une table avec un champ de type INTEGER (au sens SQL) dont les enregistrements contiennent des valeurs du type '1326326400000'.
Il s'agit vraisemblablement d'une date et heure représentées par le nombre de millisecondes depuis le 1er janvier 1970.

J'utilise les composants Zeos sous Delphi7 pour gérer cette base de données.

Malheureusement, La valeur contenue dans le champ dépasse l'integer au sens Delphi et donc Delphi me renvoi '0'. Même si je tente de récupérer la valeur du champ dans un int64, c'est toujours 0 qui m'est renvoyé car en interne, tout est basé sur le type Delphi integer.
Je ne sais pas comment récupérer vraiment la valeur et la ré-écrire ensuite. JE SUIS BLOQUE !!

Si quelqu'un peut me débloquer, ce serait super !!!
Merci

[ShaiLeTroll]

Cherche dans un Zeos un équivalent de AsLargeInt du TField standard de la VCL qui te fournira un Int64

[Rayek]

Bonjour,
Il s'agit vraisemblablement d'une date et heure représentées par le nombre de millisecondes depuis le 1er janvier 1970.

Cela ne seait il pas un champ TimeStamp et donc avec Delphi tu devrais pouvoir le lire avec un AsDateTime

[Tchitchi13]

J'obtiens une erreur à l'exécution si j'utilise AsDateTime : 'Impossible d'accéder au champ 'xxxxxx' comme type DateTime'.
En fait, je n'arrive à voir correctement la valeur de ce champ qu'à laide de l'outils 'SQLite Database Browser', mais pas avec Delphi.

[ShaiLeTroll]

Si tu as déclaré un INTEGER, AsDateTime ne pourra pas fonctionner !

As-tu essayé AsLargeInt comme je le préconisais !

Vérifie si le champ est détecter comme TLargeintField par transtypage ou teste si DataType est égale ftLargeint

[Tchitchi13]

AslargeInt n'existe pas (delphi 7).

[Rayek]

Est ce qu'il ne serait pas possible que tu Cast le champs lors de sa récupération avec une requête pour le transformer en TimeStamp ?

Desoelr je ne connais pas SQLLite

Mais par exemple en Interbase

Code sql :

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

1
2
 
 Select Cast (LeChamp as TimeStamp) from LaTable

[ShaiLeTroll]

AsLargeInt existe dans mon C++Builder 6 sur un TLargeIntField
Comme BCB6 est plus vieux que Delphi 7, cela existe forcément et je peux te le dire pour l'avoir utiliser avec MyDac sur MySQL !

Code :

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

1
2
3
4
5
6
7
var
  Field: TLargeIntField;
  i : Int64;
begin
  Field := Table.FieldByName('Champ') as TLargeIntField;
  if Assigned(Field) then
    i := Field.AsLargeInt();

Faudrait chercher un petit peu plus avant de dire que cela n'existe pas !
Tu n'as même pas ouvert l'aide et chercher !


Tu n'as pas plus cherché dans le code de Zeos Lib !
ZAbstractDataset.pas - L725
ZDatasetUtils.pas - L1178, la directive VER130BELOW indique qu'à partir de Delphi 6 cela gère le TLargeIntField !