怎么在DBCombo里显示数据库中的数据?????

Question

我使用adodbc连接,
希望在dbcombo中将其中一个字段"姓名"全部显示出来/.
该怎么做,求代码

Answer 1

我使用combo控件
Private Sub addcombo()Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select * from mz order by id,mc", connDim I As Integer
I = 0
Do While Not rs.EOF
    Combo1.AddItem rs.Fields("mc")
    Combo1.ItemData(I) = rs.Fields("id")
    I = I + 1
    rs.MoveNext
Loop
Combo1.ListIndex = 0
End Sub

Answer 2

如果用dbcombo,使用datasource和datafield
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
rs.Open "select 姓名 from mz order by id,mc", conn
Set dbcombo1.DataSource = rsdatafiled可以在属性中指定