如何将字段内容显示在combo1中

Question

添加了用户后,希望在登录界面中,将所有用户自动添加至combo1中,如何操作?

Answer 1

我这样写,但得出的是字段名,不是字段内容Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\visit.mdb;Persist Security Info=False"
rs.Open "select * from record ", con
Dim fld
For Each fld In rs.Fields
 Combo1.AddItem fld.Name
 Next fld
 rs.Close
 con.Close

Answer 2

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\visit.mdb;Persist Security Info=False"
rs.Open "select * from record ", con
combo1.clear
do while not rs.eof
    Combo1.AddItem rs(你要加的那个字段).value
    rs.movenext
loop

Answer 3

Combo1.AddItem fld.Name
=========================
改成
Combo1.AddItem fld.value