记录我的学习。。。。。。
oracle存储过程自动建表
上一篇 /
下一篇 2014-04-23 15:26:07
/ 个人分类:oracle
create or replace procedure wxy_group_test
/** HEAD
* 自动创建表
* @create-date 2014-4-19
* @TODO <工作计划>
* @version <版本号>
* @mender <修改人>
* @modify_date <YYYY-M-D>
* @modify_desc <修改原因>
* @copyright
*/
authid current_user --授权
is
vv_table_name varchar2(32); --表名
vv_sql varchar2(200);--
vv_com varchar2(200);
--vv_update varchar2(200);
begin
-- execute immediate 'alter session enable parallel dml';
for cur in
(select t.group_code ,t.group_name,t.tapposition_code
from tb_bossopt_group_info t
where t.group_code like 'clwx%')
loop
vv_table_name:='tb_boss_'||cur.group_code||'_group'; --凭接表名
vv_sql:='create table '||vv_table_name||'
(statis_date varchar2(8), serv_number varchar2(11))'; --字段
vv_com:='comment on table '||vv_table_name||' is '''||cur.group_name||'档位编码'||cur.tapposition_code||'''';
execute immediate vv_sql; --执行建表语句
execute immediate vv_com; --执行注释
-- execute immediate vv_update;
dbms_output.put_line(vv_table_name);
dbms_output.put_line(vv_com);
end loop;
commit;
end wxy_group_test;
收藏
举报
TAG: