Discussion :

[seifrf]

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

Code sql :

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

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

[seifrf]

Merci. Est-ce que je peux faire les contrôles sur Delphi entre les dates d'une autre façon ?

[SergioMaster]

Bonjour,

Oui, certainement dans l'événement BeforePost ou dans l'événement OnValidate de la colonne

[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

[sergio_is_back]

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 :

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 :

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

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