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]