高考问答生活中的谈判事例:VB，欲在列表框Combo的下拉菜单中显示数据库中一字段的值，请问怎么实现
来源：百度文库 编辑：高考问答 时间：2024/04/19 09:42:55
你可以加载Microsoft DataList Control6.0(OLEDB)
加载方法：在工具箱空白处点鼠标右键-》部件，在弹出的对话框中选择Microsoft DataList Control6.0(OLEDB)单击确定，工具箱中就会出现DataCombo控件和DataList控件，用它俩可以直接绑定到数据库。
这是一个几乎不用代码的好方法！
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
dim i as int
for i=0 to ado.记录数-1
combobox1.items.add(字段f[i].value);
大约是这样，好久没有用过vb