Discussion :

[celine33]

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 :

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

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!

[Cl@udius]

Salut,

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

Code :

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

1
2
 
  new.DATSAIS = 'NOW';

Sinon est-ce que le paramètre est bien de type TDateTime ?

@+

[Rayek]

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

[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.

@+

[celine33]

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

Code :

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

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!

[Cl@udius]

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

[Rayek]

Code :

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

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.

[cmen76]

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

Code :

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

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.

[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.

[Rayek]

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