[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