锁住数据库中的表




 

把表达式 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")