鎖表，相信大家都遇到過，解鎖的方法想必大家也都知道，但是一個個的殺程序難免有些低階，我們用儲存過程來實現這一功能，就變得異常簡單了。

1.建立檢視，查詢程序資訊，注意要給當前使用者賦予系統許可權select any dictionary

create or replace view mysession as
select b.sid,b.serial# from v$lock a,v$session b where a.SID = b.SID and status='INACTIVE' 
--and program<>'plsqldev.exe'  
order by machine;
 

create or replace procedure kill_session is
  v_sid    varchar2(30);
  v_serial varchar2(30);
  v_sql    varchar2(1000);
  TYPE DyData IS REF CURSOR;
  rows DyData;
begin

  v_sql := 'select * from mysession ';
  OPEN rows FOR v_sql;
  LOOP
    FETCH rows
      into v_sid, v_serial;
  
    v_sql := 'alter system kill session ''' || v_sid || ',' || v_serial || '''';
    execute immediate v_sql;
    --dbms_output.put_line(v_userid || '__' || v_user || '__' || v_pwd);
  
    EXIT WHEN rows%NOTFOUND;
  END LOOP;

end kill_session;
 

begin
  -- Call the procedure
  kill_session;
end;

技術部落格，請尊重博主勞動成果，轉載請註明出處，謝謝合作。

1. 版權：求知域http://www.qqextra.com，http://blog.csdn.net/ls_man轉載請註明出處