[FB1.5] ADOQuery insert et Parameter DataTime

Version imprimable

06/09/2006, 10h05
celine33

[FB1.5] ADOQuery insert et Parameter DataTime

Bonjour,
Je cherche à insérer dans un champ DateTime la valeur de la date du jour (avec l'heure en cours). J'utilise une ADOQuery et le code suivant pour affecter la valeur de datsais:

Code:

Parameters.ParamByName('datsais').Value := now;

Mais, dans ma base je n'ai que la date, pas l'heure...
Faut-il utiliser un autre composant? Une procédure stockée?
Ou bien un paramètre à ajuster?
Merci!
06/09/2006, 10h18
Cl@udius
Salut,

Pourquoi tu n'utilises pas un trigger BeforeInsert et / ou BeforeUpdate sur ta table.
Code:

1 2 new.DATSAIS = 'NOW';
Sinon est-ce que le paramètre est bien de type TDateTime ?

@+
06/09/2006, 10h36
Rayek

Citation:

Envoyé par Claudius40

Pourquoi tu n'utilises pas un trigger BeforeInsert et / ou BeforeUpdate sur ta table.

@Claudius40 : elle utilise un AdoQuery donc elle doit passer par une requete insert, je pense donc que ce que tu lui proposes ne peux pas fonctionner ^^

@celine33 : Peux tu montrer ta requete d'insertion ? Et même le code avant et après l'appel du paramètre
06/09/2006, 10h51
Cl@udius

@Malatar, Salut !

Je ne parlais d'une implémentation au niveau de l'appli Delphi, mais au niveau de la base de données Firebird.

C'est ainsi que je procède pour renseigner les champs que je nomme en général UPDT_USER et UPDT_DATE.

L'utilisation d'un trigger pour ce type d'infos est, je pense, le plus simple et le plus pratique.

@+

En effet, je ne suis pas sûre de voir l'intérêt du Trigger.
Voici mon code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
with pdaDataModule.ADOQry_insertResa do
begin
 
  SQL.Clear;
  SQL.Add('insert into resa  '+
            '( cde_datsais '+
            ) '+
            'values '+
            '(  :datsais '+
            ') ' );
  try
    ExecSQL;
  except
    on E: Exception do raise 
         Exception.Create(E.message +#13#10+ 
         msg_fr.m_erroraccess+' - table resa"');
  end;
end;

Le champ est bien de type fTDateTime et stocké en base Firebird au format TimeStam (passage au SQLDialect3)
Merci de votre aide!

06/09/2006, 10h54
Cl@udius

OK, effectivement j'étais à côté de la plaque avec mon trigger, sorry ! :roll:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 with pdaDataModule.ADOQry_insertResa do begin SQL.Clear; SQL.Add('insert into resa ( cde_datsais)'); SQL.Add('values (NOW)'); try ExecSQL; except on E: Exception do raise Exception.Create(E.message +#13#10+ msg_fr.m_erroraccess+' - table resa"'); end; end;
Si tu es sûr de toujours mettre la date du jour avec l'heure, autant mettre un now directement dans la requete (En plus tu ne renseignes pas le paramètre, un oubli ???)
Si ca ne fonctionne pas (resultat incorrecte), c'est que le type de champ que tu utilises ne dois pas être le bon.

Je te propose de réécrire le SQL comme suit :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
begin
 
  SQL.Clear;
  SQL.Add('insert into resa  '+
            '( cde_datsais '+
            ) '+
            'values '+
            '( CURRENT_TIMESTAMP  ) '+
            ') ' );
  try
    ExecSQL;
  except
    on E: Exception do raise 
         Exception.Create(E.message +#13#10+ 
         msg_fr.m_erroraccess+' - table resa"');
  end;
end;

Ainsi, c'est l'heure du serveur qui sera utilisée, quelle que soit l'heure des postes clients.

06/09/2006, 11h26
celine33

@Malatar : Oui, j'ai omis d'affecter le paramètre.
Je vais essayé d'affecter directement la valeur now dans le code de la requête...
Entre temps, je teste en passant par une ADOTable... mais je crains les ralentissements à l'exécution.
Est-ce que c'est perceptible lorsque l'on fait par ex. un insert sur une table à plus de 1000 enregistrements?
Merci.
06/09/2006, 14h40
Rayek

reste avec une requete, ca sera mieux dans tous les cas.