动态SQL

create or replace procedure p_ptable is
begin
declare
 str_sql varchar2(3000);
 l_names  province_py.pingying%type;

 cursor c is select pingying from province_py order by pingying;
 begin

   open c;
   loop
     fetch c  into  l_names ;
     exit when c%notfound;
       str_sql:=' create table MOC_WWW_'||REPLACE(l_names,'NEW_','')||' as select * from new_com_www' ;
       str_sql:=str_sql||' where py='''||l_names || '''';
       execute immediate str_sql;      
       DBMS_OUTPUT.PUT_LINE(str_sql);
   end loop;
   close c;
 end;
 end;

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

转载于:http://blog.itpub.net/8797129/viewspace-589366/