Discussion :

[PREUX]

Problème sur l'utilisation de TIMESTAMP en dialect 3 avec Delphi7 et Interbase 6.5

Code :

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

1
2
3
4
5
6
7
8
 
with SQL do
  begin 
    Chn:='22/12'2009 15:45 56';
    SQDT:=StrToSQLTimeStamp(Chn);
    ParamByName(MaDatation).asTSQLTimeStamp:=StrToSQLTimeStamp;
  end;
(SQDT);

message d'erreur : fonctionnalité non supportée

Le champ est créé dans la table en tant que format TIMESTAMP
le debugger affiche bien tous les champs de SQDT(date, heure,secondes...)
Qu'est ce qui cloche ?

[ero-sennin]

Tout d'abord, bonsoir

Ensuite, ta chaîne m'a l'air mal construite!
Si Chn doit contenir une chaîne de caractères indiquant une date + une heure, elle est mal construite... Ca ne serait pas plutôt :

Code :

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

Chn := '22/12/2009 15:45:56'

Mais bon, je pense que tu as fait une erreur de copié coller vu que tu as les bons champs dans ton SQLT... Après, je ne vois pas.

[PREUX]

je rectifie la syntaxe

Code :

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

1
2
3
4
5
6
7
 
with SQL do
  begin 
    Chn:='22/12/2009 15:45:56';
    SQDT:=StrToSQLTimeStamp(Chn);
    ParamByName(MaDatation).asTSQLTimeStamp:=SQDT;
  end;

[SergioMaster]

bonjour ,

pfew , du 6.5 je sais que c'etait open source mais quand même de l'eau a coulé sous les ponts depuis .
pourquoi ne tenterais tu pas un passage a Firebird , la branche toujours open source de Interbase 6.5 , tu serais surpris des évolutions

[Cl@udius]

Salut

Effectivement IB6.5 c'est plutôt vieillot. Donc si tu n'es pas contraint d'utiliser cette version d'IB, je te suggère également de passer à une version plus récente d'Interbase ou Firebird, ces deux produits ayant beaucoup évolués depuis.

Mais en ce qui concerne ton problème de date, sache qu'un champ IB/FB TIMESTAMP sera au niveau de ton DataSet de type ftDateTime et non ftTimeStamp.

Donc utilise une variable de type TDateTime pour alimenter ton paramètre.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  MyStamp: TDateTime;
begin
  // ...
  MyStamp := EncodeDateTime(2009, 12, 22, 14, 45, 56, 0);
  with SQL do
  begin 
    // ...
    ParamByName(MaDatation).AsDateTime := MyStamp;
    // ...
  end;

@+ Claudius

[PREUX]

Merci ça marche

[VLDG]

bonjour ,
la branche toujours open source de Interbase 6.5 , tu serais surpris des évolutions

Interbase 6.5 n'était plus open source.

Firebird est effectivement très bien