|
''''定义公用变量
Dim myconnection As New OleDb.OleDbConnection()
Dim MyAdapater As New OleDb.OleDbDataAdapter()
Dim mycommand As New OleDb.OleDbCommand()
Dim ds As New DataSet()
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
''''载入根节点表至treeview中，作为第一级
myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\project.mdb" ''''数据库连接请自行更换
mycommand.CommandText = "SELECT 根节点编号,根节点名称 FROM 根节点"
mycommand.Connection = myconnection
Try
myconnection.Close()
myconnection.Open()
Dim mysqlreader As OleDb.OleDbDataReader = mycommand.ExecuteReader
TreeView1.Nodes.Clear()
While mysqlreader.Read()
Dim tree_root As New TreeNode()
tree_root.Tag = mysqlreader.GetString(0) ''''把编号放入tag中
tree_root.Text = mysqlreader.GetString(1) ''''树上显示的是根节点名称
''''请根据你数据库字段的类型来决定是否用getstring或其它类型
TreeView1.Nodes.Add(tree_root)
End While
Catch ex As Exception
MessageBox.Show(ex.ToString, "数据表根节点载入错误", vbOKOnly)
Finally
myconnection.Close()
End Try
TreeView1.ExpandAll()
TreeView1.Select()
End Sub
好了，现在运行一下程序，你可以看到如图1所示的起始界面
----
声明：本文版权与解释权归韩睿所有，如需转载，请保留完整的内容及此声明。
QQ: 18349592
E-Mail: henry7685@hotmail.com
请访问本人专栏：http://www.csdn.net/develop/author/netauthor/Latitude/
上一页 [1] [2]
[C语言系列]NET 中C#的switch语句的语法 [系统软件]托拽Explore中的文件到VB.net的窗口
[系统软件]Boost库在XP+Visual C++.net中的安装 [常用软件]新配色面板：Paint.Net3.0RC1官方下载
[常用软件]用内建的“Net Meeting”聊天 [常用软件]TreeView 控件应用详解
[VB.NET程序]Henry的VB.NET之旅（三）—共享成员 [VB.NET程序]Henry的VB.NET之旅（二）—构造与析构
[VB.NET程序]Henry的VB.NET之旅（一）—失踪的窗体 [VB.NET程序]在托盘上显示Balloon Tooltip（VB.NET）
| 
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
