锁住数据库中的表

2016-02-19 18:11 0 1 收藏

今天图老师小编要跟大家分享锁住数据库中的表,精心挑选的过程简单易学,喜欢的朋友一起来学习吧!

【 tulaoshi.com - 编程语言 】

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

来源:https://www.tulaoshi.com/n/20160219/1616971.html

延伸阅读
以下是引用片段: 代码如下: ImportsSystem.Data ImportsSystem.Data.SqlClient PublicClassForm1 InheritsSystem.Windows.Forms.Form PrivateConnectionStringAsString="DataSource=.;InitialCatalog=;UserId=sa;Password=;" PrivatereaderAsSqlDataReader=Nothing PrivateconnAsSqlConnection=Nothing ...
你可能在使用MySQL过程中,各种意外导致数据库表的损坏,而且这些数据往往是最新的数据,通常不可能在备份数据中找到。本章将继上篇文章中检查出表的问题后,告诉你如何修复表。 一张损坏的表的症状通常是查询意外中断并且你能看到例如这些错误: ◆ “tbl_name.frm”被锁定不能改变。 ◆ 不能找到文件“tbl_name.MYI”(Errcode :### )。...
标签: Web开发
说明:dbf数据库结构要与sql表一致 % Dim conndbf_dbf,Driver_dbf,SourceType_dbf,DBPath_dbf dim Conn_sql ,StrCnn,i,str_dbf dim dbf_table_name,sql_table_name 'dbf数据库名称 dbf_table_name="20005070" 'sql表名称 sql_table_name="zjls" str_dbf="" ' 建立dbfConnection 对...
说明:下文中的一些说明和示例代码摘自CSDN,恕不一一指明出处,在此一并对相关作者表示感谢! 1 语法 在Oracle中,可以创建以下两种临时表: 1) 会话特有的临时表 CREATE GLOBAL TEMPORARY ( ) ON COMMIT PRESERVE ROWS; 2) 事务特有的临时表 CREATE GLOBAL TEMPORARY ( ) ON COMMIT DELETE ROW...
Oracle数据库数据对象中最基本的是表和视图,其他还有约束、序列、函数、存储过程、包、触发器等。对数据库的操作可以基本归结为对数据对象的操作,理解和掌握Oracle数据库对象是学习Oracle的捷径。 表和视图 Oracle中表是数据存储的基本结构。ORACLE8引入了分区表和对象表,ORACLE8i引入了临时表,使表的功能更强大。视图是一个...

经验教程

706

收藏

94
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部