Ejecutar Script con IBSQL
 

¿Se puede ejecutar Script con el componente IBSQL?
He intentado crear un Store Procedure y me falla la primera línea (SET TERM^).
Sin embargo cuando creo una Base de Datos todo es correcto.
El mismo Script con IBExpert lo crea perfectamente.
Uso Delphi7.
Saludos.

Hola Loviedo.

Si. Sólo es necesario que pongas la propiedad ParamCheck a False antes de ejecutarlo.

Ejemplo:

Código Delphi [-]
 with IBSQL1 do
  begin
    Close;
    ParamCheck:= False;
    SQL.Add('CREATE PROCEDURE SP_PI RETURNS(RESULT DOUBLE PRECISION)');
    SQL.Add('AS');
    SQL.Add('BEGIN');
    SQL.Add('RESULT = ''3.141592654'';');
    SQL.Add('END');
    ExecQuery;
  end;

Luego:

Código Delphi [-]
...
  IBStoredProc1.StoredProcName:= 'SP_PI';
  IBStoredProc1.ExecProc;
  ShowMessage(FloatToStr(IBStoredProc1.Params[0].Value));
...

Un saludo.

Muchas gracias, funciona perfectamente.
Saludos.