不心小把新的包体替换成旧的了，已经编译了恢复方法如下
需要登陆到sysdba权限执行
例如下:
SYS@tdwora > select line, text
2 from dba_source AS OF TIMESTAMP TO_TIMESTAMP('2012-07-20 15:51:00','YYYY-MM-DD HH24:MI:SS')
3 where owner='USERNAME'
4 and name='PACKAGE';
LINE TEXT
---------- ----------------------------------------------------------------------------------------
1 PROCEDURE update_salary (dept_in IN NUMBER)
2 IS
3 PRAGMA AUTONOMOUS_TRANSACTION;
4 CURSOR myemps IS
5 SELECT empno FROM emp
6 WHERE deptno = dept_in
7 FOR UPDATE NOWAIT;
8 BEGIN
9 FOR rec IN myemps
10 LOOP
11 UPDATE emp SET sal = sal * 2.8 + 999
12 WHERE empno = rec.empno;
13 END LOOP;
14 COMMIT;
15 END;
需要登陆到sysdba权限执行
例如下:
SYS@tdwora > select line, text
2 from dba_source AS OF TIMESTAMP TO_TIMESTAMP('2012-07-20 15:51:00','YYYY-MM-DD HH24:MI:SS')
3 where owner='USERNAME'
4 and name='PACKAGE';
LINE TEXT
---------- ----------------------------------------------------------------------------------------
1 PROCEDURE update_salary (dept_in IN NUMBER)
2 IS
3 PRAGMA AUTONOMOUS_TRANSACTION;
4 CURSOR myemps IS
5 SELECT empno FROM emp
6 WHERE deptno = dept_in
7 FOR UPDATE NOWAIT;
8 BEGIN
9 FOR rec IN myemps
10 LOOP
11 UPDATE emp SET sal = sal * 2.8 + 999
12 WHERE empno = rec.empno;
13 END LOOP;
14 COMMIT;
15 END;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/26975903/viewspace-1754221/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
