将用户空间的所有表名及所有字段变为大写
beginfor t in(select table_name tn from user_tables where table_name <> upper(table_name))loopbeginfor c in(select column_name cn from user_tab_columns where table_name=t.tn)loopbeginexecute immediate 'alter table "'||t.tn||'" rename column "'||c.cn||'" to '||c.cn; www.2cto.com
exception
when others then
dbms_output.put_line(t.tn||'.'||c.cn||'已经存在');end;endloop;execute immediate 'alter table "'||t.tn||'" rename to '||t.tn;
exception
when others then
dbms_output.put_line(t.tn||'已存在');end;end