VB+ADO检测数据库并发操作和处理并解决并发冲突

原创 2004年05月07日 18:49:00

前言:

数据库并发问题详述http://www.csdn.net/Develop/read_article.asp?id=24366已经说明了并发的严重性与危害性。下面讲述VB+ADO来处理并发操作的实际案例:

在以前DAO中可以对数据库进行记录锁,页面锁,表锁来处理并发操作,还可以使用事务处理,那么现在怎么用ADO来检测并处理数据库的并发操作呢?

相关背景知识:

ADO中对数据库的也是采用锁定的方法来实现的,还可以用事务来做。事务有个特点就是:要么全成功,要么就全失败。那么在实际工作中有可能只有几条或一小部分的记录有冲突,只要对那一小部分的记录进行处理就行了。ADO也使用锁定来实现。

那么什么是锁定?

锁定是一种进程,DBMS 通过该进程限制多用户环境中对行的访问。当一行或一列被独占锁定时,不允许其他用户在释放锁定之前访问锁定的数据。这确保了两个用户无法同时更新一行中的同一列。

从资源角度而言,锁定的成本可能非常高昂,只有在需要保持数据完整性的情况下才应当使用此功能。在每秒有数百或数千用户试图访问某个记录的数据库(例如连接到 Internet 的数据库)中,不必要的锁定将很快导致应用程序性能的下降。

可选择适当的锁定选项来控制数据源和 ADO 游标库管理并发性的方式。

打开 Recordset 之前先设置 LockType 属性,以指定提供者打开它时使用的锁定类型。读取该属性以返回打开的 Recordset 对象中使用的锁定类型。

提供者可能不支持所有锁定类型。如果提供者不支持请求的 LockType 设置,则替换为另一种锁定类型。若要确定 Recordset 对象中实际可用的锁定功能,将soppurts 方法与 adUpdate 和 adUpdateBatch 一起使用。

如果 CursorLocation  属性设置为 adUseClient,则不支持 adLockPessimistic 设置。如果设置了不支持的值,将不产生错误,而使用所支持的最相近的 LockType。

LockType 属性在 Recordset 关闭时为读/写,而在 Recordset 打开时为只读。

锁定类型种类(LockType 属性):
1.adLockBatchOptimistic
指示开放式批更新。需要批更新模式。

许多应用程序都一次提取多行,然后需要进行相应的更新,这些更新包括所有需要插入、更新或删除的行的完整集合。使用批游标只需一次往返服务器,因而导致更新性能的提高和网络通信量的降低。使用批游标库可创建静态游标,然后断开到数据源的连接。这时就可以对行进行更改,然后重新连接到数据源并将更改以批的形式发布到数据源。

2.adLockOptimistic
提供者使用开放式锁定,仅在调用 Update 方法时锁定记录。这意味着另一个用户有可能会利用您编辑记录和调用 Update 的时间间隔更改数据,这就会引起冲突。而使用此锁定类型时发生冲突的几率很低,即使发生了冲突也会很快得到解决。

3.adLockPessimistic
指示逐个记录保守式锁定。提供者要确保记录编辑成功,通常在编辑之前立即在数据源锁定记录。当然,这意味着一旦您开始编辑记录,这些记录就会对其他用户不可用,知道您通过调用 Update 释放锁定。如果您的系统不提供对数据的并发更改,例如预定系统,那么可使用此锁定类型。

4.adLockReadOnly
指示只读记录。无法改变数据。只读锁定是速度“最快”的锁定类型,因为它不要求服务器保持对记录的锁定。冲突

5.adLockUnspecified
未指定锁定类型。

检测和解决冲突:
如果在立即模式中处理 Recordset,则很少出现并发问题。另一方面,如果应用程序使用批模式更新,则在保存由一个正在编辑记录的用户所作的更改之前,编辑同一个记录的另一个用户比较有可能会更改记录。在这种情况下,需要应用程序准确处理冲突。无论是哪种情况,都可以使用 ADO 提供的 Field 对象的 UnderlyingValue 和 OriginalValue 属性来处理这些类型的冲突。将这些属性与 Recordset 的 Resync 方法和 Filter 属性配合使用。

检测错误:
在批更新期间 ADO 遇到冲突时,将在 Errors 集合中放入警告。因此,调用 BatchUpdate 之后,一定要立即检查是否有错误,如果找到了错误,则应当假设已遇到冲突并开始进行测试。第一步要将 Recordset 的 Filter 属性设置为等于 adFilterConflictingRecords。该设置将使 Recordset对象限制为只显示那些发生冲突的记录。如果这一步之后 RecordCount 属性等于零,就说明错误是由冲突以外的其他原因引起的。

调用 BatchUpdate 时,ADO 和提供者将生成对数据源执行更新的 SQL 语句。下一步,调用 Recordset 的 Resync 方法,并且将 AffectRecords 参数设置为等于 adAffectGroup,将 ResyncValues 参数设置为等于 adResyncUnderlyingValues。Resync 方法将用来自基本数据库中的数据刷新在当前 Recordset 对象中的数据。通过使用 adAffectGroup,可以确保只有使用当前筛选设置的情况下可见的记录(即只有冲突记录)会与数据库重新同步。如果处理的是大型 Recordset,该操作会对性能有较大影响。通过在调用 Resync 时将 ResyncValues 参数设置为 adResyncUnderlyingValues,可以确保 UnderlyingValue 属性将包含数据库中的(冲突)值,并确保 Value 属性仍然是由用户输入的值,还会确保 OriginalValue 属性将持有字段的原始值(即在上一次成功进行 UpdateBatch 调用之前该字段所拥有的值)。然后,可以使用这些值通过编程方式解决冲突,或要求用户选择将要使用的值。

范例:

在调用 UpdateBatch 之前,本范例通过使用单独的 Recordset 来更改基本表中的值,人为地创建一个冲突。

'Begin
    On Error GoTo ErrHandler:   
    Dim objRs1 As New ADODB.Recordset
    Dim objRs2 As New ADODB.Recordset
    Dim strSQL As String
    Dim strMsg As String   
    strSQL = "SELECT * FROM Shippers WHERE ShipperID = 2"’SQL查询
    objRs1.CursorLocation = adUseClient’设置客户端游标
    objRs1.Open strSQL, strConn, adOpenStatic, adLockBatchOptimistic, adCmdText’执行查询生成objrs1记录集
    objRs1("Phone") = "(111) 555-1111"’更改表中一条记录phone字段的值
    objRs2.Open strSQL, strConn, adOpenKeyset, adLockOptimistic, adCmdText’执行查询生成objrs2记录集
    objRs2("Phone") = "(999) 555-9999" ’更改表中记录phone字段的值
    objRs2.Update
    objRs2.Close
    Set objRs2 = Nothing   
    On Error Resume Next
    objRs1.UpdateBatch   
    If objRs1.ActiveConnection.Errors.Count <> 0 Then
        Dim intConflicts As Integer
        intConflicts = 0
        objRs1.Filter = adFilterConflictingRecords
        intConflicts = objRs1.RecordCount
        objRs1.Resync adAffectGroup, adResyncUnderlyingValues
        If intConflicts > 0 Then
           strMsg = "A conflict occurred with updates for " & intConflicts & "records." & vbCrLf & "The values will be restored"                     " to their original values."
           objRs1.MoveFirst
           While Not objRs1.EOF
                strMsg = strMsg & "SHIPPER = " & objRs1("CompanyName") & vbCrLf
                strMsg = strMsg & "Value = " & objRs1("Phone").Value & vbCrLf
                strMsg = strMsg & "UnderlyingValue = " & _
                                   objRs1("Phone").UnderlyingValue & vbCrLf
                strMsg = strMsg & "OriginalValue = " & _
                                   objRs1("Phone").OriginalValue & vbCrLf
                strMsg = strMsg & vbCrLf & "Original value has been restored."
                MsgBox strMsg, vbOKOnly, _
                      "Conflict " & objRs1.AbsolutePosition & _
                      " of " & intConflicts                 
                objRs1("Phone").Value = objRs1("Phone").OriginalValue
                objRs1.MoveNext
            Wend
            objRs1.UpdateBatch adAffectGroup
        Else
            strMsg = "Errors occurred during the update. " & _
                        objRs1.ActiveConnection.Errors(0).Number & " " & _
                        objRs1.ActiveConnection.Errors(0).Description
        End If
        On Error GoTo 0
    End If
    objRs1.MoveFirst
    objRs1.Close
    Set objRs1 = Nothing
Exit Sub
ErrHandler:
    If Not objRs1 Is Nothing Then
        If objRs1.State = adStateOpen Then objRs1.Close
        Set objRs1 = Nothing
    End If
    If Not objRs2 Is Nothing Then
        If objRs2.State = adStateOpen Then objRs2.Close
        Set objRs2 = Nothing
    End If   
    If Err <> 0 Then
        MsgBox Err.Source & "-->" & Err.Description, , "Error"
End If
'End
还可以使用当前 Record 的或特定 Field 的 Status 属性来确定已发生的冲突种类。

至此发生冲突的记录检查出来了,那么下一步就是处理失败的更新。

如何解决错误将取决于错误的性质和严重性以及应用程序的逻辑。实际中的数据库大都数是多个用户共享,典型的错误是其他人在你修改某个字段之前先修改了该字段。这种类型的错误称为“冲突”。ADO 将检测这种情况并报告错误。

如果存在更新错误,将被错误处理例程捕获。通过使用 adFilterConflictingRecords 常量来筛选 Recordset,可以只显示发生冲突行。

范例:

本错误解决方案将打印发生冲突的记录中的作者的名和姓(au_fname 和 au_lname)。

'Begin:

objRs.Filter = adFilterConflictingRecords

objRs.MoveFirst
Do While Not objRst.EOF
   Debug.Print "Conflict: Name =  "; objRs!au_fname; " "; objRs!au_lname
   objRs.MoveNext
Loop
'END

如果上述情况用事务来处理的话,那么对于用户数量较大网络较繁忙且更新记录数很多的情况来说将严重影响速度。上述方法只要处理发生错误的记录,这样就减轻了网络传输的负荷,有利提高速度。

ADO 数据库连接断开重连

     在使用ADO的过程中,最理想的操作流程:     程序启动,打开数据库连接,在程序退出前,一直保持这个连接。程序退出时,才关闭该连。    最理想的状态的前提:该数据库连接在中间不会断开。不...
  • edward22
  • edward22
  • 2011年01月05日 16:52
  • 5284

.net 代码解决SQL查询超时问题

相关背景: 一个报表统计型的存储过程,随着数据量增加,查询时间越来越长,因为存储过程超过2K行,要优化可能需要更多的时间,因为急需要报表数据,只好先从 代码层处理超时问题。 以下是解决方案。...
  • keenweiwei
  • keenweiwei
  • 2016年01月28日 09:27
  • 2694

在执行Ado.net SqlDataAdapter 查询超时设置

在执行Sqlserver查询时报如下错误:  超时时间已到。在操作完成之前超时时间已过或服务器未响应。  修改方法:   using (SqlConnection connection = new...
  • QDseashore
  • QDseashore
  • 2015年12月21日 11:10
  • 3572

VB+ADO检测数据库并发操作和处理并解决并发冲突

VB+ADO检测数据库并发操作和处理并解决并发冲突 本文章系为转载,无作者出处 粘上摘自网络的地址 http://www.j...
  • okman1214
  • okman1214
  • 2008年10月28日 15:22
  • 557

处理并发问题

多个事务并发运行时的并发问题 第一类丢失更新:撤销一个事务时,把其他事务已提交的更新数据覆盖 脏读:一个事务读到另一个事务未提交的数据 虚读:一个事务读到另一个事务已提交的新插入的数据 不可重...
  • u014034934
  • u014034934
  • 2017年03月03日 13:18
  • 796

ADO连接

 ADO是ActiveX Data Objects 的缩写,是一项新的数据库的存取技术.相对于VB5.0中的DAO他具有更为简化的对象模型,无论是存取本地的还是远程的数据,都提供了一致的接口.就我本人...
  • fxj331072
  • fxj331072
  • 2005年12月22日 18:52
  • 1344

超时时间已到。超时时间已到,但是尚未从池中获取连接。

超时时间已到。超时时间已到,但是尚未从池中获取连接。出现这种情况可能是因为所有池连接均在使用,并且达到了最大池大小。  解决办法 1.在代码里面,把未关闭的连接关闭 2.扩大共享池,方法...
  • minsenwu
  • minsenwu
  • 2017年02月16日 08:58
  • 1380

互联网线上项目开发最大坑点-并发冲突处理

互联网线上项目开发最大坑点-并发冲突处理大家可能都有这样的经验,自个儿在家里很多功能很容易实现,一下就做完了,但是在做线上产品的时候,就变得无比复杂,需要花费很多的时间。自己写的程序在家跑,所有的业务...
  • caopeng26
  • caopeng26
  • 2016年08月24日 21:25
  • 1994

访问数据库时如何解决并发问题

 在数据库访问时。如果处理并发访问的问题 或者当一个操作员对一个对象作读操作时。另一个操作员对此对象作写操作的时候 如何避免死锁发生 /**********  加锁   *******...
  • fengxu511
  • fengxu511
  • 2015年10月03日 09:36
  • 1132

数据库的操作 ADO.NET

自若干年前推出开放式数据库连接 (ODBC) 应用程序编程接口 (API) 以来,出现了各种各样的数据库访问技术,而 ADO.NET 是其中最新的一种。在这过程中,发生了许多有趣的事。例如,COM 闯...
  • u011877729
  • u011877729
  • 2013年08月31日 19:06
  • 405
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:VB+ADO检测数据库并发操作和处理并解决并发冲突
举报原因:
原因补充:

(最多只允许输入30个字)