Pasted

EXECUTE IBEBLOCK RETURNS (
TEXTO VARCHAR(100)
)
AS
BEGIN
 
   CON1 = ibec_CreateConnection(__ctFirebird,
      'DBName="C:\bancos\base\banco1.fdb";
      Clientlib=GDS32.dll;User=SYSDBA;
      Password=masterkey;
      Names=NONE;
      SQLDialect=3;');
 
   ibec_UseConnection(CON1);
   --ou USE CON1;
   SELECT Nome FROM Empresa INTO :TEXTO;
   SUSPEND;
   CLOSE CONNECTION CON1;
 
 
 
 
   CON2 = ibec_CreateConnection(__ctFirebird,
      'DBName="C:\bancos\base2\banco2.fdb";
      Clientlib=GDS32.dll;User=SYSDBA;
      Password=masterkey;
      Names=NONE;
      SQLDialect=3;');
 
   ibec_UseConnection(CON2);
   --ou USE CON2;
   SELECT Nome FROM Empresa INTO :TEXTO;
   SUSPEND;
   CLOSE CONNECTION CON2;
 
END