Question

oracle创建修改类型存储过程,若不成功回滚

现有两张表，查询其中一张表A中标识为0的数据，插入到表B中，如果插入成功，则修改表A中的标识为1，否则回滚，这样的存储过程怎么写？求高手

Answer 1

create or replace procedure my_update(vempno in number,vsal in number)
as
  vint stu.sal%type:=vsal;
  my_exception exception;
  rint stu.sal%type;
begin
  update stu set sal = vint where empno = vempno;
  select sal into rint from stu where empno = vempno;
  if rint<>0
    then raise my_exception;
  end if;
  exception
    when my_exception
    then 
    rollback;
    dbms_output.put_line('表1更新数据失败！');
end;
//上面有字段不同，还有表名，你自己修改一下吧。Oracle数据库的