扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:石骁騑 来源:yesky 2007年10月23日
关键字: ORACLE
在本页阅读全文(共3页)
v_CursorID := DBMS_SQL.OPEN_CURSOR; LOOP FETCH C_CON into R_CON; notfound:=C_CON%NOTFOUND; EXIT WHEN notfound; begin IF (UPPER(AS_ALTER)='DISABLE' AND R_CON.STATUS='ENABLED' OR UPPER(AS_ALTER)='ENABLE' AND R_CON.STATUS='DISABLED') THEN v_StrCon := 'ALTER TABLE '||R_CON.owner||'.'||R_CON.table_name||' '|| UPPER(as_alter) || ' CONSTRAINT '||R_CON.constraint_name; DBMS_SQL.PARSE( v_CursorID, v_StrCon, DBMS_SQL.V7); v_FkNum :=v_FkNum+1; END IF; EXCEPTION WHEN OTHERS THEN v_sqlcode := SQLCODE; v_sqlerrm := SUBSTR(SQLERRM,1,600); DBMS_OUTPUT.PUT_LINE('ERROR: '||' '||V_SQLERRM); -- 找出错误原因 IF (v_sqlcode = -2298) THEN p_con_err(R_CON.CONSTRAINT_NAME); END IF; END; END LOOP; CLOSE C_CON; DBMS_OUTPUT.PUT_LINE('====== Foreign Keys were '||as_alter||', total '||to_char(v_FkNum)||' ====='); -- 当前用户下触发器的处理 ENABLE或者 DISABLE FOR T_TRIGGER IN C_TRIGGER LOOP BEGIN IF (UPPER(AS_ALTER)='DISABLE' AND T_TRIGGER.STATUS='ENABLED' OR UPPER(AS_ALTER)='ENABLE' AND T_TRIGGER.STATUS='DISABLED') THEN v_StrTri := 'ALTER TRIGGER '||T_TRIGGER.TRIGGER_name ||' '||UPPER(as_alter); DBMS_SQL.PARSE( v_CursorID, v_StrTri, DBMS_SQL.V7); v_TriNum :=v_TriNum+1; END IF; EXCEPTION WHEN OTHERS THEN v_sqlcode := SQLCODE; v_sqlerrm := SUBSTR(SQLERRM,1,600); DBMS_OUTPUT.PUT_LINE('ERROR: '||V_SQLCODE||' '||V_SQLERRM); END; END LOOP; DBMS_OUTPUT.PUT_LINE('====== Triggers were '||as_alter||', total '||to_char(v_TriNum)||' ====='); DBMS_SQL.CLOSE_CURSOR(v_CursorID); ELSE -- 输入参数不正确 DBMS_OUTPUT.PUT_LINE('ERROR:输入参数不正确,参数为ENABLE或者DISABLE!'); END IF; DBMS_OUTPUT.PUT_LINE('END TIME: '||to_char(sysdate)); END; / |
SQL> SET SERVEROUTPUT ON; SQL> EXEC P_CON_ERR('FK_SB_HJJL_RELATION__SB_PZXH'); 外键错误情况 ============ NSRNM,PZLXDM,PZXH ----------------- 190321058, 900, 13546 777777775, 108, 17526 777777775, 108, 17528 777777775, 108, 17531 777777775, 108, 17546 |
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。
现场直击|2021世界人工智能大会
直击5G创新地带,就在2021MWC上海
5G已至 转型当时——服务提供商如何把握转型的绝佳时机
寻找自己的Flag
华为开发者大会2020(Cloud)- 科技行者