[已解决]请问，如何用VBA设置Access数据库是否独占？

mansohu

请问，如何用VBA设置Access数据库是否独占？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-5-15 06:57

如果你用ADO方式打开

Mode 属性
      

指示在 Connection 中修改数据的可用权限。

设置和返回值

设置或返回以下某个 ConnectModeEnum 的值。

常量 说明
AdModeUnknown 默认值。表明权限尚未设置或无法确定。
AdModeRead 表明权限为只读。
AdModeWrite 表明权限为只写。
AdModeReadWrite 表明权限为读/写。
AdModeShareDenyRead 防止其他用户使用读权限打开连接。
AdModeShareDenyWrite 防止其他用户使用写权限打开连接。
AdModeShareExclusive 防止其他用户打开连接。
AdModeShareDenyNone 防止其他用户使用任何权限打开连接。


说明

使用 Mode 属性可设置或返回当前连接上提供者正在使用的访问权限。Mode 属性只能在关闭 Connection 对象时方可设置。

跳转到最佳答案楼层

hwc2ycy

如果你用ADO方式打开

Mode 属性
      

指示在 Connection 中修改数据的可用权限。

设置和返回值

设置或返回以下某个 ConnectModeEnum 的值。

常量 说明
AdModeUnknown 默认值。表明权限尚未设置或无法确定。
AdModeRead 表明权限为只读。
AdModeWrite 表明权限为只写。
AdModeReadWrite 表明权限为读/写。
AdModeShareDenyRead 防止其他用户使用读权限打开连接。
AdModeShareDenyWrite 防止其他用户使用写权限打开连接。
AdModeShareExclusive 防止其他用户打开连接。
AdModeShareDenyNone 防止其他用户使用任何权限打开连接。


说明

使用 Mode 属性可设置或返回当前连接上提供者正在使用的访问权限。Mode 属性只能在关闭 Connection 对象时方可设置。

hwc2ycy

hwc2ycy

上图设置时用
    SetOption "默认数据库打开模式", 1
    SetOption "默认记录锁定", 1
第2个参数对应上图中标的0，1，2

hwc2ycy

Access 开发人员参考
DBEngine.OpenDatabase 方法
全部显示全部显示
全部隐藏全部隐藏
打开指定的数据库，并返回一个指向代表该数据库的 Database 对象的引用。
语法

表达式.OpenDatabase(Name, Options, ReadOnly, Connect)

表达式   一个代表 DBEngine 对象的变量。

参数

名称 必选/可选 数据类型 说明
Name 必选 String 现有 Microsoft Access 数据库文件的名称，或者 ODBC 数据源的数据源名称 (DSN)。有关设置此值的详细信息，请参阅 Name 属性。
Options 可选 Variant 根据“说明”中的指定设置数据库的各个选项。
ReadOnly 可选 Variant 如果要使用只读访问权限打开数据库，此值为 True；如果要使用可读写访问权限打开数据库，此值为 False（默认值）。
Connect 可选 Variant 指定包括密码在内的各种连接信息。

返回值
Database

说明


可以为 options 参数使用以下值。

设置 说明
True 以独占 （独占：对网络共享数据库中数据的一种访问模式。当以独占模式打开数据库时，也就禁止了他人打开该数据库。）模式打开数据库。
False （默认值）以共享模式打开数据库。
打开一个数据库后，该数据库将自动添加到 Databases 连接。

使用 dbname 时有以下适用的注意事项：


如果它引用了已打开以便由其他用户访问的数据库，则会发生错误。
如果它没有引用现有数据库或有效的 ODBC 数据源名称，则会发生错误。
如果它是零长度字符串 （零长度字符串：不含字符的字符串。可以使用零长度字符串来表明您知道该字段没有值。输入零长度字符串的方法是键入两个彼此之间没有空格的双引号 (" ")。） ("")，并且 connect 为
Visual Basic for Applications
"ODBC;"

，则显示列出所有已注册 ODBC 数据源名称的对话框，以便用户能够选择数据库。

若要关闭数据库，以便从 Databases 集合中删除 Database 对象，请对该对象使用 Close 方法。