create or replace procedure proc_auto_comment
as
v_number pls_integer;
v_repl_string varchar2(100);
v_sql varchar2(4000);
v_sqlerrm varchar2(1000);
begin
v_number:=2;
for i in 1..v_number loop
   --因为动态sql如果出错代码会一直hang在哪儿,为了快速诊断是什么原因,添加异常
   begin
     execute immediate 'create table T_COMMENT_'||to_char(i)||'
                        (
                          A INTEGER,
                          B INTEGER
                        )';
   exception when others then
     v_sqlerrm:=sqlerrm;
     dbms_output.put_line(v_sqlerrm);
     exit;
   end;
   v_repl_string:='T_COMMENT_'||to_char(i);

   begin
       --暂时发现合并多个comment子句如用execute immediate会报无效字符,先分开编写吧
       v_sql:='comment on column '||v_repl_string||'.A is '||''''||'这是a'||''''||';'||chr(10)||chr(13)|| 'comment on column '||v_repl_string||'.B is '||''''||'这是b'||''''||';';
       execute immediate   v_sql;
    exception when others then
        v_sqlerrm:=sqlerrm;
        dbms_output.put_line(v_sqlerrm);
        exit;
   end;
end loop;
end;

ITPub博客

oracle execute immediate动态sql组合执行comment小记

最新文章