简单问题送高分!

Question

VB6+SQL
有一DATACOMBO (ROWsource为adodc1,LISTFIELD为field )和TEXT1\TEXT2控件 
现在要实现在DATACOMBO中选择一记录后,在TEXT1和TEXT2中分别显示该记录的两字段
大家给点提示啊 多谢多谢 解决立刻结帖给分

Answer 1

在datacombo的itemclick事件里写代码。datacombo该有个selectitem（indext as integht）的属性把它的值付给
Text1,Text2就可以了

Answer 2

'引用ADO(Microsoft ActiveX Data Objects 2.X Library)
Private Sub DataCombo1_Click()
    Dim cn As New ADODB.Connection, rs As New ADODB.RecordSet
    '连接SQL：
    cn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=yourSERVICE"
    cn.CursorLocation=adUseClient
    cn.Open
    rs.Open "select 字段1,字段2 from 表　where field='" & DataCombo1.Text & "'",cn,3,2
    If rs.EOF Then Exit Sub
    Text1.Text=rs("字段１")
　　Text2.Text=rs("字段２")　
　　rs.Close
    cn.Close　
End Sub

Answer 3

已测试的实例：
ADODC1，记录源为一个员工编号表
字段：员工编号，姓名，职位 
属性 DataCombo1.RowSource = Adodc1，DataCombo1.ListField="员工编号"
Private Sub DataCombo1_Change()
Adodc1.Recordset.Find "员工编号='" & DataCombo1.Text & "'"
Text1.Text = Adodc1.Recordset("姓名")
Text2.Text = Adodc1.Recordset("职位")
End Sub