PL/SQL“ ORA-14551: 无法在查询中执行 DML 操作”解决

环境

Oracle 11.2.0 + SQL Plus

问题

根据以下要求编写函数：将scott.emp表中工资低于平均工资的职工工资加上200，并返回修改了工资的总人数。PL/SQL中有更新的操作，执行此函数报如下错误：ORA-16551: 无法在查询中执行 DML 操作。



解决

在声明函数时加上： PRAGMA AUTONOMOUS_TRANSACTION; 并在执行完DML后COMMIT。

操作日志

--登录到Oracle
C:\Users\Wentasy>sqlplus wgb

SQL*Plus: Release 11.2.0.1.0 Production on 星期六 6月 29 15:32:21 2013

Copyright (c) 1982, 2010, Oracle. All rights reserved.

输入口令:

连接到:
Oracle Database 11g Enterprise Edition Release 11.2.0.1.0 - Production
With the Partitioning, OLAP, Data Mining and Real Application Testing options

--编写函数
SQL> CREATE OR REPLACE FUNCTION raise_sal
2 RETURN NUMBER
3 IS
4 v_num NUMBER:=0;
5 v_avg emp.sal%TYPE;
6 BEGIN
7 SELECT AVG(sal) INTO v_avg FROM emp;
8 UPDATE emp SET sal=sal+200 WHERE sal < v_avg;
9 v_num:=SQL%ROWCOUNT;
10 RETURN v_num;
11 END raise_sal;
12 /

函数已创建。

--调用函数，出现错误
SQL> SELECT raise_sal() FROM DUAL;
SELECT raise_sal() FROM DUAL
*
第 1 行出现错误:
ORA-14551: 无法在查询中执行 DML 操作
ORA-06512: 在 "WGB.RAISE_SAL", line 8

--加上PRAGMA AUTONOMOUS_TRANSACTION和COMMIT。
SQL> CREATE OR REPLACE FUNCTION raise_sal
2 RETURN NUMBER
3 IS
4 PRAGMA AUTONOMOUS_TRANSACTION;
5 v_num NUMBER:=0;
6 v_avg emp.sal%TYPE;
7 BEGIN
8 SELECT AVG(sal) INTO v_avg FROM emp;
9 UPDATE emp SET sal=sal+200 WHERE sal < v_avg;
10 v_num:=SQL%ROWCOUNT;
11 COMMIT;
12 RETURN v_num;
13 END raise_sal;
14 /

函数已创建。

--验证第一步：查询薪水平均值
SQL> SELECT AVG(sal) FROM emp;

AVG(SAL)
----------
2543.75

--验证第二步：查询薪水比平均薪水低的员工的总数
SQL> SELECT count(sal) FROM emp WHERE sal < (SELECT AVG(sal) FROM emp);

COUNT(SAL)
----------
8

--验证第三步：查询数据
SQL> SELECT ename, sal FROM emp;

ENAME SAL
---------- ----------
SMITH 1600
ALLEN 2400
WARD 2050
JONES 2975
MARTIN 2050
BLAKE 2850
CLARK 2450
KING 5000
TURNER 2300
JAMES 1750
FORD 3000

ENAME SAL
---------- ----------
MILLER 2100

已选择12行。

--验证第四步：调用函数，如果为8，则实现功能
SQL> SELECT raise_sal() FROM dual;

RAISE_SAL()
-----------
8

--验证第五步：再次查询表数据
SQL> SELECT ename, sal FROM emp;

ENAME SAL
---------- ----------
SMITH 1800
ALLEN 2600
WARD 2250
JONES 2975
MARTIN 2250
BLAKE 2850
CLARK 2650
KING 5000
TURNER 2500
JAMES 1950
FORD 3000

ENAME SAL
---------- ----------
MILLER 2300

已选择12行。