Set oldDb=oldWs.OpenDatabase("Members.mdb",True,False)
用上面的代码打开数据库时,如果该数据库未被其它用户使用,则打开数据库,这样直到关闭之前,该数据库不会被其它用户或程序访问;如果数据库正在被其它用户使用,则返回一个错误。
2.拒绝其它用户或程序访问指定的表。以独占方式打开数据库后,可以拒绝其它用户或程序访问整个数据库(包括数据库中的每个表)。而对数据访问的一种较轻的限制则是拒绝其它用户或程序访问由本人程序正在使用的表(即记录集),它实际上是对记录集进行锁定。锁定记录集的操作通过OpenRecordset方法中的Options参数来实现。我们知道,OpenRecordset方法的格式如下:
对象.OpenRecordset(type,OPtlons,lockedits)
其中的options参数用来设置对记录集的锁定,该参数可以取多种值,以下两种值用来禁止其它用户对记录集进行读写操作:
1..禁止读(dbDenyRead)
OpenRecordset方法中的dbDenyRead常量用来禁止其它用户查看表中的数据,直到关闭该表为止。当需要更新整个表中的信息时,可以使用这个常量。例如:
Dim rst as Recordset
Set rst=dbs.OpenRecordset(strTable, _
dbOpenTable,dbDenyRead)
2.禁止写(dbDenywrite)
OpenRecordset方法中的dbDenyWrite常量用来禁止其它用户更新表中的数据,直到关闭该表为止。在这种情况下,其它用户可以查看表中的信息,也可以添加新记录,但不能对其进行修改。当需要向表中插入新记录而又不想修改现有的记录时,可以使用这个常量,它对表和动态集都有效。例如:
Dim rst as Recordset
上一页 [1] [2] [3] 下一页
|