Question

在VB中，如何把一个涉及到两个表间的SQL语句赋值到一个变量中

主要问题是这样的。有两个表，一个是tb_teacher，一个是tb_user，前面的含有教师的名称tName，后面的是用户登录表，有用户名name。假设现在有一教师用户名为t001,还定义了一个Aname作为显示在StatusBar中的用户名变量，在登录窗口已经将tb_user表中的name赋值给了Aname。现在我想把Aname从显示t001变成教师名字tName中的值。rs是已定义的数据集。cn是已定义的数据库连接对象。
SQL语句我已经写出来了，但是运行时始终只显示t001的教师名字，再用t002登录还是t001的。
代码：
Private Sub Form_Load()
rs.Close
sql = "select tb_teacher.tName from tb_teacher,tb_user where tb_teacher.teacherID=tb_user.name"
rs.Open sql, cn, 3, 1
Aname = Trim(rs.Fields("tName"))
StatusBar1.Panels(1).Text = "用户：" & Aname
End Sub

各位VB大神，拜托了~~

Answer 1

rs.Close
rs.Open "select * from tb_teacher where teacherID='" & Aname & "'", cn, 1, 1
Aname = Trim(rs.Fields("tName"))
StatusBar1.Panels(1).Text = "用户橘弊：" & Aname

这样就行了，调试通过了！你是select语句写错了，你这样写会输出三行数伏行据，tName不唯一，圆厅族所以会出现问题。

Answer 2

tb_teacher.teacherID=tb_user.name

我怀斗陪疑这里有问题，不过具体坦销悔看代码 才好说

多让正表查询参考这里
http://blog.csdn.net/prsniper/archive/2011/06/14/6542844.aspx

追问

我在查询分析器上把上面的SQL语句打上去能查出来。

Answer 3

你这消岁雹样当雀裤然拿帆只显示1条记录了
do while not rs.eof
msgbox Trim(rs.Fields("tName"))

rs.movenext
loop
rs.close

追问

按你这样输入的话，还是只能显示一个t003呀。。无论我打t001还是t002登录它显示的教师名还是t003的