记录集锁定--多客户环境下VB数据库编程之(4)
2018-06-17 17:14:16来源:未知 阅读 ()
(1).打开记录集。以共享模式打开数据库之后,可以通过在OpenRecordset方法的oPtions参数中指定不同的选项来实现记录集锁定。为了用锁定打开一个记录集,可按如下步骤操作:1.)以共享模式打开Recordset对象的数据库。2.)用OpenRecordset方法打开记录集,并把Options参数设置为所需要的锁定方式。3.)当Recordset对象的使用结束时,关闭该对象以释放所有记录集级的锁定。编写一个Function过程,以独占方式打开一个表。
FunctionOpenTableExclusive(dbsAsDatabase,rstAsRecordset,strTableAsString)AsInteger
Setrst=dbs.OpenRecordset(strTable,dbOpenTable,dbDenyRead dbDenyWrite)
SelectCaseErr
CaSe0:
OpenTableExclusive=0
CaSeElse:
OpenTableExclusive=-1
EndSelect
Err=0
EndFunction
该过程通过dbDenyWrite和dbDenyRead选项常数的组合,以独占模式打开一个表。如果过程调用成功(返回0),则在Recordset变量被显式或隐式地关闭之前,其它用户将不能访问该表。如果其它用户已经以独占模式打开该表,或者发生了一个非预期的错误,则该过程返回-1。为了调用上述过程,可以在窗体上画一个命令按钮,然后编写如下的事件过程:
PrivateSubCommand1_Click()
DimaAsInteger
DimMvDbsAsDatabase
DimMvTabsAsRecordset
SetMyDbs=OpenDatabase("C:\dbdir\dbl.mdb,true)
a=OpenTableExclusive(MyDbs,MyTabs,"Tabel1")
SelectCasea
Case0:
MsgBox"调用成功"
CaseElse:
MsgBox"调用出错"
EndSelect
EndSub
注意,如果打开一个Recordset对象时没有指定option:参数值,则MicrosoftJet将使用页面锁定。在这种情况下,将以共享模式打开记录集,并且不禁止其他用户访问记录集中的数据,但它确实锁定了当前页中正在编辑的数据。
(2).在打开记录集时检查错误。和以独占模式打开数据库一样,当对Recordset对象设置锁定时,如果锁定失败,则会产生错误。如果某个用户以禁止其它用户获得锁定的方式打开了一个Recordset对象,则当试图锁定该Recordset对象时将会发生最常见的错误,即3262,其出错信息为:“不能锁定表XXX;当前正被用户XXX在机器XXX上使用。”。当试图对不能锁定的对象使用OpenRecordset方法时,也会产生这个错误。->
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇:用VB建立Access数据库结构
下一篇:VB对注册表操作程序开机时运行
- 数据访问控制--多客户环境下VB数据库编程之(2) 2018-06-17
- 用VB设计更换屏幕保护的程序 2018-06-17
- 多用户应用程序中应注意的其它问题(2)--多客户环境下VB数据 2018-06-17
- 显示数据库记录 2018-06-17
- 为VB5辩解:VB处理数据库时求数据表记录总数的最佳方法 2018-06-17
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash