[firebase-br] Execute Block

[Paulo Tricon]

Boa tarde.

Estou usando o firebird 2.5 e fiz um select de um banco para outro. Direto
no banco de dados funciona. Mas como eu posso retornor esse resultado para o
Delphi uso IBX, tem como isso voltar num IBQuery?

Abaixo o código.


SET TERM !!;
EXECUTE BLOCK
  RETURNS (numero integer)
AS
BEGIN
  FOR
    EXECUTE STATEMENT 'select numero from movto where empresa=1 and filial=1
and pedido=''159851'''
    ON EXTERNAL 'C:\Dados\Banco.Fdb'
    AS USER 'sysdba'
    PASSWORD 'masterkey'
    INTO :numero
  DO
  BEGIN
    SUSPEND;
  END
END
!!
SET TERM ;!!


Paulo Ricardo