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

领测软件测试网

　　 
　　实现页面锁定的一个具体例子

　　实现页面锁定时使用开放式锁定，可按如下步骤操作：

　　(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过程，修改“电话”字段的内容。

文章来源于领测软件测试网 https://www.ltesting.net/