多用户应用程序中应注意的其它问题(1)--多客户环境下VB数据库编程之（8）

在多用户应用程序设计中，最主要的问题是控制数据的锁定，前面几节我们已进行了讨论。但是，应当指出，锁定并不是多用户应用程序设计中唯一的问题，在为多用户访问设计一个应用程序时，还应当注意到其它一些方面，下面将讨论这些问题。

问题一 数据访问对象集合的刷新

在多用户环境中，当用户添加新表、查询数据库或删除现有对象时，都可能对集合进行修改。在这种情况下，DAO．不能自动跟踪集合的变更。
下面的过程可用来显示当前数据库中的所有TableDef对象：

SUb ShowAllTables(dbs As Database)
Dim tdfremp As TableDef
For Each tdfremPIndbs.TableDefs
Debug.Pnnttdfremp.Name
Next tdfremp
End Sub

为了调用上面的过程，可以在窗体上画一个命令按钮，然后编写下面的事件过程：

Private Sub Commandl_Click()
Dim Mvdbs As Database
Set Mydbs＝OpenDatabase("cz\VB50\biblio.mdb")
ShowAllTables Mvdbs
End Sub

运行程序，单击命令按钮，将在立即窗口中显示数据库biblio.mdb中的所有TableDef对象。
在执行上面的过程时，程序将记下TableDefs集合时快照，它遍历每个TableDef对象，并显示出它的名字。假定需要两次运行上面的过程，第一次运行时，显示了10个表的名字。但在再次运行之前，网络上的另一个用户打开了这个数据库，并在数据库中添加了一个新的表。如果再次运行该过程，则将仍然显示10个表的名字，因为DAO不能自动地更新其它用户对集合所作的变更。为此，可以用Refresh方法强制DAO用最新的变更来更新集合。如果在前面的过程中添加Refresh方法，则可使它返回的总是TableDef对象的最新列表修改后的过程如下：

SUb BetterShowAllTables(dbs As Database)
Dim tdfremp As TableDef
dbs.TableDefs.Refresh
For Each tdfremp ln dbs.TableDefs
Debug.Print tdfremP.Name
Next tdfremp
End Sub

注意，只有在需要时才使用Refresh方法。如果集合包含大量的对象，则刷新集合可能需要较长的时间。

上一篇： 页面锁定的锁定方案--多客户环境下VB数据库编程之（7）
下一篇： 实现页面锁定的一个具体例子--多客户环境下VB数据库编程之（6）

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!