date du jour

[Fred 57220]

Bonjour ,

mon post precedent n' inspirant personne , je prend le probleme sous un autre angle

comment est il possible de mettre la date du jour par defaut.

essai trigger non concluant

essai de mettre default CURRENT_DATE
message d' erreur "valeur incorrecte pour le champ date"


merci

[makowski]

parce que ton code fonctionne
bien sûr en dialect 3, qui est la valeur normale et par défaut pour FB1.5

[Fred 57220]

Bonjour et merci

oui et c' est pour cela que je demande de l' aide.
j' ai un absolu besoin de mettre la date du jour lors de l' insertion ,
je peux bien sur le faire par programmation (Delphi) , mais je trouve plus sur et normal que cela soit fait par le moteur de DB.

comment le feriez vous ?


merci

[makowski]

comme ça :
SET TERM ^ ;

CREATE TRIGGER "Trig_Date_MES_Pdc " FOR "Produit de coupe"
ACTIVE BEFORE INSERT POSITION 0
AS
begin
New."Date de mise en service" = CURRENT_DATE ;
end
^
COMMIT WORK ^
SET TERM ;^

[makowski]

la preuve :

voici un fichier test.sql

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
CREATE DATABASE 'TEST.fdb';
CREATE TABLE "Produit de coupe"
(
"NomID" VarChar(30) NOT NULL ,
"Produit de coupe" VarChar(40) NOT NULL ,
"Date de mise en service" Date NOT NULL ,
"Date de mise hors service" Date ,
"Clef Excel" VarChar(3),
 
Constraint "SlPrimaryPdC" PRIMARY KEY ("NomID" ,"Produit de coupe" , "Date de mise en service") 
) ;
COMMIT;
 
SET TERM ^ ;
 
CREATE TRIGGER "Trig_Date_MES_Pdc " FOR "Produit de coupe"
ACTIVE BEFORE INSERT POSITION 0
AS
begin
New."Date de mise en service" = CURRENT_DATE ;
end
^
COMMIT WORK ^
SET TERM ;^
 
INSERT INTO "Produit de coupe" ("NomID","Produit de coupe") VALUES ('a','a');
COMMIT;
SELECT "Date de mise en service" FROM  "Produit de coupe" WHERE "NomID" = 'a';

et voici la sortie écran :

Code :

1
2
3
4
5
6
7
8
9
10
C:\Program Files\Firebird\Firebird_1_5\bin>isql -u SYSDBA -p masterkey
USE CONNECT OR CREATE DATABASE TO specify a DATABASE
SQL> input test.sql;
 
Date de mise en service
=======================
 
2007-08-01
 
SQL>

[Fred 57220]

je suis bien d' accord sur le code , mais

ci joint deux copies d' ecran.

Merci

[makowski]

certes, mais ça c'est un pb IBEasy+, pas un problème Firebird

[Fred 57220]

s' est ce que que pensé aussi

mais dans Delphi , j' ai aussi le probleme

[TryExceptEnd]

Mettez la propriété "Required" du composant TField relié au champs "Date de mise en service" a False.

[Fred 57220]

Bonjour

merci , cela fonctionne la date n' apparait pas lorsque je fais un post , mais que lorsque je fais un refresh

est ce normal ?

[makowski]

oui, tu n'as qu'à forcer le refresh après le post

[Fred 57220]

oui , je peux

mais lorsque un technicien ajoute un nouveau produit au process
il faut que la date apparaisse sinon , il va croire qu' il n' y a pas de date.

donc le plus simple est que je la mette par prg

enfin merci , j' ai appris des choses et c' est cela l' essentielle.

[makowski]

mais non
post
refresh
et basta

[edam]

Envoyé par makowski

comme ça :
SET TERM ^ ;

CREATE TRIGGER "Trig_Date_MES_Pdc " FOR "Produit de coupe"
ACTIVE BEFORE INSERT POSITION 0
AS
begin
New."Date de mise en service" = CURRENT_DATE ;
end
^
COMMIT WORK ^
SET TERM ;^

makowski, sa serat pas mieux si ce trigger est "ACTIVE affter INSERT "

[makowski]

Envoyé par edam

makowski, sa serat pas mieux si ce trigger est "ACTIVE affter INSERT "

la bonne blague

révise ton sql
un after Insert ne modifie pas les données de la table, par définition

[edam]

Envoyé par makowski

la bonne blague

révise ton sql
un after Insert ne modifie pas les données de la table, par définition

La vérité, j'ai jamais utilisé les trigger , mais en Delphi les données ne peut êtres changer dans onbefor, c'est pourquoi j'ai posé la question,mais je serais très heureux d'expliqué, merci