ComboBox和DataComBo的选择

Question

要将SQL SEVER数据库某字段值传至下拉列表框中，不知ComboBox和DataComBo那个控件更适合？

Answer 1

我习惯用；    Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
    Do Until Rs.EOF
        Combo1.AddItem Rs.Fields("FirstName")
        Rs.MoveNext
    Loop

Answer 2

DataComBo也很好用
Private Sub txtHamletCodei_Click(Area As Integer)
'==========================
            sQuery = "SELECT  * FROM tblhamletcodei where hamletcode='" & txtHamletCode.Text & "'" 
            Set rsCmms = cnnCMMS.Execute(sQuery)
            Set txtHamletCodei.RowSource = rsCmms
            txtHamletCodei.ListField = "hamletcodei"
        '==========================
End Sub

Answer 3

DataComBo可以用对象绑定
objrs.open "sql",conn,3,1
 DataComBo.ListField = ""
 DataComBo.DataField = ""
 DataComBo.DataSource = objrs
 DataComBo.RowSource = objrs
 DataComBo.ListField = "字段"
 DataComBo.DataField = "字段"
用combobox可以循环赋值

Answer 4

DataComBox
你明智的选择