| 本月文章推荐 |
锁住数据库中的表发表日期：2006-2-27
|
|
把表达式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")-> |
| 上一篇：用类来编写数据库程序
人气:2646 下一篇：为VB5辩解:VB处理数据库时求数据表记录总数的最佳方法 人气:3417 |
| 浏览全部Visual Basic的内容
Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐 |
