说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

锁住数据库中的表 -VB资料

HTML文档下载 WORD文档下载 PDF文档下载
锁住数据库中的表 -VB资料
把表达式 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")



Delphi的8个技巧 delphi函数参考手册 DELPHI键盘常用快捷键汇总(DEFAULT 和CLASSIC) Delphi实现自动切换输入法 Delphi使用汇编 Java Examples in a Nutshell(java实例技术手册)谁有Ebook吗? 如何动态修改ADODC控件的resource属性? 存储过程中根据参数生成一个表可以么 MS-SqlServer200问题!! EVC3做的工程到了Pocket PC2003上就运行不起来,必须使用EVC4来重新编译才可以,这样不是很麻烦嘛,大家有没有比较好的方法来解决这个问 得分问题,望各位大虾帮帮忙!正确的都有分! 为什么windows病毒、恶意脚本程序都用vbscript写比较多而不用js? 怎样在打开子窗口的时候让父叶面或者父窗口最小化 windows2000 进程问题!!!!!!!!!!!!!!!! 向国旗敬礼做一个有道德的人 作文急!快500字以上 向国旗敬礼,做一个有道德的人(1000字作文) 《向国旗敬礼做一个有道德的人》作文100字左右就今 向国旗敬礼做一个有道德的人~额,小短文!100字左 作文我的母亲800字 李老师的年龄是小东的4倍,小东比李老师小21岁.李 我在快乐中成长,作文,500字,ORZ 以“春”这个季节为题写一篇作文!要求 600字以上 向国旗敬礼,做一个有道德的人 作文(600字)明天 英国遭近年最大暴风雨袭击 交通受阻数翘臀又嘟嘴 壮汉翻拍“性感照”遭吐槽婚外情网站进军狮城遇阻西飞成波音737MAX供应商迈克尔杰克逊私人医生刑满出狱 欲再获“吞钉男”现身蚌埠 多次吞钉四处编谎合肥发生一起恶性绑架案 歹徒挟高三女胡适和周谷城的一场概念之争意甲-尤文图斯2-0乌迪内斯特维斯传射建功,尤文2 0乌迪内斯驭鬼者魔魂纪元异界长生传六道诉说新郧山一兵宋庆龄故居旅游西什库教堂旅游长陵旅游织金洞旅游后慈湖旅游
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘