处理多用户并发访问的方法是加锁。锁是防止其他事务访问指定的资源控制、实现并发控制的一种主要手段。当一个用户锁住数据库中的某个对象时，其他用户就不能再访问该对象。加锁对并发访问的影响体现在锁的粒度上。为了控制锁定的资源，应该首先了解系统的空间管理。在SQL Server 2000系统中，最小的空间管理单位是页，一个页有8K。所有的数据、日志、索引都存放在页上。另外，使用页有一个限制，这就是表中的一行数据必须在同一个页上，不能跨页。页上面的空间管理单位是盘区，一个盘区是8个连续的页。表和索引的最小占用单位是盘区。数据库是由一个或者多个表或者索引组成，即是由多个盘区组成。放在一个表上的锁限制对整个表的并发访问；放在盘区上的锁限制了对整个盘区的访问；放在数据页上的锁限制了对整个数据页的访问；放在行上的锁只限制对该行的并发访问。http://www.cnblogs.com/color/category/493.aspx/rss
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 = adFilterConflictingRecordsobjRs.MoveFirst Do While Not objRst.EOF Debug.Print "Conflict: Name = "; objRs!au_fname; " "; objRs!au_lname objRs.MoveNext Loop 'END如果上述情况用事务来处理的话，那么对于用户数量较大网络较繁忙且更新记录数很多的情况来说将严重影响速度。上述方法只要处理发生错误的记录，这样就减轻了网络传输的负荷，有利提高速度。
这是我写的处理事务的过程，分享一下吧 Public Function Exsql(ParamArray sql()) As Boolean '事务执行1个sql语句 Dim cnConn As ADODB.Connection dim CN as string Set cnConn = New ADODB.Connection Dim mysql On Error GoTo err1 cn="连接字符串" cnConn.Open CN cnConn.BeginTrans '开始一个事务
For Each mysql In sql cnConn.Execute mysql Next cnConn.CommitTrans '提交一个事物
Set cnConn = Nothing Exsql = True Exit Function err1: cnConn.RollbackTrans '回滚一个事物 Exsql = False End Function
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 = adFilterConflictingRecordsobjRs.MoveFirst
Do While Not objRst.EOF
Debug.Print "Conflict: Name = "; objRs!au_fname; " "; objRs!au_lname
objRs.MoveNext
Loop
'END如果上述情况用事务来处理的话，那么对于用户数量较大网络较繁忙且更新记录数很多的情况来说将严重影响速度。上述方法只要处理发生错误的记录，这样就减轻了网络传输的负荷，有利提高速度。
Public Function Exsql(ParamArray sql()) As Boolean
'事务执行1个sql语句
Dim cnConn As ADODB.Connection
dim CN as string
Set cnConn = New ADODB.Connection
Dim mysql
On Error GoTo err1
cn="连接字符串"
cnConn.Open CN
cnConn.BeginTrans '开始一个事务
For Each mysql In sql
cnConn.Execute mysql
Next
cnConn.CommitTrans '提交一个事物
Set cnConn = Nothing
Exsql = True
Exit Function
err1:
cnConn.RollbackTrans '回滚一个事物
Exsql = False
End Function