黑鸭子歌曲下载小路:VB ADO treeview代码(转)
来源:百度文库 编辑:九乡新闻网 时间:2024/04/27 18:01:35
数据库连接参数设置
'*****定义数据库连接参数
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim sql As String '查询字符串
Dim filename As String '数据库名称
'Dim ctrFi '连接字符串
Dim nodX As Node '树形控件节点类型定义
连接并打开数据库:
'******连接并打开数据库**********
Public Sub connectdata()
'conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path _
& "\考生库.xls;Extended Properties='Excel 8.0;HDR=Yes'"
'sql = "select * from [sheet1$] where bmd_h='" & Trim(Combo1.Text) & "'"
' Conn.open "Provider=MSDASQL.1;Driver=Microsoft Visual Foxpro Driver; _
SourceDB=" & App.Path & ";SourceType=DBF; "
' sql = "select * from [考生库.dbf] where bmd_h='" & Trim(Combo1.Text) & "'"
filename = App.Path + "\" + "123.mdb"
ctrFi = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=" & filename
conn.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" '添加根节点
RS.Open sql, CONN, 1
If RS.RecordCount <> 0 Then
RS.MoveFirst
Do While RS.EOF = False
Set nodX = TreeView1.Nodes.Add(, , RS.Fields("usertype").Value, RS.Fields("usertype").Value, 3)
rs.MoveNext
Loop
End If
rs.Close
conn.Close
'--------------***添加子节点***
Call connectdata '调用过程连接数据库
sql = "select * from usere"
RS.Open sql, CONN, 1
If RS.RecordCount <> 0 Then
RS.MoveFirst
Do While RS.EOF = False
Set nodX = TreeView1.Nodes.Add(RS.Fields("type").Value, tvwChild, RS.Fields("user").Value, RS.Fields("user").Value, 2)
RS.MoveNext
Loop
End If
rs.Close
conn.Close