敬业的IT人 互联网 佚名 2008-1-4 14:09:27

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


在多用户环境中，当用户添加新表、查询数据库或删除现有对象时，都可能对集合进行修改。在这种情况下，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方法。如果集合包含大量的对象，则刷新集合可能需要较长的时间。进入讨论组讨论。

最新文章

程序人生：“聊天”里的程序人生[01-04]

Dephi 中优秀的字符串分割函数[01-04]

DOS功能调用[01-04]

游戏引擎演化史[01-04]

游戏中的多任务处理[01-04]

用汇编破解cmos密码[01-04]

相关文章

Palm OS应用程序设计指南之七[01-04]

Palm OS应用程序设计指南之四[01-04]

Java web应用开发概览[01-04]

samba做文件服务器常见问题[01-04]

samba中文乱码问题终极篇[01-04]

在 Eclipse 中开发 Apache Derby 应用程..[01-04]