oracle查看数据库锁,诊断锁的来源及类型

1、查看数据库锁,诊断锁的来源及类型：
　　select object_id,session_id,locked_mode from v$locked_object;
或者用以下命令：
select b.owner,b.object_name,l.session_id,l.locked_mode
from v$locked_object l, dba_objects b
where b.object_id=l.object_id

集群环境可能使用gv视图才能查出

SELECT object_name, machine, s.sid, s.serial# FROM gv$locked_object l, dba_objects o, gv$session s 
WHERE l.object_id = o.object_id AND l.session_id = s.sid;

SELECT object_name, machine, s.sid, s.serial# FROM gv$locked_object l, dba_objects o, gv$session s WHERE l.object_id = o.object_id AND l.session_id = s.sid;

2、找出数据库的serial#,以备杀死：
　　 select t2.username,t2.sid,t2.serial#,t2.logon_time
from v$locked_object t1,v$session t2
where t1.session_id=t2.sid order by t2.logon_time;

3、杀死该session
　　alter system kill session 'sid,serial#'

4、查询更详细的锁表信息

select 'exec superkill(' || sess.sid || ',' || sess.serial# || ',' ||
         (select inst_id from gv$session  where username = 'SUN_EGRANT_PRO' and sid = sess.sid and serial# = sess.serial#) || ');',
         sess.sid,
         sess.TIME_REMAINING_MICRO, sess.TIME_SINCE_LAST_WAIT_MICRO,
         sess.PREV_EXEC_START, sess.EVENT,
         t2.SQL_TEXT,
         lo.os_user_name
    from v$locked_object lo, dba_objects ao, v$session sess,v$sql t2
   where ao.object_id = lo.object_id
     and lo.session_id = sess.sid
     and sess.SQL_ID = t2.sql_id;

5、由于某个数据被锁住，但是按上面的语句无法查出，最后DBA用以下语句能查出被某个锁影响了

select decode (request,0, 'Holder:',' Waiter:') ||s.inst_id||':' ||s.sid||','||s.serial# sess,
id1,id2, lmode, request,l.type, ctime,s.sql_id, s.event,s.last_call_et
from gv$lock l,gv$session s
where (id1, id2, l.type) in
(select id1, id2, type from gv$lock where request>0)
and l.sid=s.sid
and l.INST_ID=s.INST_ID
order by id1, ctime desc, request;

以下语句生成命令窗口sql，可以执行杀掉锁

select 'exec superkill('|| s.sid || ',' || s.serial# || ',' ||s.inst_id|| ');',
decode (request,0, 'Holder:',' Waiter:') ||s.inst_id||':' ||s.sid||','||s.serial# sess,
id1,id2, lmode, request,l.type, ctime,s.sql_id, s.event,s.last_call_et,s.LOGON_TIME,t2.SQL_TEXT
from gv$lock l,gv$session s,v$sql t2
where (id1, id2, l.type) in
(select id1, id2, type from gv$lock where request>0)
and l.sid=s.sid
and l.INST_ID=s.INST_ID
and s.SQL_ID=t2.SQL_ID
order by id1, ctime desc, request;