请求支援MAX（）参数传递问题

Question

我写了一个FUN: 
(
   tableName  IN  varchar2,
   field in varchar2
   )
return numberas     SEQ_ID NUMBER(4):=1;
beginIF    tableName = 'articleinfo' THEN
   select MAX(field) into seq_id from articleinfo;elsIF    tableName = 'lawtype' THEN
    select MAX(field) into seq_id from lawtype;
   
elsIF    tableName = 'platinfo' THEN
    select MAX(field) into seq_id from platinfo;elsIF    tableName = 'typeinfo' THEN
    select MAX(field) into seq_id from typeinfo;   
else 
   RAISE no_data_found;
end if;
 return  seq_id+1;
 exception
  WHEN no_data_found then return 1;
  WHEN others then return 1;
end Tab_seq;
然后使用insert   into   platinfo   values(TAB_SEQ('platinfo','id'),'a')调用，
为什么这里的'id'无法传递给FUN中的field呢？

Answer 1

哈哈，你这种做法，需要用到动态SQL。EXECUTE IMMEDIATE用这个。看来你上次的问题，还没有解决呀。赫赫。用MAX的话，要好好考虑并行的问题。例子：
sql  VARCHAR2(1000);
sql := 'select   MAX(' || field || ') from   typeinfo' ;execute immediate sql into seq_id;

Answer 2

楼上正解。给你一些资料：动态SQL和PL/SQL的EXECUTE IMMEDIATE选项    EXECUTE IMMEDIATE代替了以前Oracle8i中DBMS_SQL package包.它解析并马上执行动态的SQL语句或非运行时创建的PL/SQL块.动态创建和执行SQL语句性能超前，EXECUTE IMMEDIATE的目标在于减小企业费用并获得较高的性能，较之以前它相当容易编码.尽管DBMS_SQL仍然可用，但是推荐使用EXECUTE IMMEDIATE,因为它获的收益在包之上。
 
使用技巧
 
1. EXECUTE IMMEDIATE将不会提交一个DML事务执行，应该显式提交
 如果通过EXECUTE IMMEDIATE处理DML命令，那么在完成以前需要显式提交或者作为EXECUTE IMMEDIATE自己的一部分. 如果通过EXECUTE IMMEDIATE处理DDL命令,它提交所有以前改变的数据
 
2. 不支持返回多行的查询,这种交互将用临时表来存储记录(参照例子如下)或者用REF cursors.
 
3. 当执行SQL语句时，不要用分号，当执行PL/SQL块时，在其尾部用分号.
 
4. 在Oracle手册中，未详细覆盖这些功能。下面的例子展示了所有用到Execute immediate的可能方面.希望能给你带来方便.5. 对于Forms开发者,当在PL/SQL 8.0.6.3.版本中，Forms 6i不能使用此功能.
 
EXECUTE IMMEDIATE用法例子
 
1. 在PL/SQL运行DDL语句 begin
  execute immediate 'set role all';
 end;
 
2. 给动态语句传值(USING 子句) declare
  l_depnam varchar2(20) := 'testing';
  l_loc    varchar2(10) := 'Dubai';
  begin
  execute immediate 'insert into dept values  (:1, :2, :3)'
    using 50, l_depnam, l_loc;
  commit;
 end;
 
3. 从动态语句检索值(INTO子句) declare
  l_cnt    varchar2(20);
 begin
  execute immediate 'select count(1) from emp'
    into l_cnt;
  dbms_output.put_line(l_cnt);
 end;
 
4. 动态调用例程.例程中用到的绑定变量参数必须指定参数类型.黓认为IN类型,其它类型必须显式指定
 
 declare
  l_routin   varchar2(100) := 'gen2161.get_rowcnt';
  l_tblnam   varchar2(20) := 'emp';
  l_cnt      number;
  l_status   varchar2(200);
 begin
  execute immediate 'begin ' || l_routin || '(:2, :3, :4); end;'
    using in l_tblnam, out l_cnt, in out l_status;  if l_status != 'OK' then
     dbms_output.put_line('error');
  end if;
 end;
 
5. 将返回值传递到PL/SQL记录类型;同样也可用%rowtype变量 declare
  type empdtlrec is record (empno  number(4),
                           ename  varchar2(20),
                           deptno  number(2));
  empdtl empdtlrec;
 begin
  execute immediate 'select empno, ename, deptno ' ||
                   'from emp where empno = 7934'
    into empdtl;
 end;
 
6. 传递并检索值.INTO子句用在USING子句前
 
 declare
  l_dept    pls_integer := 20;
  l_nam     varchar2(20);
  l_loc     varchar2(20);
 begin
  execute immediate 'select dname, loc from dept where deptno = :1'
    into l_nam, l_loc
    using l_dept ;
 end;7. 多行查询选项.对此选项用insert语句填充临时表，用临时表进行进一步的处理,也可以用REF cursors纠正此缺憾.
 
 declare
  l_sal   pls_integer := 2000;
 begin
  execute immediate 'insert into temp(empno, ename) ' ||
                   '          select empno, ename from emp ' ||
                   '          where  sal > :1'
    using l_sal;
  commit;
 end;   对于处理动态语句,EXECUTE IMMEDIATE比以前可能用到的更容易并且更高效.当意图执行动态语句时，适当地处理异常更加重要.应该关注于捕获所有可能的异常.