Pasted

EXECUTE BLOCK RETURNS (
TEXTO VARCHAR(100)
)
AS
BEGIN
 
      EXECUTE STATEMENT 'Select Nome from Empresa'
      ON EXTERNAL DATA SOURCE 'C:\Bancos\base1\base1.FDB' AS USER 'sysdba' PASSWORD 'masterkey'
      INTO :TEXTO;
      SUSPEND;
 
      EXECUTE STATEMENT 'Select Nome from Empresa'
      ON EXTERNAL DATA SOURCE 'C:\Bancos\base2\base2.FDB' AS USER 'sysdba' PASSWORD 'masterkey'
      INTO :TEXTO;
      SUSPEND;
 
      EXECUTE STATEMENT 'Select Nome from Empresa'
      ON EXTERNAL DATA SOURCE 'C:\Bancos\base3\base3.FDB' AS USER 'sysdba' PASSWORD 'masterkey'
      INTO :TEXTO;
      SUSPEND;
 
END