Question

vb中两个数据表的连接

有一个学生数据库里面有两个表
一个是学生信息表

还有一个是班级信息表

这两个表用 treeview 控件，用 班级 字段建立连接。
跟目录是 班级名称，子目录是 学生姓名。
在另一个窗口用给这个数据库进行编辑，添加班级时 treeview控件上多一个跟目录名字是班级名称，添加学生时 在相应的跟目录（班级名称）下加一个子目录，名字是 学生的姓名。
请高手帮忙写下代码？

Answer 1

Set node1 = TreeView1.Nodes.Add(, , "bm", " 部门")
sql = "select departname,departid from departinfo"
check.open sql,连接数据库字符串
check.MoveFirst
Do While Not check.EOF
key2 = Trim(check.Fields(1))
txt2 = Trim(check.Fields(0))
Set node2 = TreeView1.Nodes.Add(node1.Key, tvwChild, "A" & key2, txt2)
If baby.State = 1 Then baby.Close
sql = "select emploername,employerid from employerinfo where departid like '" & Trim(check.Fields(1)) & "%' and ccccode <> '" & check.Fields(1) & "'"
baby.Open sql, conn, adOpenStatic, adLockReadOnly
baby.MoveFirst
Do While Not baby.EOF
key3 = baby.Fields(1)
text3 = baby.Fields(0)
Set node3 = TreeView1.Nodes.Add(node2.Key, tvwChild, "B" & key3, text3, 1)
baby.MoveNext
Loop
check.MoveNext
Loop

大概意思是这样的，在我的程序里头是正确的，但是你给出的这两个表没有对应关系，找不到连接的字段，你再看看，员工表有没有departid字段，这段代码你可以稍微改动一下就可以了，希望能给你提供帮助.