Ejecutar Script con IBSQL

[Loviedo]

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

[ecfisa]

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.

[Loviedo]

Muchas gracias, funciona perfectamente.
Saludos.