Question

VB，欲在列表框Combo的下拉菜单中显示数据库中一字段的值，请问怎么实现

Answer 1

你可以加载Microsoft DataList Control6.0(OLEDB)
加载方法：在工具箱空白处点鼠标右键-》部件，在弹出的对话框中选择Microsoft DataList Control6.0(OLEDB)单击确定，工具箱中就会出现DataCombo控件和DataList控件，用它俩可以直接绑定到数据库。

这是一个几乎不用代码的好方法！

Answer 2

dim rs as new adodb.recordset
.... '数据库连接等操作
.... '返回记录集

Combo1.clear

if not rs.eof then
rs.movefirst

'循环将每条记录值加入Combo控件
for i=0 to rs.recordcount-1
Combo1.add cstr(rs!字段名)
rs.movenext
loop
end if

...

rs.close
set rs=n0thing

Answer 3

dim i as int

for i=0 to ado.记录数-1
combobox1.items.add(字段f[i].value);

大约是这样，好久没有用过vb