--创建表并构建唯一索引
SQL> create table t_unique(a int);
Table created
SQL> create unique index idx_t_unique on t_unique(a);
Index created
SQL> insert into t_unique values(1);
1 row inserted
SQL> commit;
Commit complete
--如果再相同值则报错
SQL> insert into t_unique values(1);
insert into t_unique values(1)
ORA-00001: unique constraint (TBL_BCK.IDX_T_UNIQUE) violated
--让重复插入可以有5次机会,最终可以插入数据
create or replace procedure proc_same_continue_insert
as
v_a pls_integer:=1;
begin
for i in 1..5 loop
dbms_output.put(i||' insert ');--标记为第几次插入
begin
savepoint transaction_savepoint1;--真正插入前标记一个保存点,便于回滚
insert into t_unique values(v_a);
commit;
dbms_output.put_line(i||' insert succeed');--仅起到一个输出日志的功能
exit;--插入完记录后直接退出存储过程的运行
exception
when dup_val_on_index then --如果重复插入
dbms_output.put_line('insert same key,please retry');--先提示重复插入
v_a:=v_a+1;--累加重复插入的值为一个新值
rollback to transaction_savepoint1;--注:此行语句与上行代码v_a:=v_a+1顺序先后皆不影响代码实现
end;
end loop;
end;
/
Procedure created
SQL> select * from t_unique;
A
---------------------------------------
1
SQL> exec proc_same_continue_insert;
1 insert insert same key,please retry
2 insert 2 insert succeed
PL/SQL procedure successfully completed
SQL> select * from t_unique;
A
---------------------------------------
1
2 --插入一个新记录
小结:1,适用于高并发的环境,可能会发生多客户端同时插入记录,会出现插入相同值的情况,可采用此法
2,实现机制:采用exception异常处理模块,累加出错列值为另一新值,再用rollback savepoint继续执行原
insert代码实现
3,成功insert后,commit提交,尔后是exit;直接退出即可存储过程即可
来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/9240380/viewspace-762142/,如需转载,请注明出处,否则将追究法律责任。
转载于:http://blog.itpub.net/9240380/viewspace-762142/