Appel d'un TRIGGER dans Delphi 7

Version imprimable

bonjour, j'ai le trigger suivant es-ce que je peux faire l'appel dans delphi 7 ? Merci !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
create trigger delai
on propose after insert
as
begin
declare @dl datetime,@d datetime
set @dl=(select datepl from inserted)
set  @d=(select date_limt_app 
from ao as a
join pv as b
on a.n_app=b.n_app
join inserted as c 
on c.n_pv=b.n_pv)
if 
@dl > @d
begin
raiserror ('date erronée',16,1)
rollback transaction 
end
end

18/03/2018, 18h47
SergioMaster

Bonsoir,

Un trigger est normalement une procédure interne à la base de données, donc non, et ce quelle que soit la version de Delphi d'ailleurs.
18/03/2018, 20h15
seifrf

Merci. Est-ce que je peux faire les contrôles sur Delphi entre les dates d'une autre façon ?
19/03/2018, 07h10
SergioMaster

Bonjour,

Oui, certainement dans l'événement BeforePost ou dans l'événement OnValidate de la colonne
19/03/2018, 12h17
seifrf

un exemple sil vous plais ce que je veut faire une contrôle de sorte qu' un dbedit n'accepte pas la date courante ou inférieur

Citation:

Envoyé par seifrf

un exemple sil vous plais ce que je veut faire une contrôle de sorte qu' un dbedit n'accepte pas la date courante ou inférieur

Et la propriété OnChange de ton DBEdit par exemple ça ne serait pas une bonne idée dés fois ?

L'aide ici : http://docwiki.embarcadero.com/Libra...BEdit.OnChange

Ou alors dans le OnUpdateData de ton datasource :

Un petit extrait de l'aide Delphi :

Citation:

Se produit quand les données de l'enregistrement en cours vont être actualisées.

Un gestionnaire d'événement OnUpdateData permet d'effectuer des actions spécifiques avant l'expédition des données modifiées à la base de données. Si une application expédie des modifications à la base de données alors qu'un gestionnaire d'événement OnUpdateData existe, celui-ci est appelé avant l'exécution de la méthode Post de l'ensemble de données. Un gestionnaire d'événement OnUpdateData permet d'effectuer des traitements ou des validations complémentaires sur les données avant leur expédition.
Code:

1 2 3 4 5 6 7 8 9 procedure TForm6.DataSource1UpdateData(Sender: TObject); begin if CompareDate(TDate(DBEdit1.Field.AsDateTime),Date)<1 then begin DataSource1.DataSet.Cancel; ShowMessage('Date incorrecte !'); end; end;
J'ai pas testé mais ça ne devrai pas être loin de fonctionner....

20/03/2018, 19h28
seifrf

un peut plus d'explication j'ai pas bien compris l'exemple
21/03/2018, 07h02
SergioMaster
Bonjour,

il vous faut avant tout une requête
Code:

1 2 3 4 5 6 select date_limt_app from ao as a join pv as b on a.n_app=b.n_app join inserted as c on c.n_pv=b.n_pv
pour obtenir la date "butoir"
ensuite comme indiqué il y a plusieurs évènements possibles pour faire le test. Tout dépend
1- de votre programme
2- de votre manière de vous connecter à la base de données (type de composants BD ?)
3- d'où vous voulez situer votre test en fonction de l'interface utilisateur
21/03/2018, 15h05
cantador

Citation:

un trigger est normalement une procédure interne à la base de données donc non et ce quelque soit la version de Delphi d'ailleurs

pas tout à fait vrai..
avec les composants TiboQuery que j'affectionne particulièrement, la propriété
GeneratorLinks permet effectivement de déclencher le trigger en spécifiant le champ incrémental lié au Generator, en plus
bien entendu de l'intégrer à la table de de la base de données.

mais avec les composants ZEOS, il est nécessaire, de taper du code.
26/03/2018, 18h04
seifrf

merci je vais essayer