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.

[cloayza]

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

[Casimiro Noteví]

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

[cloayza]

Empezado por Casimiro Notevi

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

Saludos Casimiro

[Casimiro Noteví]

Empezado por cloayza

Se me ha hecho eterno este 2013...

Será mejor que te tomes una infusión calentita y te vayas a dormir un rato