oracle动态update

create or replace procedure pro_qxq_test as
--QXQ功能
--CREATE：DAIBIN

v_bm varchar2(100);
v_qhzdm varchar2(100);
v_jlxzdm varchar2(100);
v_mlpzdm varchar2(100);
v_xzzdm varchar2(100);
v_dzzdm varchar2(100);

cursor c_zdm is
select bm, qhzdm, jlxzdm, mlpzdm, xzzdm, dzzdm from dzxszdlsyb;

begin
open c_zdm;
loop
fetch c_zdm
into v_bm, v_qhzdm, v_jlxzdm, v_mlpzdm, v_xzzdm, v_dzzdm;
exit when c_zdm%notfound;

execute immediate 'update ' || v_bm || ' t set ' || v_dzzdm ||
' = (select ' ||
'(select a2 from DT_C_XZQH where a1 = ' || v_qhzdm ||
')||(select dm from JLXXXB where mc = ' || v_jlxzdm ||
')|| ' || v_mlpzdm || '|| ' || v_xzzdm || ' from ' || v_bm ||
' b where t.rowid=b.rowid ) ';

commit;
dbms_output.put_line('成功更新表' || v_bm || '的字段');
end loop;

end;

[@more@]

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

转载于:http://blog.itpub.net/8345941/viewspace-991280/