存储过程（三）批量添加外键

create or replace procedure add_fk_for_user_role_attr is
   vSql varchar2(500);
   vSql2 varchar2(500);
     vSql3 varchar2(500);
   vTable varchar2(50);
begin
    for m in 0..99 loop
     
     vTable := 'USER_ROLE_ATTRIBUTE_'||m;

    
    
    
           vSql2 := 'alter table ' || vTable || ' add constraint USER_ROLE_ATTRIBUTE_fk'||m||' foreign key (ATTRIBUTE_ID) references ATTRIBUTE (ID)';
           vSql3 := 'alter table ' || vTable || ' add constraint USER_ROLE_ATTRIBUTE_fkT'||m||' foreign key (ROLE_ID) references ROLE (ID)';
   
      /*dbms_output.put_line(vSql);*/
       
            execute immediate vSql2;
             execute immediate vSql3;
          commit;
  
 end loop;
end add_fk_for_user_role_attr;
/