轻源码

  • QingYuanMa.com
  • 全球最大的互联网技术和资源下载平台
搜索
轻源码 门户 电脑主程序开源 查看主题

记录集锁定

发布者: achong | 发布时间: 2018-2-14 10:07| 查看数: 4311| 评论数: 1|帖子模式

 

  用记录集锁定可以锁定Recordset对象基本表,也可以指定只读或(和)只写访问。记录集锁定只能应用于表类型和动态集类型的Recordset对象,页面锁定(见下一节)不能应用于快照类型和仅向前类型的Recordset对象,因为它们本来就是只读对象。尽管如此,Microsoft Jet仍提供了共享表读锁定和共享表写锁定。

  (1).打开记录集。以共享模式打开数据库之后,可以通过在OpenRecordset方法的oPtions参数中指定不同的选项来实现记录集锁定。为了用锁定打开一个记录集,可按如下步骤操作:1.)以共享模式打开Recordset对象的数据库。2.)用OpenRecordset方法打开记录集,并把Options参数设置为所需要的锁定方式。3.)当Recordset对象的使用结束时,关闭该对象以释放所有记录集级的锁定。编写一个Function过程,以独占方式打开一个表。

Function OpenTableExclusive(dbs As Database,rst As Recordset,strTable As String) As Integer

Set rst=dbs.OpenRecordset(strTable,dbOpenTable,dbDenyRead + dbDenyWrite)

Select Case Err

CaSe 0:

OpenTableExclusive=0

CaSe Else:

OpenTableExclusive=-1

End Select

Err=0

End Function

该过程通过dbDenyWrite 和 dbDenyRead选项常数的组合,以独占模式打开一个表。如果过程调用成功(返回0),则在Recordset变量被显式或隐式地关闭之前,其它用户将不能访问该表。如果其它用户已经以独占模式打开该表,或者发生了一个非预期的错误,则该过程返回 -1。为了调用上述过程,可以在窗体上画一个命令按钮,然后编写如下的事件过程:

Private Sub Command1_Click()Dim a As IntegerDim MvDbs As Database

Dim MvTabs As Recordset

Set MyDbs=OpenDatabase("C:\dbdir\dbl.mdb,true)

a=OpenTableExclusive(MyDbs,MyTabs,"Tabel1")

Select Case a

Case 0:

MsgBox "调用成功"

Case Else:

MsgBox "调用出错"

End Select

End Sub

注意,如果打开一个Recordset对象时没有指定option:参数值,则Microsoft Jet将使用页面锁定。在这种情况下,将以共享模式打开记录集,并且不禁止其他用户访问记录集中的数据,但它确实锁定了当前页中正在编辑的数据。

(2).在打开记录集时检查错误。和以独占模式打开数据库一样,当对Recordset对象设置锁定时,如果锁定失败,则会产生错误。如果某个用户以禁止其它用户获得锁定的方式打开了一个Recordset对象,则当试图锁定该Recordset对象时将会发生最常见的错误,即3262,其出错信息为:“不能锁定表XXX;当前正被用户XXX在机器XXX上使用。”。当试图对不能锁定的对象使用OpenRecordset方法时,也会产生这个错误。

最新评论

TheseaofSPACEFo 发表于 2022-5-22 19:46
网站源码大全最新

轻源码让程序更轻更快

QingYuanMa.com

工作时间 周一至周六 8:00-17:30

侵权处理

客服QQ点击咨询

关注抖音号

定期抽VIP

Copyright © 2016-2021 https://www.qingyuanma.com/ 滇ICP备13200218号

快速回复 返回顶部 返回列表