TIPTOP ERP SQL 更新多个账套的资料,一个数据块更新
DECLARE
var_azp03 varchar2(20);
v_error exception;
v_sql varchar(200);
cursor cur_azp03 is
select azp03 from azp_file where azp01 IN (‘T41’,‘SZ81’);
begin
for azp03_record in cur_azp03 loop
var_azp03 := azp03_record.azp03;
–动态SQL只能以变量拼接的方式来处理
v_sql := ‘update ‘|| var_azp03 ||’.ima_file set ima021 =ima021||’‘作废’’ where ima01 = ‘‘1.01.00000000049’’’;
execute immediate v_sql;
end loop;
commit ;
dbms_output.put_line(’ 更新完成 ‘);
exception
when v_error then
rollback;
dbms_output.put_line(’ 更新失败 ');
end;