求教大神 vb.net TreeView.nodes.add 无法再tree上显示出项目

vb.net 专栏收录该内容
1 篇文章 0 订阅

这段代码也是从论坛上学习来的

直接上代码,代码有的地方多余,请忽略。程序可以正常走完,DB里的内容也能读出来,就是代码结束的时候,tree上还是空的

    Public Ole_Con As OleDbConnection                     'DB文件链接声明
    Public Ole_Com1, Ole_Com2 As OleDbCommand              '对TreeView访问DB时,需访问根节点和子节点
    Public Ole_D_read1, Ole_D_read2 As OleDbDataReader
    Public sql As String                             'table文件名字符串
    Public Ole_D_Adap As OleDbDataAdapter                    '定义一个数据库借口 table文件引用
    Public Da_Set As DataSet                             '定义一个数据集,与数据库的表相对应
    Public CnStr As String = Para_DB_Cnstr()              'PARA DB文件位置
    Public SysStr As String = SYS_DB_Cnstr()            '系统 DB文件位置

    Public Function SYS_DB_Cnstr() As String
        Return "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\SYS_DB1.mdb"
    End Function

Sub Sub_TV1_Main()

 

        Ole_Com1 = New OleDbCommand                          '对应根结点重新声明
        Ole_Con = New OleDbConnection(SysStr)                '获取文件路径

 


        Ole_Com1.CommandText = "select ID,Name0 from LOG1_TV1_L0" '
        Ole_Com1.Connection = Ole_Con

 


        Try
            Ole_Con.Close()                      '关闭数据源的链接
            Ole_Con.Open()                       '打开链接(如果有可用的链接,否则就建立一个到数据源的新链接)
            Ole_D_read1 = Ole_Com1.ExecuteReader '将commandtext发送到connection并生成一个oledbdatareader

 

            LOG1.TV1.Nodes.Clear() '
            While Ole_D_read1.Read()               'oledbdatareader的默认位置在第一条记录前面。因此,必须调用read来开始访问任何数据
                Dim tree_root As New TreeNode() With {   '定义一个表示TreeView控件中的一个节点
                    .Tag = Ole_D_read1.GetString(0), '把编号方静tag中,选择ID
                    .Text = Ole_D_read1.GetString(1)  '树上显示根节点名称,选择Name0
                    }
                LOG1.TV1.Nodes.Add(tree_root) '这边的tree root内可以正常读出DB里的内容

 

            End While
        Catch ex As Exception
            'MessageBox.Show(ex.ToString, "DB導入失敗", vbOKOnly)
        Finally
            Ole_Con.Close()

 

        End Try

        LOG1.TV1.ExpandAll() '
        LOG1.TV1.Select() '
    End Sub

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 打赏
    打赏
  • 扫一扫,分享海报

参与评论 您还未登录,请先 登录 后发表或查看评论
©️2022 CSDN 皮肤主题:大白 设计师:CSDN官方博客 返回首页

打赏作者

weixin_44083805

你的鼓励将是我创作的最大动力

¥2 ¥4 ¥6 ¥10 ¥20
输入1-500的整数
余额支付 (余额:-- )
扫码支付
扫码支付:¥2
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值