VB.NET中treeview使用方法二与access数据库的数据绑定

1、首先建立一个数据库,名字为shiyan 完整的数据库名字为shiyan.mdb 在里面建一个表,名字为genjiediantable01并设计表,添加两个字段分为:1、字段名称:id 数据属性:自动编号,2、数据属性:gjdmz 文本 如下图:

2、把这个数据库放在E盘下,视个人情况而定,关键是这个数据库所在的路径

3、打开VS.2005 在设计区添加treeview控件,默认名字为treeview1 如下图

4、点击项目——引用——COM 添加 如下图:


5、在控件上点击右键选择查看代码:并输入代码如下图:

Public Class Form1
    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
        myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\shiyan.mdb"
        mycommand.CommandText = "select id,gjdmz from genjiediantable01"
        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.GetValue(0)
                tree_root.Text = mysqlreader.GetString(1)
                TreeView1.Nodes.Add(tree_root)
            End While
        Finally
            myconnection.Close()
        End Try
        TreeView1.ExpandAll()
        TreeView1.Select()

    End Sub
End Class

F5 运行调试出现下图


代码分析:全文的精华

1、定义公用变量

Dim myconnection As New OleDb.OleDbConnection() ‘连接Access数据库,则可以使用OleDB来实现。定义一个数据库连接,表示到数据源的连接是打开的。

Dim ds As New DataSet() 定义一个数据集,与数据库的表相对应
    Dim MyAdapater As New OleDb.OleDbDataAdapter() 定义一个数据库接口 相关内容在
    Dim mycommand As New OleDb.OleDbCommand() ’定义数据库连接命令
   明天再分析,有点累了!

接着昨天的分析

myconnection.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\shiyan.mdb" '数据库连接字串
        mycommand.CommandText = "select id,gjdmz from genjiediantable01" ’数据库连接命令 意思是在表中genjiediantable01中查询所有根结点的编号和名称,对应的是id,gjdmz 两个字段
        mycommand.Connection = myconnection 连接数据库并执行相关的命令
        Try
            myconnection.Close() ‘关闭到数据源的连接
            myconnection.Open()’连接池中提取一个打开的连接(如果有可用的连接)。否则,它就建立一个到数据源的新连接

Dim mysqlreader As OleDb.OleDbDataReader = mycommand.ExecuteReader ‘将 CommandText 发送到 Connection 并生成一个 OleDbDataReader
           

TreeView1.Nodes.Clear()  

            While mysqlreader.Read()‘OleDbDataReader 的默认位置在第一条记录前面。因此,必须调用 Read 来开始访问任何数据
                Dim tree_root As New TreeNode()’ 定义一个表示 TreeView 控件中的节点。
                tree_root.Tag = mysqlreader.GetValue(0)‘把编号放入tag中
                tree_root.Text = mysqlreader.GetString(1)’树上显示的是根节点名称gjdmz
                TreeView1.Nodes.Add(tree_root)
            End While
        Finally
            myconnection.Close()
        End Try ‘Try...Catch...Finally 语句 (Visual Basic)
        TreeView1.ExpandAll() '打开树中的每个节点
        TreeView1.Select() '选择 TreeView

你可能感兴趣的:(VB.net)