crear un trigger firebird desde delphi 2007

[ingabraham]

crear un trigger firebird desde delphi 2007.
osea con codigo delphi, sin necesidad de entar a firbird sql vs. 2.0.

:confused:

[cloayza]

crear un trigger firebird desde delphi 2007.
osea con codigo delphi, sin necesidad de entar a firbird sql vs. 2.0.

:confused:

A ver como va este demo.

IBX:

with Query1 do begin
ParamCheck := False;
with SQL do begin
Clear;
Add('CREATE PROCEDURE GET_NUMERO_CLIENTES');
Add('RETURNS (NClientes integer)');
Add('AS');
Add('BEGIN');
Add(' SELECT COUNT(CLIENTE_ID)');
Add(' FROM CLIENTES');
Add(' INTO :NCLientes;');
Add(' SUSPEND;');
Add('END');
end;
ExecSQL;
end;

FIBPlus:

with pFIBQuery1 do begin
ParamCheck := False;
with SQL do begin
Clear;
Add('CREATE PROCEDURE GET_NUMERO_CLIENTES');
Add('RETURNS (NClientes integer)');
Add('AS');
Add('BEGIN');
Add(' SELECT COUNT(CLIENTE_ID)');
Add(' FROM CLIENTES');
Add(' INTO :NCLientes;');
Add(' SUSPEND;');
Add('END');
end;
Prepare;
ExecQuery;
end;

Saludos cordiales

[Casimiro Notevi]

Aunque has puesto de ejemplo un "stored procedure", es igual para crear un trigger :)

[cloayza]

Aunque has puesto de ejemplo un "stored procedure", es igual para crear un trigger :)

Chuuuuuuuuuuuuuu...Parece que mi comprensión lectora no anda muy bien a esta altura del año...

Se me ha hecho eterno este 2013...:mad:

Saludos Casimiro

[Casimiro Notevi]

Se me ha hecho eterno este 2013...:mad:Será mejor que te tomes una infusión calentita y te vayas a dormir un rato :D:D:D