ITPub博客

首页 > 数据库 > Oracle > 动态创建视图脚本

动态创建视图脚本

原创 Oracle 作者:zhangsharp20 时间:2015-12-01 16:36:15 0 删除 编辑
create or replace procedure p_di_crtvw
is 
lvc_sql varchar2(500);
cursor cur is 
SELECT DISTINCT upper(viewsql) viewsql FROM 
(SELECT 'create or replace force view di_'||DMLX_DM ||' as select * from J1_DI.DI_GY_1JDM where dmlx_dm = ''' || DMLX_DM || '''' viewsql
  FROM J1_DI.DI_GY_1JDM
 WHERE DMLX_DM not in ('DM_SWJG','DM_GY_HY','DM_GY_ZSPM','DM_DJ_DJZCLX','DM_GY_SWRY','DM_GY_JDXZ','DM_GY_YSKM','DM_DJ_BGXM','DM_FP_FPZL','DM_GY_NSRZT','DM_GY_ZSXM','DM_FP_FP','DM_GY_GJHDQ','DM_GY_GK','DM_GY_JLDW','DM_GY_SWSX','DM_GY_XZQH','DM_GY_YHYYWD','DM_GY_DZBZDSZL') and DMLX_DM not like 'DM_XG%');
begin
for mycur in cur loop
begin
lvc_sql:=mycur.viewsql;
--dbms_output.put_line(lvc_sql);
execute immediate lvc_sql;
    exception
         when others then
           dbms_output.put_line('创建视图失败.'||to_char(sysdate, 'yyyy-mm-dd hh24:mi:ss')||', sqlcode:'||to_char(sqlcode)||sqlerrm);
  end;
  end loop;
end;

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/29802484/viewspace-1850713/,如需转载,请注明出处,否则将追究法律责任。

请登录后发表评论 登录
全部评论

注册时间:2014-08-12

  • 博文量
    382
  • 访问量
    635156