Question

VB6 datacombo操作Adodc控件

vb6.0
界面有一个adodc1控件，已经与数据库文件绑定。
有一个datacombo绑定字段姓名
有三个text分别绑定字段语文、数学、外语
经过在属性里面设定运行后datacombo里面自动显示所有姓名，text中自动显示各种成绩。
问题是：用adodc控件一个一个找姓名是非常麻烦的，我想选择datacombo中的姓名，然后使text中的各项成绩自动变为相对应的该人的成绩。要怎么做？

Answer 1

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\dbStu.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from stu "
Adodc1.Refresh
'Set DataGrid1.DataSource = Adodc1

If Adodc1.Recordset.RecordCount > 0 Then

For i = 0 To Adodc1.Recordset.RecordCount - 1
datacombo.AddItem Adodc1.Recordset.Fields("姓名")
datacombo.Refresh
Adodc1.Recordset.MoveNext
Next i
Else
MsgBox "没有数据"
End If
datacombo.ListIndex = "0"
Text3.Enabled = False
End Sub

Private Sub datacombo_Click()
Adodc1.RecordSource = "select * from tb_stu where 姓名='" + Combo1.Text + "'"
Adodc1.Refresh
Text1.Text = Adodc1.Recordset.Fields("语文")
Text2.Text = Adodc1.Recordset.Fields("数学")
Text3.Text = Adodc1.Recordset.Fields("外语")

End Sub