VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 锁住数据库中的表
发表评论(0)作者:, 平台:, 阅读:14619, 日期:2000-03-12
锁住数据库中的表

把表达式 True=False 放到表的 ValidationRule 属性就能锁上。 HardLockTable?实现了该功能。

声明

Public MyDB As Database

Dim Dummy As Integer

函数

Function HardLockTable (ByVal whichAction As String,?ByVal aTable As String) As Integer

On Error GoTo HardLockTableError

HardLockTable = True

Select Case whichAction

Case "Lock"

MyDB.TableDefs(aTable).ValidationRule = "True=False"

MyDB.TableDefs(aTable).ValidationText =?"This table locked via " & ?"ValidationRule on " & Now

Case "UnLock"

MyDB.TableDefs(aTable).ValidationRule = ""

MyDB.TableDefs(aTable).ValidationText = ""

Case "TestThenUnLock"

If MyDB.TableDefs(aTable).ValidationRule = "True=False" Then

MyDB.TableDefs(aTable).ValidationRule = ""

MyDB.TableDefs(aTable).ValidationText = ""

End If

End Select

HardLockTableErrorExit:

'subFlushDBEngine

'optional, see next suggestion

Exit Function

HardLockTableError:

HardLockTable = False

MsgBox Error$ & " error " & "in HardLockTable trying " & "to " & whichAction & " " & aTable

Resume HardLockTableErrorExit

End Function

使用例子

'上锁

Dummy = HardLockTable("Lock", "TestTable")

' 开锁

Dummy = HardLockTable("UnLock", "TestTable")