根据现有数据库结构生成VB四级目录树TreeView

最新推荐文章于 2017-11-22 16:09:27 发布

原创

最新推荐文章于 2017-11-22 16:09:27 发布 · 1.9k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#数据库 #vb #string

这篇博客展示了如何利用VB结合SQL查询从数据库中获取数据，并构建一个四级目录树结构。通过遍历[ProjectReg]、[ProjectJiZai]、[rollreg]和[filesreg]四张表，递归地为TreeView添加节点，实现了从一级目录到四级目录的完整展示。

已知四张表:

select pronum from   [ProjectReg]
select pronum,pronum1 from [ProjectJiZai]
select pronum,pronum1,pronum2 from   [rollreg]
select pronum,pronum1,pronum2,pronum3 from   [filesreg]
----------------------------------------------------------SQL查询结果
A

A 22222
A 22222

A 22222 33
A 22222 44

A 22222 33 333
A 22222 44 444

--------------------------------------先用VB的TreeVieww生成四级树
A
    22222
           33
               333
           44
               444
--------------------------------------下面是实现代码:

'根据现有数据库结构生成四级目录树TreeView
Private Sub LoadFromTable()
    Dim oNodex As ComctlLib.Node
    Dim nImage, nImage1, nImage2, nImage3 As String

    TreeView1.Nodes.Clear
    Set mRS = cnMain.Execute("select pronum from   [ProjectReg]")
    If mRS.RecordCount > 0 Then
        mRS.MoveFirst
        Do While mRS.EOF = False
            nImage = mRS.Fields("pronum")

            '一级目录开始
            Set oNodex = TreeView1.Nodes.Add(, , "R", nImage, 1)

                    '二级目录开始
                    Set mRS1 = cnMain.Execute("select distinct pronum1 as pronum1 from [ProjectJiZai] where pronum='" & nImage & "'")
                    If mRS1.RecordCount > 0 Then