Question

vb中关于treeview添加access数据库问题！！！急急急！！！

本人有一个鸟类名录数据表（鸟类名称，居留型，保护级别等），其中保护级别有（Ⅰ，Ⅱ，Ⅲ，无 这四类），居留型有（冬候鸟，夏侯鸟，留鸟，旅鸟，其它），想要完成如下treeview式样

保护级别
--国家一级
-----数据表中保护级别为 Ⅰ 的鸟类名称
--国家二级
-----数据表中保护级别为 Ⅱ 的鸟类名称
--国家三级
-----数据表中保护级别为 Ⅲ 的鸟类名称
--其它
-----数据表中保护级别为 无 的鸟类名称
居留型
--冬候鸟
-----数据表中居留型为 冬候鸟 的鸟类名称
--夏候鸟
-----数据表中居留型为 夏候鸟 的鸟类名称
--留鸟
-----数据表中居留型为 留鸟 的鸟类名称
--旅鸟
-----数据表中居留型为 旅鸟 的鸟类名称
--其它
-----数据表中居留型为 其它 的鸟类名称

请问如何实现！！！急急急！在线等！谢谢

Answer 1

Private Sub Form_Load()

Dim myconn As ADODB.Connection
Dim myrst As ADODB.Recordset

Dim cnstr As String

Set myconn = New ADODB.Connection
Set myrst = New ADODB.Recordset
cnstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\****.mdb;Persist Security Info=False" '这里的****是你的数据库名称
myconn.Open cnstr
myrst.Open "select * from ****", myconn, adOpenStatic, adLockOptimistic '这里的****是你的数据表的名称

axTreeView.Nodes.Add , , "居留型", "居留型"
axTreeView.Nodes.Add , , "保护级别", "保护级别"

axTreeView.Nodes.Add "保护级别", tvwChild, "国家一级", "国家一级"
axTreeView.Nodes.Add "保护级别", tvwChild, "国家二级", "国家二级"
axTreeView.Nodes.Add "保护级别", tvwChild, "国家三级","国家三级"
axTreeView.Nodes.Add "保护级别", tvwChild, "其它", "其它"

axTreeView.Nodes.Add "居留型", tvwChild, 冬候鸟", "冬候鸟"
axTreeView.Nodes.Add "居留型", tvwChild, "夏候鸟", "夏候鸟"
axTreeView.Nodes.Add "居留型", tvwChild, "留鸟", "留鸟"
axTreeView.Nodes.Add "居留型", tvwChild, "旅鸟", "旅鸟"
axTreeView.Nodes.Add "居留型", tvwChild, "其它2", "其它"
myrst.MoveFirst
For i = 0 To myrst.RecordCount - 1
If myrst.Fields("保护级别") = "国家一级" Then
axTreeView.Nodes.Add "国家一级", tvwChild, "niao", myrst.Fields("鸟类名称")
End If

If myrst.Fields("保护级别") = "国家二级" Then
axTreeView.Nodes.Add "国家二级", tvwChild, "niao2", myrst.Fields("鸟类名称")
End If
If myrst.Fields("保护级别") = "国家三级" Then
axTreeView.Nodes.Add "国家三级", tvwChild, "niao3", myrst.Fields("鸟类名称")
End If

If myrst.Fields("保护级别") = "其它" Then
axTreeView.Nodes.Add "其它", tvwChild, "niao4", myrst.Fields("鸟类名称")
End If

If myrst.Fields("居留型") = "冬候鸟" Then
axTreeView.Nodes.Add "冬候鸟", tvwChild, "niao5", myrst.Fields("鸟类名称")
End If
If myrst.Fields("居留型") = "夏候鸟" Then
axTreeView.Nodes.Add "夏候鸟", tvwChild, "niao6", myrst.Fields("鸟类名称")
End If
If myrst.Fields("居留型") = "留鸟" Then
axTreeView.Nodes.Add "留鸟", tvwChild, "niao7", myrst.Fields("鸟类名称")
End If
If myrst.Fields("居留型") = "旅鸟" Then
axTreeView.Nodes.Add "旅鸟", tvwChild, "niao8", myrst.Fields("鸟类名称")
End If
If myrst.Fields("居留型") = "其它" Then
axTreeView.Nodes.Add "其它2", tvwChild, "niao9", myrst.Fields("鸟类名称")
End If

myrst.MoveNext
Next i
End Sub

多给点分吧 好辛苦的！

Answer 2

--夏候鸟
-----数据表中居留型为 夏候鸟 的鸟类名称