如前所述，Microsoft Jet不能锁定单个的记录，每次读、写以及锁定的都是一页数据，面不是一个记录。根据记录的大小，一页可能包含多个记录。当锁定一个记录时，就会锁定那一页上的所有记录，如图8．6所示。
在高并发应用程序中，要求对指定记录提供畅通无阻的访问。可以用不同的策略来实现设计。
1．使用Text类型。可以用Text数据类型把字段添加到表中，直到记录长度超过1024个字节。由于Text是变长数据类型，必须显式地用数据来填补字段以获得一个定长格式。同时，这种技术可能会降低性能，因为如果每个记录都占用2K磁盘空间，则数据库的长度将会增加。因此，建议不要使用Text 数据类型。
2. 使用CHAR类型。SQL DDL CHAR 是一种定长数据类型。如果使用这种类型，则可不必用数据来填补字段。使用CHAR数据类型是实现这种技术的最简单而且保险的唯一方法。
3．使用开放锁定。另一种策略是：在任何地方都使用开放方式锁定。虽然开放式锁定不能避免页面锁定，但它可以使记录被锁定的时间最短，因此降低了不需要锁定的记录也被锁定的可能性。
4．使用自定义的锁定方案。有时候，页面锁定不能满足需要，而开放式锁定也可能无法满足需要。在这种情况下，可以考虑使用自定义的锁定方案。当一个记录被锁定时，可以用一个锁定表来标识。锁定表存储记录的键值、锁定状态(锁定或未锁定)以及锁定记录的用户名等。自定义锁定方案的实现需要大量的设计、实现以及测试时间。在许多情况下，它不能与内置的Microsoft Jet的功能重复。例如，即使实现单记录锁定，处理基于多个表的记录集的数据也是非常困难的，因为必须标识所有表，而这些表都包含必须锁定的记录。当自定义锁定方案只影响几个表，而且不是基于一个具有复杂连结和关系的数据模型时，使用自定义锁定方案较为适宜。
页面锁定中的错误处理
当使用页面锁定时，必须在代码中检查是否成功地实现了锁定。在开始时应禁止错误处理程序，然后尝试完成初始化一个锁定、检查错误，最后允许错误处理程序。在多用户环境下，所遇到的页面锁定错误有三种，见表。
| 错误代码和出错信息 |
原因和建议的操作 |
| 3186 不能存储；当前正被机器<nane>上的<name>用户锁定 |
当一个用户试图更新一页，而这一页包含了另一个用户设置的读锁定时，就会发生这个错误。为了处理这个错误，可以先等待一会儿，然后重新存储该记录。也可以通知发生这个问题的用户，并询问他们是否想要重试该操作 |
| 3197因为和另一个用户试图同时改变同一个数据，所以MicrosoftJet数据库引擎终止了该过程 |
在打开记录集或最后一次从记录中读取数据之后，另一个用户对当前记录作了更改，并使用Edit方法或Update方法时，就会产生这个错误。如果在使用Edit方法时产生了这个错误，就要用当前数据来刷新用户的数据视图然后再试一次Edit方法。如果这个错误是在使用update方法时发生的，则是因为使用了开放式锁定，并且在使用Edit方法后记录发生了变更。在这种情况下，应通知用户，其他人已经改变了数据。可以显示出当前数据并让用户选择：是覆盖其他用户的变更，还是取消编辑 |
| 3260不能更新；当前，被机器 <name> 上的 <name>用户锁定 |
锁定了包含当前记录的页面，并使用AddNew或Edlt方法时，就会发生这个错误。在使用Update方法来把一个记录存储到一个锁定的页面时，也会发生这个错误。在用户存储新的记录，或者在使用了开放式锁定后，另一个用户又来锁定该页面时，就会发生这种情况。为了处理这个错误，可等待一会儿，然后再试一次存储该记录。可以将该问题通知用户，并让用户决定是否要重试这个操作 |
用错误代码和出错信息可以测试记录是否被锁定。下面的过程可用来检测当前记录是否在一个锁定的页面上：
Function RecordLocked(rst As Recordset)AsBoolean
Dim blnLock As Boolean
On Error GoToErrorHandler
blnLock＝rst.LockEdits '保存LockEdits属性的当前值
rst.LockEdits＝True '设置保守式锁定
rst.Edit '试着编辑记录，如果记录被锁定，则会产生错误3197
RecordLocked＝False
rst.CancelUpdate
rst.LockEdits＝blnLock '恢复LockEdits属性的值
EXit FUnction
ErrorHandler：
Select Case Err
Case 3197：
Resume Next
Case Else
RecordLocked＝True
Resume Next
EXit Function
End Select
End Function
该过程把记录集的锁定设置为保守式，并编辑记录，以测试当前记录是否在一个被锁定的页面上，如果记录被锁定，则会产生一个错误(3197)。该过程有一个参数，即rst，它是Recordset对象。调用该过程，将返回一个布尔值。为了调用该过程，可以在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim dbs As Database
Dim tb As Recordset
Dim bl As Boolean
Set dbs＝opendatabase("c:\dbdir\dbl.mdb",dbopenDynaset)
Settb＝dbs.OpenRecordset("tablel",dbOpenTable)
bl＝RecordLocked(tb)
End Sub
在该事件过程中，打开一个数据库和该数据库中的表，然后用记录集作为参数调用上述过程，调用结果放在变量bl中。如果记录被锁定，则返回值为True，否则为False。
|
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！） 