vb 6.0 + sql combo 与 text 问题

Question

各位高手们  首先谢谢大家给我讲解上次的两个问题  可帮了我大忙了。小弟又出现新问题了，麻烦大家指教指教
我用 combo 调用tbs_xsxx表中的 name字段， 想要  text 中出现tbs_xsxx表中相应的字段 class 描述有问题，例子如下：
tbs_xsxx
name   class
张明   三年级五班
李科   五年级四班
……   ……
……   ……
现在在form窗体中，有combo1  text1我想让  点combo1中的 张明  在 text1中就出现  三年级五班
        点combo1中的 李科  在 text1中就出现  五年级四班请高手们指教指教！！！

Answer 1

'用查询语句 "select class From tbs_xsxx where name='" & trim(combo1.text) & "'"
'找到对应的班级

Answer 2

是在combo1_chick里面写这个代码吗？
能不能详细点 谢谢！！  我等得真辛苦啊！！谢谢沙发！！

Answer 3

slq = “select name  class from...”建立个collection。
combo。add rs（0)
col.add rs(1)combol_click
text = col(combo.listindex + 1)
end sub
看的懂吧。

Answer 4

你用DATA控件、ADO控件、ADO代码？与数据库衔接

Answer 5

用DATACOMBOL 直接绑定字段就可以了

Answer 6

Adodc 控件 连接数据库  现在SQL 的查询语句已经OK了 就是 在VB中的代码不知道怎么写！！！

Answer 7

Private Sub Combo1_Click()
Dim sql As String
sql = "select class from tbs_xsxx where name='" & Trim(Combo1.Text) & "'"
Text1.DataField = Adodc1.Recordset.Fields("class")
Text1.Text = Adodc1.Recordset.Fields("class")
End Sub
这样是可以将查询的班级赋给text1，只能将第一个赋给text1，而选择其他学生时，text1中的值不变.麻烦各位帮帮忙,马上要考试了！！

Answer 8

'combo1_chick里面写这个代码
Private Sub Combo1_Click()
IF trim(combo1.text)<>"" then
Adodc1.RecordSource ="select class From tbs_xsxx where name='" & trim(combo1.text) & "'"
Adodc1．Refresh 
text1.TEXT=Adodc1.Recordset.Fields(0)
else
text1.TEXT=""
endif
End Sub

Answer 9

既然有adodc1，直接使用就可以了Private Sub Combo1_Click()
    With Adodc1.Recordset
        .MoveFirst
        
        Do
            If .Fields("name") = Trim(Combo1.Text) Then
                Text1.Text = .Fields("class")
                Exit Do
            End If
            
            .MoveNext
        Loop Until .EOF
    End With
    End Sub

Answer 10

这样的问题提出者一般都是采用控件连接
本来二楼就是正解
但是估计给出这样的代码楼主不会用
代码确实是写在combo1_click 里面，但是这是采用代码连接的方法 估计这条sql不适合你