2023年6月22日发(作者：)

中treeview使⽤⽅法⼆与access数据库的数据绑定1、⾸先建⽴⼀个数据库，名字为shiyan 完整的数据库名字为 在⾥⾯建⼀个表，名字为genjiediantable01并设计表，添加两个字段分为：1、字段名称：id 数据属性：⾃动编号，2、数据属性：gjdmz ⽂本 如下图：2、把这个数据库放在E盘下，视个⼈情况⽽定，关键是这个数据库所在的路径3、打开VS.2005 在设计区添加treeview控件,默认名字为treeview1 如下图4、点击项⽬——引⽤——COM 添加 如下图：5、在控件上点击右键选择查看代码：并输⼊代码如下图：Public Class Form1 Dim myconnection As New onnection() Dim MyAdapater As New ataAdapter() Dim mycommand As New ommand() Dim ds As New DataSet() Private Sub Form1_Load(ByVal sender As , ByVal e As rgs) Handles tionString = "Provider=.4.0;Data Source=e:" dText = "select id,gjdmz from genjiediantable01" tion = myconnection Try () () Dim mysqlreader As ataReader = eReader () While () Dim tree_root As New TreeNode() tree_ = ue(0) tree_ = ing(1) (tree_root) End While Finally () End Try All() () End SubEnd ClassF5 运⾏调试出现下图代码分析：全⽂的精华1、定义公⽤变量Dim myconnection As New OleDb. ‘连接Access数据库，则可以使⽤OleDB来实现。定义⼀个数据库连接，表⽰到数据源的连接是打开的。Dim ds As New 定义⼀个数据集，与数据库的表相对应 Dim MyAdapater As New OleDb. 定义⼀个数据库接⼝ 相关内容在 Dim mycommand As New OleDb. ’定义数据库连接命令 明天再分析，有点累了！接着昨天的分析myconnection. = "Provider=.4.0;Data Source=e:" '数据库连接字串 mycommand. = "select id,gjdmz from genjiediantable01" ’数据库连接命令 意思是在表中genjiediantable01中查询所有根结点的编号和名称，对应的是id,gjdmz 两个字段 mycommand. = myconnection 连接数据库并执⾏相关的命令 Try myconnection. ‘关闭到数据源的连接 myconnection.’连接池中提取⼀个打开的连接（如果有可⽤的连接）。否则，它就建⽴⼀个到数据源的新连接Dim mysqlreader As OleDb. = mycommand. ‘将 CommandText 发送到 Connection 并⽣成⼀个 OleDbDataReader。

.

While mysqlreader.‘OleDbDataReader 的默认位置在第⼀条记录前⾯。因此，必须调⽤ Read 来开始访问任何数据 Dim tree_root As New TreeNode()’ 定义⼀个表⽰ 控件中的节点。 tree_ = mysqlreader.把编号放⼊tag中 tree_ = mysqlreader.’树上显⽰的是根节点名称gjdmz

.(tree_root) End While Finally myconnection. End Try

TreeView1. '打开树中的每个节点 TreeView1. '选择 TreeView