VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 实现页面锁定的一个具体例子--多客户环境下VB数据库编程之(6)
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9585, 日期:2001-02-16
实现页面锁定的一个具体例子--多客户环境下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过程,修改“电话”字段的内容。