数据库连接参数设置
'*****定义数据库连接参数 Dim rs As New ADODB.Connection Dim bs As New ADODB.Recordset Dim sql As String '查询字符串 Dim filename As String '数据库名称 Dim ctrFi '连接字符串 Dim nodX As Node '树形控件节点类型定义
连接并打开数据库:
'******连接并打开数据库********** Public Sub connectdata() filename = App.Path + "\" + "123.mdb" ctrFi = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename rs.Open ctrFi End Sub
数据库中表与字段设置:
数据库名称:123.mdb
表一:
名称:usere
字段:user(字符型),type(字符型)
表二:
名称:typer
字段:usertype(字符型)
窗口上加入一个Imagelist控件,加入3个图标,再加入一个treeview控件,treeview控件图标属性与imagelis关联(即在treeview控件上点右键,选择图像列表里的imagelist1,必须先添加imagelist1控件才有显示)
添加节点代码:
TreeView1.LineStyle = tvwRootLines Call connectdata sql = "select * from typer" '添加根节点 bs.Open sql, rs, 1 If bs.RecordCount <> 0 Then bs.MoveFirst Do While bs.EOF = False Set nodX = TreeView1.Nodes.Add(, , bs.Fields("usertype").Value, bs.Fields("usertype").Value, 3) bs.MoveNext Loop End If bs.Close rs.Close '***添加子节点*** Call connectdata sql = "select * from usere" bs.Open sql, rs, 1 If bs.RecordCount <> 0 Then bs.MoveFirst Do While bs.EOF = False Set nodX = TreeView1.Nodes.Add(bs.Fields("type").Value, tvwChild, bs.Fields("user").Value, bs.Fields("user").Value, 2) bs.MoveNext Loop End If bs.Close rs.Close
|