关于独占锁,或者说排他锁EXCLUSIVE-LOCK的用法?

我没有progress的经验，但参考其它DB的经验，算是抛砖引玉。

看Progress的文档描述，EXCLUSIVE-LOCK是record或row级别的，而不是table级别的。因此理论上你锁定某条记录，其他用户可以更新该表的其它记录。 【但】具体的情况要看你的buffer选择，如果buffer的scope范围是和record一致的，那么没问题；如果你的buffer scope在record之外，即可以随record一起增长，那么for each结束前，buffer所及的所以records都会被锁定，如果你整个表 查询，那么由于buffer的问题，实际上record lock变成table lock了。下面是progress知识库里的演示，供参考：

def var crec as recid no-undo.

def buffer xcustomer for customer.

for each customer no-lock:

        crec = recid(customer).

        message "recid=" crec.

        message "city=" customer.city.

        pause. /* NO-LOCK */

        do for xcustomer transaction:

                find xcustomer where 

                        recid(xcustomer) eq crec exclusive-lock.

                xcustomer.city = string(recid(xcustomer)).

                message "xcity=" xcustomer.city.

                pause. /* EXCLUSIVE-LOCK */

                release xcustomer.

                message "xcustomer released". 

                pause. /* EXCLUSIVE-LOCK */

        end.

        message "outside the DO TRANSACTION". 

        pause. /* either NO-LOCK (or SHARE-LOCK with "-brl") */

        release customer.

        message "customer released". 

        pause. /* NO-LOCK */

end.

数据库是一个多用户使用的共享资源。当多个用户并发地存取数据时，在数据库中就会产生多个事务同时存取同一数据的情况。若对并发 *** 作不加控制就可能会读取和存储不正确的数据，破坏数据库的一致性。

加锁是实现数据库并发控制的一个非常重要的技术。当事务在对某个数据对象进行 *** 作前，先向系统发出请求，对其加锁。加锁后事务就对该数据对象有了一定的控制，在该事务释放锁之前，其他的事务不能对此数据对象进行更新 *** 作。

在数据库中有两种基本的锁类型：排它锁（Exclusive Locks，即X锁）和共享锁（Share Locks，即S锁）。当数据对象被加上排它锁时，其他的事务不能对它读取和修改。加了共享锁的数据对象可以被其他事务读取，但不能修改。数据库利用这两种基本的锁类型来对数据库的事务进行并发控制。

扩展资料：

排它锁和共享锁的不同之处：

1、共享锁（S锁）：如果事务T对数据A加上共享锁后，则其他事务只能对A再加共享锁，不能加排他锁。获准共享锁的事务只能读数据，不能修改数据。

排他锁（X锁）：如果事务T对数据A加上排他锁后，则其他事务不能再对A加任任何类型的封锁。获准排他锁的事务既能读数据，又能修改数据。

2、共享锁下其它用户可以并发读取，查询数据。但不能修改，增加，删除数据，资源共享。

3、共享锁又称为读锁（Share lock,简记为S锁），若事务T对数据对象A加上S锁，则其它事务只能再对A加S锁，而不能加X锁，直到T释放A上的S锁。

参考资料：百度百科-排它锁

参考资料：百度百科-共享锁

---