我有以下代码:
create table test_table (
col_name varchar2(20) not null
);
insert into test_table values ('Value 1');
insert into test_table values ('Value 2');
insert into test_table values ('Value 3');
insert into test_table values ('Value 4');
commit;
/
declare
col_name varchar2(20) := 'Value 1';
begin
for c in (select col_name from test_table where test_table.col_name = col_name) loop
dbms_output.put_line('Row ' || c.col_name);
end loop;
commit;
end;
/
在此代码中,where
子句始终为真。显然,这不是他的本意。是否有可能让编译器警告我这个?
让我们运行您的示例(在Oracle 11gR2中)。
测试表create table test_table (
col_name varchar2(20) not null
);
insert into test_table values ('Value 1');
insert into test_table values ('Value 2');
insert into test_table values ('Value 3');
insert into test_table values ('Value 4');
打开所有编译器警告
SQL> alter session set plsql_warnings = 'ENABLE:ALL';
测试程序
SQL> ed
Wrote file /tmp/afiedt.buf
1 create or replace procedure test_proc is
2 col_name varchar2(20) := 'Value 1';
3 begin
4 for c in (select col_name from test_table where test_table.col_name = col_name) loop
5 dbms_output.put_line('Row ' || c.col_name);
6 end loop;
7 commit;
8* end;
SQL> /
SP2-0804: Procedure created with compilation warnings
Elapsed: 00:00:00.17
SQL> show errors
Errors for PROCEDURE TEST_PROC:
LINE/COL ERROR
-------- -----------------------------------------------------------------
1/1 PLW-05018: unit TEST_PROC omitted optional AUTHID clause;
default value DEFINER used
SQL>
结论很抱歉,但是编译器不会帮助你:(我们只得到不相关的警告。)
显然你知道PL/SQL名称解析是一个很好的文档特性:)
在PL/SQL中,为了防止这种情况发生并明确地声明您的意图,您可以做的最好的事情是完全限定SQL语句中的所有列和PL/SQL变量。