批量修改Oracle数据库所有表某一字段的值

 1) 使用PLSQL,或SI Object Browser 执行如下sql语句

--oracle 查询当前用户所有包含某一字段的表,并修改此字段的值
create or replace procedure fdlis.pro_edit_column
is
    col_new_value varchar2(40):='00020002';--字段新值
    col_old_value varchar2(40):='00000072';--字段旧值
    cursor cur_list is SELECT utc.TABLE_NAME, utc.COLUMN_NAME FROM user_tab_cols utc WHERE utc.COLUMN_NAME = 'HOSPITAL_CODE'  AND utc.table_name in (select table_name from user_tables); --字段名称(大写)  查询fdlis用户下包含HOSPITAL_CODE字段的所有表
    v_table_name user_tab_cols.table_name%type;
    v_column_name user_tab_cols.column_name%type;
    sql_str varchar2(1000); 
begin
    DBMS_OUTPUT.ENABLE(buffer_size=>null) ;
    open cur_list;
    loop
    fetch cur_list into v_table_name,v_column_name;
    exit when cur_list%notfound;
    sql_str:= 'update ' || v_table_name || ' set ' || v_column_name || '=''' || col_new_value || ''' where ' || v_column_name || '=''' || col_old_value ||'''';
    dbms_output.put_line(sql_str); --输出语句
    execute immediate sql_str;	--执行语句并提交事物
    commit;
    /*if (v_table_name = 'LIS_DATA_RESULT_18') then 
        dbms_output.put_line('表名与LIS_DATA_RESULT_18相等'); 
    else
        dbms_output.put_line('不等');
    end if;*/
    end loop;
end pro_edit_column;
-- col_name 的值 'HOSPITAL_CODE'(col_name in varchar, col_value in varchar)
--当我们写完存储过程之后，我们可以在 command window下执行，oracle默认是不显示输出的，
--所以我们要 set serveroutput on 命令来显示输出结果，然后exec pro_edit_column()即可输出结果。

2) 如果使用plsql工具,进入sql命令窗口,  执行 set serversoutput on 命令后, 再执行 exec pro_edit_column();

3) 如果使用的SI工具,  进入dos命令  sqlplus 登陆用户信息, 执行 2) 操作;