香奈儿五件套:VB treeview+数据库
来源:百度文库 编辑:九乡新闻网 时间:2024/04/27 18:29:23
数据库连接参数设置
'*****定义数据库连接参数
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
.(原创内容,请勿转载)