Cita:
Empezado por ingabraham
crear un trigger firebird desde delphi 2007.
osea con codigo delphi, sin necesidad de entar a firbird sql vs. 2.0.
|
A ver como va este demo.
IBX:
Código Delphi
[-]
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:
Código Delphi
[-]
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