谁能提供一段用TreeView和ListView显示数据库内容的代码？3x.

[Keri]

rt,要求是能够读入一个数据库，界面类似于windows的资源管理器。在下一时找不到代码，自己又不会，只好求助各位大侠了。还请各位大侠指教。多谢了。:)

[bokei]

用listview显示数据库的代码如下：
这是一个子程序，把listview的地址传过去，直接在里面更新。rsGZ是一个记录集。


Public Sub LoadGZView(ByRef lvTemp As ListView)
Dim clmTemp As ColumnHeader
Dim itmTemp As ListItem
Dim i As Integer

For i = 1 To rsGZ.Fields.Count - 2
Set clmTemp = lvTemp.ColumnHeaders.Add(, , rsGZ.Fields(i).Name, , , 0)
Next i

If Not rsGZ.BOF Then
rsGZ.MoveFirst

Do Until rsGZ.EOF
Set itmTemp = lvTemp.ListItems.Add(, , rsGZ.Fields(1).Value, 0, 0)

itmTemp.SubItems(1) = rsGZ.Fields(2).Value
itmTemp.SubItems(2) = rsGZ.Fields(3).Value

rsGZ.MoveNext
Loop
End If
End Sub

不明白你要左边的树形列表显示什么？能否说得详细一些？

[Keri]

谢谢bokei的帮助，其实是这样的：我现在要做一个图书管理的工具，这些图书是分类管理的。界面要求类似于windows的资源管理器，我想在左边用TreeView显示图书分类，右边用ListView显示图书。大体上就是这样一种要求，因为我以前没有用过TreeView和ListView控件，所以有种不知道如何下手的感觉。希望大家能多多指点。
另外想请大家指点一下：我这个数据库该怎么建？我是这样想的：1）每一种图书用一个字段，也就是说每个字段名就是一类图书，下面存放书名。这样我只要读出各个字段名添加到TreeView中就行了。但是这样的话肯定会造成空间的浪费。2）两个字段，一个字段存放图书种类，一个字段存放图书名称。这比较符合我们的一般思维方式。但是问题是我怎么才能得到一共有几类图书？或许SQL可以实现？我不知道。

欢迎大家对我的问题进一步作答。

[bokei]

用第二种方法比较好。
如果想要知道有几类图书，可以用sql的group by关键字找出来
树形控件的代码：

Dim tempNode As Node
Dim i As Integer
Dim strTemp As String

Set tempNode = TV1.Nodes.Add(, , "R", "Root") '定义根节点,其中“R”是关键字，Root是显示的文字。


Set tempNode = TV1.Nodes.Add("R", tvwChild, "One", "Child 1")
Set tempNode = TV1.Nodes.Add("R", tvwChild, "Two", "Child 2") 'R是父节点关键字

For i = 1 To 3 '加入节点
Set tempNode = TV1.Nodes.Add("One", tvwChild, "Child" & Str(i), "Child"& i)
Next i

Set tempNode = TV1.Nodes.Add("Two", tvwChild, "Child1", "Child1")
tempNode.EnsureVisible '展开节点

[Un1]

VB的Demo里有DataTreeview 示例代码！