vb中关于数据库(sql2000)如何锁定记录集?给300分

eddie_nick 2002-06-05 02:09:43
当我打开一个记录集(其中只有一条),此时其他用户不能对这条记录进行修改或则删除操作。
...全文
25 点赞 收藏 2
写回复
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
eddie_nick 2002-06-06
岌岌荆棘:
谢谢你回答我的问题,可是我想要的是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
回复
发动态
发帖子

1181

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告