Oracle解鎖表、包、用戶、殺會(huì)話、停job的方法實(shí)現(xiàn)
更新時(shí)間：2023年12月14日 15:22:10 作者：Tzq@2018
本文主要介紹了Oracle解鎖表、包、用戶、殺會(huì)話、停job的方法實(shí)現(xiàn),文中通過(guò)示例代碼介紹的非常詳細(xì),對(duì)大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價(jià)值,需要的朋友們下面隨著小編來(lái)一起學(xué)習(xí)學(xué)習(xí)吧
一、創(chuàng)建包tzq_server_pkg
sys用戶以sysdba身份登錄Oracle數(shù)據(jù)庫(kù)，創(chuàng)建包 tzq_server_pkg ，上代碼：
CREATE OR REPLACE PACKAGE sys.tzq_server_pkg IS
PROCEDURE unlock_table(table_owner IN VARCHAR2, table_name IN VARCHAR2);
PROCEDURE unlock_package(package_owner IN VARCHAR2,
package_name IN VARCHAR2);
PROCEDURE unlock_user(username IN VARCHAR2);
PROCEDURE stop_job(job_id IN NUMBER);
PROCEDURE kill_session(se_sid IN NUMBER, se_serail# IN NUMBER);
PROCEDURE grant_pris(username IN VARCHAR2);
END tzq_server_pkg;
/
CREATE OR REPLACE PACKAGE body SYS.tzq_server_pkg IS
PROCEDURE unlock_table(table_owner IN VARCHAR2, table_name IN VARCHAR2) IS
CURSOR c1 IS
SELECT DISTINCT '''' || s.sid || ',' || s.serial# || ',@' || s.inst_id || '''' AS si_id
FROM gv$locked_object l
,dba_objects o
,gv$session s
WHERE l.object_id = o.object_id
AND l.session_id = s.sid
AND l.inst_id = s.inst_id
AND o.owner = upper(table_owner)
AND o.object_name = upper(table_name);
c1_rec c1%ROWTYPE;
v_sql VARCHAR2(2000);
BEGIN
FOR c1_rec IN c1 LOOP
v_sql := 'alter system kill session ' || c1_rec.si_id || ' immediate';
dbms_output.put_line(v_sql);
BEGIN
EXECUTE IMMEDIATE v_sql;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
END;
END LOOP;
END unlock_table;
PROCEDURE unlock_package(package_owner IN VARCHAR2,
package_name IN VARCHAR2) IS
CURSOR c1 IS
SELECT DISTINCT '''' || a.sid || ',' || a.serial# || ',@' || a.inst_id || '''' AS si_id
FROM gv$session a
,gv$access b
WHERE b.object = upper(package_name)
AND b.owner = upper(package_owner)
AND a.sid = b.sid
AND a.inst_id = b.inst_id;
c1_rec c1%ROWTYPE;
v_sql VARCHAR2(2000);
BEGIN
FOR c1_rec IN c1 LOOP
v_sql := 'alter system kill session ' || c1_rec.si_id || ' immediate';
dbms_output.put_line(v_sql);
BEGIN
EXECUTE IMMEDIATE v_sql;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
NULL;
END;
END LOOP;
END unlock_package;
PROCEDURE unlock_user(username IN VARCHAR2) IS
us_name VARCHAR2(200) := username;
v_sql VARCHAR2(2000);
BEGIN
v_sql := 'alter user ' || us_name || ' account unlock';
BEGIN
EXECUTE IMMEDIATE v_sql;
dbms_output.put_line(us_name || '''s account is unlock');
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
END;
END unlock_user;
PROCEDURE stop_job(job_id IN NUMBER) IS
CURSOR c1 IS
SELECT DISTINCT '''' || a.sid || ',' || a.serial# || ',@' || a.inst_id || '''' AS si_id
FROM gv$session a
,(SELECT v.sid
,v.id2 job
,v.inst_id inst_id
FROM sys.job$ j
,gv$lock v
WHERE v.type = 'JQ'
AND j.job(+) = v.id2) b
,gv$instance c
WHERE a.inst_id = b.inst_id
AND a.sid = b.sid
AND a.inst_id = c.inst_id
AND c.inst_id = b.inst_id
AND b.job = job_id;
c1_rec c1%ROWTYPE;
v_sql VARCHAR2(2000);
BEGIN
FOR c1_rec IN c1 LOOP
v_sql := 'alter system kill session ' || c1_rec.si_id || ' immediate';
dbms_output.put_line(v_sql);
BEGIN
EXECUTE IMMEDIATE v_sql;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
NULL;
END;
END LOOP;
END stop_job;
PROCEDURE kill_session(se_sid IN NUMBER, se_serail# IN NUMBER) IS
p_sid NUMBER := se_sid;
p_serail NUMBER := se_serail#;
is_back_process NUMBER := 0;
CURSOR c1 IS
SELECT DISTINCT '''' || a.sid || ',' || a.serial# || ',@' || a.inst_id || '''' AS si_id
FROM gv$session a
WHERE a.sid = p_sid
AND a.serial# = p_serail;
c1_rec c1%ROWTYPE;
v_sql VARCHAR2(2000);
BEGIN
IF se_sid IS NULL OR se_serail# IS NULL THEN
dbms_output.put_line('sid is null or serail# is null');
RETURN;
END IF;
BEGIN
SELECT 1
INTO is_back_process
FROM gv$session
WHERE sid = se_sid
AND serial# = se_serail#
AND TYPE = 'BACKGROUND';
EXCEPTION
WHEN OTHERS THEN
is_back_process := 0;
END;
IF is_back_process = 1 THEN
RETURN;
END IF;
FOR c1_rec IN c1 LOOP
v_sql := 'alter system kill session ' || c1_rec.si_id || ' immediate';
dbms_output.put_line(v_sql);
BEGIN
EXECUTE IMMEDIATE v_sql;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
NULL;
END;
END LOOP;
END kill_session;
PROCEDURE grant_pris(username IN VARCHAR2) IS
us_name VARCHAR2(200) := username;
v_sql VARCHAR2(2000);
v_sql2 VARCHAR2(2000);
v_sql3 VARCHAR2(2000);
v_sql4 VARCHAR2(2000);
v_sql5 VARCHAR2(2000);
v_sql6 VARCHAR2(2000);
v_sql7 VARCHAR2(2000);
BEGIN
v_sql := 'grant create synonym,create table,create type,create sequence,create view ,create materialized view,create job,create database link,connect,resource,create procedure ,debug any procedure, debug connect session to ' ||
us_name;
v_sql2 := 'grant select on gv_$locked_object to ' || us_name;
v_sql3 := 'grant select on dba_objects to ' || us_name;
v_sql4 := 'grant select on gv_$session to ' || us_name;
v_sql5 := 'grant select on gv_$process to ' || us_name;
v_sql6 := 'grant select on gv_$sql to ' || us_name;
v_sql7 := 'grant select on gv_$access to ' || us_name;
BEGIN
EXECUTE IMMEDIATE v_sql;
EXECUTE IMMEDIATE v_sql2;
EXECUTE IMMEDIATE v_sql3;
EXECUTE IMMEDIATE v_sql4;
EXECUTE IMMEDIATE v_sql5;
EXECUTE IMMEDIATE v_sql6;
EXECUTE IMMEDIATE v_sql7;
dbms_output.put_line('grant success!');
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line(SQLERRM);
END;
END grant_pris;
END tzq_server_pkg;
/
二、授權(quán)給需要使用的用戶log
sys用戶以sysdba身份登錄Oracle數(shù)據(jù)庫(kù)，給需要使用該包（sys.tzq_server_pkg）的用戶授予 execute 的權(quán)限，執(zhí)行下面命令授權(quán)：
grant execute on sys.tzq_server_pkg to log;
三、解鎖表：執(zhí)行存過(guò)unlock_table(schema_name, table_name)
以上面被授權(quán)的log用戶，打開(kāi)命令行窗口，執(zhí)行下列SQL：
set serveroutput on
execute sys.tzq_server_pkg.unlock_table('LOG','tzq_log_t');
四、解鎖包：執(zhí)行存過(guò)unlock_package(schema_name, pkg_name)
以上面被授權(quán)的log用戶，打開(kāi)命令行窗口，執(zhí)行下列SQL：
set serveroutput on
execute sys.tzq_server_pkg.unlock_package('LOG','tzq_log_pkg');
五、解鎖用戶：執(zhí)行存過(guò)unlock_user(username)
以上面被授權(quán)的log用戶，打開(kāi)命令行窗口，執(zhí)行下列SQL：
set serveroutput on
execute sys.tzq_server_pkg.unlock_user('LOG');
六、停止job任務(wù)：執(zhí)行存過(guò)stop_job(job_id)
以上面被授權(quán)的log用戶，打開(kāi)命令行窗口，執(zhí)行下列SQL：
set serveroutput on execute sys.tzq_server_pkg.stop_job(6);
七、殺session會(huì)話：執(zhí)行存過(guò)kill_session(se_sid, se_serail#)
7.1、查詢需要kill的session的SID及serial#
執(zhí)行下列SQL：
SELECT * FROM gv$session;
找到你需要kill的那個(gè)session會(huì)話，拿到SID及serial#：159, 3729
7.2、執(zhí)行存過(guò)kill_session(se_sid, se_serail#)
執(zhí)行存過(guò)kill_session()，kill掉上面的那個(gè)session會(huì)話。在命令行執(zhí)行下面的SQL：
set serveroutput on execute sys.tzq_server_pkg.kill_session(159, 3729);
八、給新建的用戶授權(quán)：執(zhí)行存過(guò) grant_pris(username)
以上面被授權(quán)的log用戶，打開(kāi)命令行窗口，執(zhí)行下列SQL：
set serveroutput on
execute sys.tzq_server_pkg.grant_pris('log');
到此這篇關(guān)于Oracle解鎖表、包、用戶、殺會(huì)話、停job的方法實(shí)現(xiàn)的文章就介紹到這了,更多相關(guān)Oracle解鎖表內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！
相關(guān)文章
![[Oracle] 徹底搞懂Oracle字符集](http://img.jbzj.com/images/xgimg/bcimg0.png)
以下是對(duì)Oracle中的字符集進(jìn)行了詳細(xì)的分析介紹，需要的朋友可以參考下2013-07-07
ORACLE實(shí)現(xiàn)自定義序列號(hào)生成的方法
這篇文章主要為大家詳細(xì)介紹了ORACLE實(shí)現(xiàn)自定義序列號(hào)生成的方法,具有一定的參考價(jià)值，感興趣的小伙伴們可以參考一下2016-10-10
在Linux下安裝Oracle...2007-03-03
VMware中l(wèi)inux環(huán)境下oracle安裝圖文教程（一）
剛剛接觸ORACLE的人來(lái)說(shuō),從那里學(xué),如何學(xué),有那些工具可以使用,應(yīng)該執(zhí)行什么操作,一定回感到無(wú)助。所以在學(xué)習(xí)使用ORACLE之前，首先來(lái)安裝一下ORACLE 10g，在來(lái)掌握其基本工具。俗話說(shuō)的好：工欲善其事，必先利其器。作為一個(gè)新手，我們還是先在VMware虛擬機(jī)里安裝吧。2014-08-08
本節(jié)主要介紹了oracle scott 解鎖的具體步驟,需要的朋友可以參考下2014-07-07
oracle連接數(shù)據(jù)庫(kù)報(bào)錯(cuò)ORA-12170:TNS連接超時(shí)解決辦法
這篇文章主要給大家介紹了關(guān)于oracle連接數(shù)據(jù)庫(kù)報(bào)錯(cuò)ORA-12170:TNS連接超時(shí)的解決辦法,ORA-12170是Oracle數(shù)據(jù)庫(kù)連接錯(cuò)誤,表示數(shù)據(jù)庫(kù)連接超時(shí),文中通過(guò)圖文介紹的非常詳細(xì),需要的朋友可以參考下2024-01-01
Oracle中的Connect/session和process的區(qū)別及關(guān)系介紹
本文將詳細(xì)探討下Oracle中的Connect/session和process的區(qū)別及關(guān)系,感興趣的你可以參考下，希望可以幫助到你2013-03-03
Oracle中scott表結(jié)構(gòu)與簡(jiǎn)單查詢實(shí)例分析
這篇文章主要介紹了Oracle中scott表結(jié)構(gòu)與簡(jiǎn)單查詢,實(shí)例分析Oracle查詢的相關(guān)技巧,需要的朋友可以參考下2015-04-04
Oracle進(jìn)程占用CPU100%的問(wèn)題分析及解決方法
這篇文章主要介紹了Oracle進(jìn)程占用CPU100%的問(wèn)題分析及解決方法,文中通過(guò)代碼示例和圖文結(jié)合的方式給大家講解的非常詳細(xì),對(duì)大家的學(xué)習(xí)或工作有一定的幫助,需要的朋友可以參考下2024-08-08
這篇文章主要介紹了Oracle中的高效SQL編寫PARALLEL解析,在Oracle中，PARALLEL(并行)方式最大化調(diào)用計(jì)算機(jī)資源來(lái)成倍提高數(shù)據(jù)分析效率,這個(gè)在Oracle 9i之后的版本可以使用,需要的朋友可以參考下2023-07-07