Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement