bz_ia.lst

oracle9i+j2ee开发aq oracle9i+j2ee开发aq oracle9i+j2ee开发aq

SQL> 
SQL> @@bz_ia_priv.sql &bz_pass &master_pass
SQL> REM script name: bz_ia_priv.sql
SQL> REM grants privileges to enqueue and dequeue to user bz
SQL> REM Creates Internet users Bob and Jane
SQL> REM Grants appropriate privileges to bz for internet_access
SQL> REM
SQL> REM version: 9.0.1
SQL> REM change:  initial version
SQL> REM
SQL> 
SQL> 
SQL> define bz_pass = &1
SQL> define master_pass = &2
SQL> 
SQL> CONNECT bz/&bz_pass
Connected.
SQL> 
SQL> execute dbms_aqadm.drop_aq_agent(agent_name=>'bob');

PL/SQL procedure successfully completed.

SQL> execute dbms_aqadm.drop_aq_agent(agent_name=>'guest');

PL/SQL procedure successfully completed.

SQL> execute dbms_aqadm.drop_aq_agent(agent_name=>'jane');

PL/SQL procedure successfully completed.

SQL> 
SQL> REM Allows access to the queues via the servlets
SQL> execute dbms_aqadm.create_aq_agent(agent_name=>'bob', enable_http =>true);

PL/SQL procedure successfully completed.

SQL> execute dbms_aqadm.create_aq_agent(agent_name=>'guest', enable_http =>true);

PL/SQL procedure successfully completed.

SQL> execute dbms_aqadm.create_aq_agent(agent_name=>'jane', enable_http =>true);

PL/SQL procedure successfully completed.

SQL> execute dbms_aqadm.enable_db_access('bob', 'BZ');

PL/SQL procedure successfully completed.

SQL> execute dbms_aqadm.enable_db_access('jane', 'BZ');

PL/SQL procedure successfully completed.

SQL> execute dbms_aqadm.enable_db_access('guest', 'BZ');

PL/SQL procedure successfully completed.

SQL> 
SQL> 
SQL> REM make sure that bz already has aq_user_role and excecute on dbms_aq
SQL> 
SQL> CONNECT system/&master_pass as sysdba;
Connected.
SQL> alter user bz grant connect through bz;

User altered.

SQL> 
SQL> spool off