使用DBMS_LOCK控制程序并发

在调用并发的程序时，假设两个人同时提交了某一个并发请求，并且传入了同样的参数，假设在程序中使用了对状态的控制，例如两个UPDATE语句在修改同一条记录时，第一个UPDATE语句修改后长时间未提交，第二个UPDATE语句修改了同一条记录，并提交，这时就两个UPDATE语句就起冲突了。

也可以使用另外一种方法，使用lock，将提交的并发锁住，其他提交的只能排队。

-- lock
l_lockname
VARCHAR2(100);
l_lockhandle
VARCHAR2(200);
l_lock_output
NUMBER;
l_locked
BOOLEAN := FALSE;
--阻止并发导入同一批数据
l_lockname := G_PKG_NAME||'_RESERVE';
--lockname类似一把锁，它定义了一个唯一的名字，当并发请求执行main函数的时候，lockname会自己得到，
--如果在执行中的并发程序与其重名那么并发就不能执行。这里可以灵活应用，
--例如传入的参数为Header_id，而我们允许不同的HeaderId同时执行但是不允许相同的HeaderId同时执行，
--那么可以使l_lockname := G_PKG_NAME||p_header_id，那么就可以锁住相同的HeaderId。
--获取资源锁
dbms_lock.allocate_unique( lockname => l_lockname,
lockhandle => l_lockhandle);
-- release when session out, request time out 1分钟
l_lock_output := dbms_lock.request(l_lockhandle, 6, 60, FALSE);
IF l_lock_output <> 0 THEN
xxfnd_api.set_message( p_app_name => xxfnd_api.g_app_name,
p_msg_name => 'XXFND_CONC_LOCKED_ERR',
p_token1 => 'EVENT',
p_token1_value => 'Reserve Batch',
p_token2 => 'DATA',
p_token2_value => '');
RAISE fnd_api.g_exc_error;
END IF;
l_locked := TRUE;
/**要特别注意的是一定要lockname释放掉，否则这个并发就永远别想执行**/
--需要释放lockname的地方除了程序正常的结束部分还有异常处理部分，都要使用
IF l_locked THEN
--释放资源锁
l_lock_output := dbms_lock.release(l_lockhandle);
END IF;

补充说明：

最后

以上就是整齐宝马为你收集整理的使用DBMS_LOCK控制程序并发的全部内容，希望文章能够帮你解决使用DBMS_LOCK控制程序并发所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。