Usar ExecuteImmediate de IBDataBase

[Punzo]

Buen día, tengo un problema al tratar de migrar BDE a IBX, esto es con los componentes Database e IBDatabase, tengo una líneas de código en donde el Database ejecuta Alter, Create y Drop hacia procedimientos almacenados, con un simple:

Código Delphi [-]
Database.Execute ('CREATE OR ALTER PROCEDURE... end');

He tratado de hacer básicamente lo mismo con el IBDatabase con el método ExecuteImmediate, pero me marca un error, me dice que no lo reconoce, estoy usando Delphi 2007 con Firebird 2.5, muchas gracias por su ayuda.

[ecfisa]

Hola.

Podrías emplear el componente TIBScript, ejemplo de uso:

Código Delphi [-]
...
begin
  IBScript1.Database    := IBDatabase1;
  IBScript1.Transaction := IBTransaction1;
  IBScript1.Script.Add('SET TERM ^ ;');
  IBScript1.Script.Add('CREATE OR ALTER PROCEDURE FOO( AMOUNT INTEGER )');
  IBScript1.Script.Add('RETURNS( RESULT INTEGER )');
  IBScript1.Script.Add('AS');
  IBScript1.Script.Add('BEGIN');

  ... 

  IBScript1.Script.Add('  SUSPEND;')
  IBScript1.Script.Add('END^');
  IBScript1.Script.Add('SET TERM ; ^');
  IBScript1.ExecuteScript;
end;

Saludos

[Punzo]

Originally Posted by ecfisa

Hola.

Podrías emplear el componente TIBScript, ejemplo de uso:

Código Delphi [-]
...
begin
  IBScript1.Database    := IBDatabase1;
  IBScript1.Transaction := IBTransaction1;
  IBScript1.Script.Add('SET TERM ^ ;');
  IBScript1.Script.Add('CREATE OR ALTER PROCEDURE FOO( AMOUNT INTEGER )');
  IBScript1.Script.Add('RETURNS( RESULT INTEGER )');
  IBScript1.Script.Add('AS');
  IBScript1.Script.Add('BEGIN');

  ... 

  IBScript1.Script.Add('  SUSPEND;')
  IBScript1.Script.Add('END^');
  IBScript1.Script.Add('SET TERM ; ^');
  IBScript1.ExecuteScript;
end;

Saludos

Gracias, es la alternativa, si funciona.