多客户环境下VB数据库编程之（4）_VB.NET程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

多客户环境下VB数据库编程之（4）

作者：闵涛文章来源：闵涛的学习笔记点击数：850 更新时间：2009/4/23 14:58:46

记录集锁定

　　用记录集锁定可以锁定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 Integer

　　　Dim 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方法时，也会产生这个错误。

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程：多客户环境下VB数据库编程之（3）

下一篇教程：多客户环境下VB数据库编程之（5）

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……