麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

首頁 > 學院 > 開發設計 > 正文

鎖住數據庫中的表

2019-11-18 17:35:31
字體：大 中 小
來源：轉載
供稿：網友
把表達式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).ValidationText=""
Case"TestThenUnLock"
IfMyDB.TableDefs(aTable).ValidationRule="True=False"Then
MyDB.TableDefs(aTable).ValidationRule=""
MyDB.TableDefs(aTable).ValidationText=""
EndIf
EndSelect
HardLockTableErrorExit:
'subFlushDBEngine
'optional,seenextsuggestion
ExitFunction
HardLockTableError:
HardLockTable=False
MsgBoxError$&"error"&"inHardLockTabletrying"&"to"&whichAction&""&aTable
ResumeHardLockTableErrorExit
EndFunction
使用例子
'上鎖
Dummy=HardLockTable("Lock","TestTable")
'開鎖
Dummy=HardLockTable("UnLock","TestTable")->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 综合日韩欧美 | 欧洲狠狠鲁 | 欧美一级成人一区二区三区 | 欧美三级日本三级少妇99 | 久久国产精品99国产 | 国产成人强伦免费视频网站 | 免费毛片在线 | 国产一级淫 | 妇女毛片 | 在线成人一区二区 | 国产成人高清在线 | 福利一区二区三区视频在线观看 | 九九热在线视频观看 | 毛片一级免费看 | 久久999精品久久久 国产噜噜噜噜久久久久久久久 | 免费的性生活视频 | 日韩精品中文字幕一区二区三区 | 欧美精品一区自拍a毛片在线视频 | 泰剧19禁啪啪无遮挡大尺度 | 成人免费在线视频 | 欧美日韩亚洲成人 | 激情小说激情图片激情电影 | 欧美精品免费一区二区三区 | 国产91亚洲精品久久久 | 成人在线视频免费 | 色污视频在线观看 | 亚洲成人在线免费观看 | 中文日韩在线视频 | 国产91亚洲精品一区二区三区 | 黄污污网站 | 182tv成人福利视频免费看 | 欧美999| 天天操天天骑 | 欧美成人黄色小视频 | 久久综合婷婷 | 72pao成人国产永久免费视频 | 精品1 | 日本看片一区二区三区高清 | 成人福利在线视频 | 国产精品一区在线免费观看 | 久久久av亚洲男天堂 |