dear all,
saya coba buat trigger after logon on database, dan procedure untuk kill
it's session kalo dia pake toad,sqlplus atau third party lainnya except
oracle form/report. permasalahannya kenapa trigger after logon on database
tidak ter-fire ya.....
login as monthend:
CREATE OR REPLACE PROCEDURE x_db_start IS
cid INTEGER;
ret INTEGER;
sqltxt VARCHAR2(150);
v_prg VARCHAR2(150);
v_sid number;
v_serial number;
BEGIN
--alter system kill session p_sid,p_serial;
select f_sid, f_serial, f_program into v_sid, v_serial, v_prg
from x_logon_tbl where rownum<=1;
if v_prg is not null then
cid := DBMS_SQL.OPEN_CURSOR;
sqltxt := 'alter system kill session '||''''||v_sid||','||v_serial||'''';
DBMS_SQL.PARSE(cid, sqltxt, dbms_sql.v7);
DBMS_OUTPUT.PUT_LINE(sqltxt);
ret := DBMS_SQL.EXECUTE(cid);
DBMS_SQL.CLOSE_CURSOR(cid);
DBMS_OUTPUT.PUT_LINE('Sukses');
end if;
EXCEPTION
WHEN OTHERS THEN
--DBMS_SQL.CLOSE_CURSOR(cid);
DBMS_OUTPUT.PUT_LINE('Gagal : '||SQLERRM );
END;
/
login as sys:
create or replace trigger trg_logon_db
after logon on database
begin
delete from monthend.x_logon_tbl;
insert into monthend.x_logon_tbl(f_sid, f_serial, f_program)
select sid,serial#,module
from v$session where audsid = sys_context('USERENV', 'SESSIONID');
commit;
monthend.x_db_start;
end;
/
regards
--ujang
http://blog.faaza.info
Send instant messages to your online friends http://asia.messenger.yahoo.com
--
-----------I.N.D.O - O.R.A.C.L.E---------------
Keluar: [EMAIL PROTECTED]
Website: http://indo-oracle.lizt.org (NEW)
-----------------------------------------------
Bergabung dengan Indonesia Thin Client User Groups,
Terminal Server, Citrix, New Moon Caneveral, di:
http://indo-thin.vze.com
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indo-oracle/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
