使用TreeView加载数据

原创 2004年09月09日 00:59:00

TreeView控件在编制程序过程中用得比较多。正确的掌握和使用这个控件,可以很好的表示层次关系的数据。在数据库应用系统中,我们可以用TreeView来显示树形结构,如显示目录树、显示班级信息等等,有着很重要的作用

看看下面一个实际的问题:每个年度都有许多的班级,将这些数据层次表示

数据库:access

:Test

字段:bh(班级编号,文本,主键),nj(年级,文本)

功能:以层次关系表现出数据

测试数据:

bh<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

nj

41020

2001

41021

2001

41025

2003

41026

2003

41027

2003

41028

2003

 

 

添加TreeView控件,2个按钮

2个按钮分别用了两种方法显示数据。但是第二种方法明显优于第一种。

可以仔细的看代码

 

'引用microsoft activex data object 2.x library

Dim nddata As Node

Dim cnn As ADODB.Connection

Dim rs1 As New ADODB.Recordset

Dim rs2 As New ADODB.Recordset

 

Private Sub Command1_Click()

On Error Resume Next

Set nddata = TreeView1.Nodes.Add(, , "db", "班级信息")

nddata.Expanded = True

Dim intcount As Integer

Dim inttable As Integer

Dim intfield As Integer

Dim intfn As Integer

 

rs1.Open "select nj from test group by nj", cnn, 1, 3

inttable = rs1.RecordCount

 

Do While inttable <> intcount

        Set nddata = TreeView1.Nodes.Add("db", tvwChild, "F" & rs1.Fields("nj"), rs1.Fields("nj"))

        rs2.Open "select bh,nj from test where nj='" & rs1.Fields("nj") & "'", cnn, 1, 3

        intfield = rs2.RecordCount

            If intfield <> 0 Then

                intfn = 0

                    Do While intfield <> intfn

                        Set nddata = TreeView1.Nodes.Add("F" & rs1.Fields("nj"), tvwChild, "S" & rs2.Fields("bh"), rs2.Fields("bh"))

                        rs2.MoveNext

                        intfn = intfn + 1

                    Loop

            End If

            rs2.Close

    rs1.MoveNext

    intcount = intcount + 1

Loop

rs1.Close

End Sub

 

第二种方法

Private Sub Command2_Click()

On Error Resume Next

Set nddata = TreeView1.Nodes.Add(, , "db", "班级信息")

nddata.Expanded = True

rs1.Open "select * from test", cnn, 1, 3

 

Do While Not rs1.EOF

        If ca <> rs1.Fields("nj") Then

        Set nddata = TreeView1.Nodes.Add("db", tvwChild, "F" & rs1.Fields("nj"), rs1.Fields("nj"))

        ca = rs1.Fields("bb")

        End If

       

        Set nddata = TreeView1.Nodes.Add("F" & rs1.Fields("nj"), tvwChild, "S" & rs1.Fields("bh"), rs1.Fields("bh"))

    rs1.MoveNext

Loop

rs1.Close

End Sub

 

Private Sub Form_Load()

Set cnn = New ADODB.Connection

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:/csdn_vb/database/treeview的节点添加/1/test.mdb"

 

End Sub

 

Private Sub Form_Unload(Cancel As Integer)

Set con = Nothing

End Sub

在DELPHI中用TreeView控件从数据库中动态装载信息

1.PInfo表结构ID VARCHAR(50)FullName VARCHAR(50)ParentID VARCHAR(50)2.Unit文件unit Info;interfaceuses  Win...
  • paulchenbo
  • paulchenbo
  • 2007-04-27 17:14:00
  • 2711

Ajax动态加载目录树(jquery-treeview)

需求:   动态加载目录树节点数据。即:树的初始状态为根节点树,当点击其中一个节点时,再从数据库中获取当前节点的子节点。环境:   Struts1+Hibernate3.0+jQuery+treevi...
  • bob007abc
  • bob007abc
  • 2010-02-02 18:46:00
  • 18563

treeview数据库加载节点

使用递归法. 函数如下(有些地方使用了自定义函数,自己用的时候可以修改一下): /树操作基本参数列表. Type BaseParameter ...
  • doulizheng
  • doulizheng
  • 2008-07-03 19:52:00
  • 630

利用TreeView控件 从数据库中动态载入数据

//*************************  aspx  *************************//               AutoPostBack="True">   ...
  • hqt
  • hqt
  • 2005-04-18 13:05:00
  • 1733

asp.net TreeView动态绑定数据库显示数据

假设在数据库中建立一张表, 如tb_treeview,如下创建         create table tb_treeview(                    id  int not nul...
  • taomanman
  • taomanman
  • 2009-11-16 15:40:00
  • 5814

delphi treeview 加载时 改变字体颜色

  • 2012年07月01日 19:02
  • 1KB
  • 下载

Wpf TreeView 延时加载实现

树状控件在程序中经常用到。 但如果树状结构比较大,数据较多,将所有数据都加载后再绑定到控件,会影响软件的运行速度。比较理想的解决方法是延时加载,在展开树的时候再加载数据。 下面是树状控件延时加载数据...
  • stone_vt
  • stone_vt
  • 2013-12-27 18:22:29
  • 1339

TreeView的图标个性化和动态数据加载

1、简述 如图,需要在页面上实现一个这样的树状图,具体要求如下: 1、最顶层的行的收缩图标为绿色小三角,其余层存在子节点的行的收缩图标为一个朝右的尖括号和一个绿色小三角,无子节点的行无需图标; 2、点...
  • qq_28088659
  • qq_28088659
  • 2016-11-09 18:14:49
  • 1460

treeview控件的Expand事件下加载数据的控制

1、使用事件tvHeLiuDM_BeforeExpand(object sender, TreeViewCancelEventArgs e)在展开节点时发生 2、使用事件tvHeLiuDM_Afte...
  • Burongwawa520
  • Burongwawa520
  • 2013-07-09 10:17:16
  • 2908

C# 动态载入数据到treeview中

  • 2011年11月14日 14:06
  • 29KB
  • 下载
收藏助手
不良信息举报
您举报文章:使用TreeView加载数据
举报原因:
原因补充:

(最多只允许输入30个字)