1181
社区成员
- 主页
vb中关于数据库（sql2000）如何锁定记录集？给300分
当我打开一个记录集（其中只有一条），此时其他用户不能对这条记录进行修改或则删除操作。
...全文
请发表友善的回复…
发表回复
eddie_nick 2002-06-06
岌岌荆棘：
谢谢你回答我的问题，可是我想要的是ADO的方式。可有良策。
谢谢你回答我的问题，可是我想要的是ADO的方式。可有良策。
wzsswz 2002-06-05
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
Private Sub Command1_Click()
Dim dbs As Database
Dim tb As Recordset
Dim bl As Boolean
Set dbs＝opendatabase("c:\dbdir\dbl.mdb",dbopenDynaset)
Set tb＝dbs.OpenRecordset("tablel",dbOpenTable)
bl＝RecordLocked(tb)
End Sub
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
Private Sub Command1_Click()
Dim dbs As Database
Dim tb As Recordset
Dim bl As Boolean
Set dbs＝opendatabase("c:\dbdir\dbl.mdb",dbopenDynaset)
Set tb＝dbs.OpenRecordset("tablel",dbOpenTable)
bl＝RecordLocked(tb)
End Sub