treeview 控件应用实例：将 treeview 绑定到 bibliomdb 数据库

《treeview 控件应用实例：将 treeview 绑定到 bibliomdb 数据库》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、TreeView控件应用实例：将TreeView绑定到Biblio.mdb数据库应用示例：DataTree.vbp本章的代码示例是从应用示例DataTree.vbpwhichislistedintheSamplesdirectory中得到的。可将数据库中的数据绑定到TreeView控件。下面的示例将TreeView控件绑定到Biblio数据库，该数据库可以在VisualBasicCD中找到。该应用实例将Publishers表作为树节点的第一层。如果一个出版商对应于一个或多个书名，则这些书名将作为该出版商的子节点加入树中。图2.42与数据绑定的TreeVew控件下面的代码用到了如下对

2、象：DataAccessObjectLibrary（3.5）名为“frmDataTree”的Form对象名为“tvwDB”的TreeView控件名为“cmdLoad”的CommandButton控件将Biblio.mdb数据库绑定到TreeView控件在工程中添加对数据访问对象（DAO3.0）的引用。为Database和Node对象创建模块级的变量。在FormLoad事件中，用OpenDatabase语句将Database对象变量设置为Biblio数据库。用Nodes集合的Add方法创建顶层的节点对象。在CommandButton的Click事件中，创建两个Recordset变量，

3、并将它们设置为Publishers和Titles表。用“DoUntil”语句为表中的每个出版商创建一个Node对象。对每个出版商，在Titles记录集中检查匹配的PubID字段；为每个匹配项添加一个子节点。在工程中添加对数据访问对象（DAO3.5）的引用要将数据库绑定到TreeView控件，必须先添加对当前版本的数据访问对象（DAO）的引用。为Database对象和Node对象创建模块级的变量由于需要在一个会话中多次访问Biblio.mdb数据库，如果创建一个模块级的Database对象，保持一个打开数据库，将有助于提高效率。此后，不需要打开数据库即可访问它。在窗体的声明部分，键入

4、如下内容：PrivatemDbBiblioAsDatabase如果希望该数据库还可被其它模块使用，可以用Public语句，并重命名该变量，以表明它是全局的，例如gDbBiblio。在创建Node对象时，在Set语句中（如下所示）使用Node类型的变量。DimTempNodeAsNodeSetTempNode=tvwDB.Nodes.Add()虽然可以在添加Node对象时创建变量，更有效的方式是声明一个模块级的Node对象变量，并用它创建所有的Node对象。在上述声明部分再键入：PrivatemNodeAsNode用OpenDatabase语句将Database对象变量设置为Bibl

5、io数据库Form对象的Load事件中可以初始化Database变量。代码如下：SetmDbBiblio=DBEngine.OpenDatabase("BIBLIO.MDB")在成功地初始化Database对象变量后，就可以在该模块的代码中的任何位置自由地访问它了。FormLoad事件：用Nodes集合的Add方法创建顶层的Node对象至此，Database对象变量已经被初始化为Biblio数据库，现在可以创建树中的第一个节点，并将打开的数据库的名称赋予它。首先必须用Node集合的Add方法创建第一个Node对象。还要使用Set语句将其赋给mNode对象变量，如下所示：SetmNo

6、de=tvwDB.Nodes.Add()'创建第一个节点。mNode.Text=mDbBiblio.Name注意，在上面的代码中，在创建Node的同时用Set语句将其赋给了mNode对象变量。由于mNode变量现在包含了新创建的Node对象，可以对该Node对象的属性进行赋值。在上述情况下，Database的名称（即Database对象的Name属性）已经被赋给了新节点的Text属性。CommandButtonClick事件：创建两个Recordset变量，并将它们分别设置为Publishers和Titles表本应用实例假定存在名为“cmdLoad”的按钮，并且当用户单击它时，置入

7、Biblio数据库中的两个表到TreeView控件中。为此，必须首先在该按钮的Click事件中声明两个DAO对象变量。第一个变量rsPublishers用来包含Publishers表。第二个变量rsTitles用来包含Titles表。下面的代码声明了这两个变量，并用OpenRecordSet方法将表赋给变量：DimrsPublishersAsRecordsetDimrsTitlesAsRecordsetSetrsPublishers=mDbBiblio._OpenRe