Question

VB中用treeview已Access（含多个表）的表名按分类建立有层次的结构树

以一个机器为例，在一个数据库中，有一个“机器”数据库有，库中的记录是这台机器中的所以部件;"部件表"若干，该部件表的记录中存放的是构成该部件的零件或部件的记录，以此类推建立起一个机器的分解图。
（注：零件是不能再向下分解的；而部件可以再向下分解成其他部件或零件直至全部分解成不能再分解的零件。）

我现在已经在Access中建立起了该机器的所有部件、零件表，表中我特别设置了 “零部件代号”和“有无子节点”两个字段，且将“零部件代号”设为主键，“有无子节点”的取值为0或1，取值为0 则无子节点，是零件，为1则有子节点，是部件，可以继续分解 。

至于下面的步骤就不太会了，至于如何连接数据库，如何打开表，如何获取表中记录数并指向第一条记录，如何把各个表中的记录提取出来并填充到树上作为节点就不知道了。

那位大侠能提供一下代码，本人不胜感激！并奉上本人所有的所有分数！
程序最好是vb6.0的，而不是其他vb类型。本人非计算机类专业，水平有限，呵呵~~，不过还是相当感谢大家的回答

Answer 1

数据库这样设计
部件表(Id,Name)
零件表(Id,partId,Name)

公共模块
___________________________________
Private conn As New ADODB.Connection

Public Sub OpenConn()
'text.mdb改成你的Access数据库名
With conn
If .State = adStateClosed Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "/text.mdb;Persist Security Info=False"
.Open
End If
End With
End Sub

Public Function OpenRecordset(ByVal strSql As String) As ADODB.Recordset
Dim rs As New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open strSql, conn, , , adCmdText
End With
Set OpenRecordset = rs
End Function

Public Function RunTrans(ByVal tranSql As String)
With conn
.BeginTrans
.Execute tranSql
.CommitTrans
End With
End Function

窗体,trv是TreeView控件
_____________________
Dim root As Node
Private Sub Form_Load()
Dim strSql As String
Dim rs As ADODB.Recordset, prs As ADODB.Recordset
Dim cnode As Node, pnode As Node

OpenConn
Set root = trv.Nodes.Add(, , , "根节点")

strSql = "select * from 部件表"
Set rs = OpenRecordset(strSql)
Do While Not rs.EOF
Set cnode = trv.Nodes.Add(root, 4, , rs!Name)
cnode.Tag = rs!id

strSql = "select * from 零件表 where partid = " & rs!id
Set prs = OpenRecordset(strSql)

Do While Not prs.EOF

Set pnode = trv.Nodes.Add(cnode, 4, , prs!Name)
pnode.Tag = prs!id

prs.MoveNext

Loop

cnode.Expanded = True
rs.MoveNext

Loop
root.Expanded = True
End Sub