首页 相关文章 锁住数据库中的表

锁住数据库中的表

把表达式True=False放到表的ValidationRule属性就能锁上。HardLockTable?实现了该功能。
  声明
  PublicMyDBAsDatabase
  DimDummyAsInteger
  函数
  FunctionHardLockTable(ByValwhichActionAsString,?ByValaTableAsString)AsInteger
  OnErrorGoToHardLockTableError
  HardLockTable=True
  SelectCasewhichAction
  Case"Lock"
  MyDB.TableDefs(aTable).ValidationRule="True=False"
  MyDB.TableDefs(aTable).ValidationText=?"Thistablelockedvia"&?"ValidationRuleon"&Now
  Case"UnLock"
  MyDB.TableDefs(aTable).ValidationRule=""
  MyDB.TableDefs(aTable).Va...[ 查看全文 ]

2016-02-19 标签:

锁住数据库中的表的相关文章

手机页面
收藏网站 回到头部