实现页面锁定的一个具体例子--多客户环境下VB数…

实现页面锁定时使用开放式锁定，可按如下步骤操作：
(1)打开一个表类型或动态集类型的记录集，它就是想要编辑的数据。
(2)把数据指针移动到一个记录上。
(3)把记录集的LockEdits属性设置为False，指定开放式锁定。
(4)用Edit方法编辑该记录(该记录还没有被锁定)。
(5)提交该记录。
(6)用Update方法来提交记录的变更(这将试图锁定记录)。
(7)检查Update方法是否成功。如果没有成功，则再试；

当使用事务时，开放式锁定将转换为保守式锁定。因为在提交事务之前，事务一直拥有写锁定，所以即使把LockEdits属性设置为False，也会转换为保守式锁定。
在保守式锁定中，Update方法可能会失败。这是因为Edit方法没有设置写锁定，并不意味着Update方法没有置写锁定。换句话说，当一个用户用保守式锁定打开记录集时，即使第二个用户使用的是开放式锁定，他对相同数据的更新也会失败。下面通过一个例子说明如何实现保守式锁定。编写一个Function过程，用来实现保守式锁定，并用该过程更新数据库。

FUnctionUpdateUnitslnStoCk(strlAsString，Str2AsStnng)
Dim dbs As Database
Dim rstStr As Recordset
Dim blnError As Boolean
Dim intCount As Integer
Dim intLockCount As Integer
Dim intChoiCe As Integer
Dim intRndCount As Integer
Dim i As Integer
OnErrorGoToErrorHandler '以共享模式打开数据库
Set dbs＝openDatabase(“d:\dbtest\dbtest.mdb”) '打开表进行编辑
Set rstStr＝dbs.OpenRecordset(”tb”,dbOpenDynaset)
With rstStr
．LockEditS＝True '把锁定类型设置为保守方式
．FindFirst”电话＝” & Chr(34) & strl & Chr(34)
If．NoMatch Then
UpdateUnitslnStock＝-l
GoTo CleanExit
End lf
'试图编辑记录。如果发生锁定错误，则错误处理程序会试着解决它，因为该程序使用的是保守式锁定，所以当试图编辑一个记录时会产生错误。如果它使用开放式锁定，那么就会在更新记录时产生错误
．Edit
![电话]＝str2
．Update
End With
CleanExit：
rstStr.Close
dbs.CloSe
EXit Function
ErrorHandler：
Select Case Err
Case 3197
'记录集中的数据在被打开之后发生了变更，再试一下编辑该记录，这将自动刷新记录集，以显示最新的数据
Resume
Case 3260 '记录被锁定
IntLockCount＝IntLockCount 1
'已经两次试图获得锁定，让用户取消或重试
If intLockCount > 2 Then
intChoice＝MsgBox(Err.Description & "Retry?"，VBYesNo VbQuestion)
If intChoice＝vbYes Then
intLockCount＝1
ElSe
UpdateUnitslnStock＝ERR_RECORDLOCKED
Resume CleanExit
End lf
End lf
'移交给Windows
DOEVents
'延迟一个较短的随机时间，每次锁定失败后就把这个时间间隔变长一些
intRndCount＝intLockCount ^ 2 * Int(Rnd * 3000 1000)
For i＝1 To intBndCount: Next i
Resume '再试一次编辑
Case Else '非预期的错误
MsgBOX"Error" & Err & ":" & Error, VbOKOnlv
UpdateUnitslnStock＝FAILED
ResunleCleanExit
End Select
End FunCtlon

上述过程打开一个数据库dbtest．mdb，该数据库中有一个名为tb的表，其内容如图所示。

姓名 地址 电话 邮政编码
王春明 西城区 69039026 100089
李新民 西城区 68026097 100079

UpdateUnitslnStock过程有两个参数，第一个参数是表中指定字段(过程中为“电话”)原来的内容，第二个参数是该字段修改后的内容。过程中用rstStr.LockEdits＝True

指定保守式锁定，接着指定要修改的字段，如果要修改的字段不存在，则过程返回值为 -1，并关闭表和数据库，退出过程；如果找到了要修改的字段，则用Edit和Update方法对其进行修改和更新。程序的其余部分是错误处理子程序，主要用来对可能出现的错误进行处理。

为了调用上面的过程，可以在窗体上画一个命令按钮，然后编写如下的事件过程：

Private Sub Command1_Click()
a＝UpdateUnitslnStock(”3456．8765”，”2222．3333”)
b＝UpdateUnitslnStock(”6845．7651”，”4444．5555”)
c＝UPdateUnitslnStock(”6842．2939“，”6666．7777”)
End Sub

运行程序，单击命令按钮，即可调用UpdateUnitslnStock过程，修改“电话”字段的内容。

上一篇： 页面锁定--多客户环境下VB数据库编程之（5）
下一篇： 记录集锁定--多客户环境下VB数据库编程之（4）

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有