oracle 创建记录锁,oracle教程之创建自己的锁定

对于锁定来说，尽管其概念比较复杂，但是Oracle将这些复杂性都屏蔽在Oracle的内核中。Oracle会自动完成锁的管理，通常并不需要我们对锁定进行很多 的管理工作。不仅如此，Oracle还是提供了相关的工具包：dbms_lock，使得我们可以创建自己的锁定。

通过dbms_lock，我们可以控制对某个设备(比如打印机)的串行访问，或者控制对某个文件的串行写入等。比如通过我们自己的应用程序打印数据时，要求 在任意的时间点上，只能有一个用户使用打印机。在具体实现时，我们可以创建一个打印机控制表。发出打印命令之前，先到该表里查询打印标记，如果已 经被设置为已打印，则说明其他用户已经开始打印了，必须等待。如果打印标记还没有被设置，则将打印标记更新为已打印，然后打印。在实现过程中，还 要考虑多个用户进程同时要求打印机时，所使用的排队机制(通常都是先进先出)。通过这种借助表的方式，我们可以实现对打印机的串行访问。不过，这 种方式要执行SQL语句读写数据文件，相对性能较差。我们还可以有另一个选择，就是调用dbms_lock创建自己的打印机锁定。在打印前，获得该打印机锁定 ，打印以后释放锁定。在打印过程中，其他要获得打印机的用户进程进入队列等待，并按照先进先出的方式管理该队列。

我们以上面描述的打印机为例，来说明如何使用dbms_lock包。

1、分配打印机锁定

使用dbms_lock.allocate_unique存储过程分配一个自定义的锁定。如下所示：

SQL> create or replace function get_lockhandle return varchar2

2  is

3    printer_lockname VARCHAR2(128) := 'printer_lock';

4    printer_handle   VARCHAR2(128);

5  begin

6    if printer_handle is null then

7       dbms_lock.allocate_unique

8          (lockname => printer_lockname,

9           lockhandle => printer_handle);

10    end if;

11    return printer_handle;

12  end;

13  /

SQL> grant execute on get_lockhandle to public;

我们在这里创建了一个函数，该函数中创建了一个名为printer_lock的函数。在调用dbms_lock. allocate_unique过程时，会返回该锁定的句柄 (lockhandle)。

2、请求锁定

我们创建一个用于申请锁定的存储过程，如下所示：

SQL> create or replace procedure lock_printer

2    (p_return_code out integer)

3  is

4    v_temp_lockhandle varchar2(128);

5    v_call_status     integer;

6  begin

7    v_temp_lockhandle := get_lockhandle;

8    v_call_status := dbms_lock.request

9      (lockhandle => v_temp_lockhandle,

10       lockmode   => dbms_lock.x_mode,

11       timeout    => 5,

12       release_on_commit => true);

13    p_return_code := v_call_status;

14  end lock_printer;

15  /

SQL> grant execute on lock_printer to public;

在该存储过程中，我们调用dbms_lock.request来申请打印机锁定。在调用时，参数lockhandle为打印机锁定的句柄；timeout表示请求锁定时，如果5秒内不 能获得，则放弃获得，而进入等待；release_on_commit表示发出commit或rollback命令时是否释放锁定。true为是，false为否；lockmode为打印模式，可 选值如下表所示。

调用dbms_lock.request函数以后的返回值包括：

3、释放锁定

我们创建如下的存储过程来释放打印机锁定，其中调用了dbms_lock.release存储过程。

SQL> create or replace procedure release_printer

2  (p_return_code out integer)

3  is

4    v_temp_lockhandle varchar2(128);

5    v_call_status integer;

6  begin

7    v_temp_lockhandle := get_lockhandle;

8    v_call_status := dbms_lock.release

9      (lockhandle =>  v_temp_lockhandle);

10    p_return_code := v_call_status;

11  end release_printer;

12  /

SQL> grant execute on release_printer to public;

调用dbms_lock.release函数以后的返回值包括：

在创建了所有需要的存储过程以后，我们来调用它们。打印前，执行下面的语句：

SQL> select sid from v$mystat where rownum=1;

SID

----------

158

SQL> var v_out number

SQL> exec sys.lock_printer(:v_out);

SQL> print v_out

V_OUT

----------

0

申请锁定以后，传出参数的值为0，说明申请锁定成功。然后我们检查v$lock视图：

SQL> select sid,type,id1,id2,decode(lmode,0,'None',1,'Null',2,'Row share',

2         3,'Row Exclusive',4,'Share',5,'Share Row Exclusive',6,'

Exclusive')lock_mode,

3         decode(request,0,'None',1,'Null',2,'Row share',

4         3,'Row Exclusive',4,'Share',5,'Share Row Exclusive',6,

'Exclusive')request_ mode,block

5  from v$lock

6  where sid=158;

SID   TYPE   ID1           ID2          LOCK_MODE          REQUEST_MODE

BLOCK

----  ----- ----------- ----------  --------------    -------------

-------

158    UL    1073742164   0             Exclusive          None

0

可以看到，获得的锁定类型为UL，表示用户自定义的锁定(User Lock)。只要是我们通过dbms_lock申请的锁定，其type列都为UL；ID1表示锁定的句柄；锁 定模式为排他锁。根据ID1我们可以到dbms_lock_allocation视图(该视图显示了已经分配的用户自定义的锁定信息)中找到该锁定。

SQL> select * from dbms_lock_allocated where lockid=1073742164;

NAME                 LOCKID             EXPIRATION

-------------     ----------------  -------------------

printer_lock       1073742164        2007-12-25 04:53:53

然后我们再启动一个session，并再次申请相同的打印机锁定。

SQL> select sid from v$mystat where rownum=1;

SID

----------

159

SQL> var v_out number

SQL> exec sys.lock_printer(:v_out);

在执行lock_printer存储过程时，会明显感到延迟(其延迟时间长度就是我们前面在调用dbms_lock.request时指定的timeout参数，这里就是5秒钟)。在延 迟过程中，我们查询v$lock视图，会发现下面的信息：

SQL> select sid,type,id1,id2,decode(lmode,0,'None',1,'Null',2,

'Row share',

2         3,'Row Exclusive',4,'Share',5,'Share Row Exclusive',

6,'Exclusive') lock_mode,

3         decode(request,0,'None',1,'Null',2,'Row share',

4         3,'Row Exclusive',4,'Share',5,'Share Row Exclusive',

6,'Exclusive') request_ mode,block

5  from v$lock

6  where sid=158;

SID   TYPE   ID1              ID2        LOCK_MODE          REQUEST_MODE    BLOCK

----  ----- ----------- ----------  --------------    -------------   -------

158    UL     1073742164      0          Exclusive          None               1

159    UL     1073742164      0          None               Exclusive          0

很明显，159号session在以Exclusive模式申请打印机锁定时，由于158号session已经持有该锁定，因此发生等待。等待5秒钟后，该存储过程执行完毕，我 们显示v_out参数值：

SQL> print v_out

V_OUT

----------

1

返回值为1，说明申请锁定时发生超时，因为其他进程已经获得了该锁定。

从以上过程中，我们可以看到，通过使用dbms_lock，我们可以很方便地在自己的应用程序中实现串行化控制。

oracle视频教程请关注: http://home.51cto.com/apps/download/index.php?s=/Index/index/uid/4202939