Question

VB中，如何把数据库内容引入combox下拉列表中

数据库名称：参数；表名称：尺寸；有3个字段A、B、C
1.如何把access中字段A的值显示在combox下拉列表中
2.如果选中列表中某一值，可以把同一行的B、C字段值写入B.text、C.text
我没什么分了，请高手帮帮忙，感激不尽
根据我提供信息，写一段combox的click事件代码？

Answer 1

添加内容到combox中：
dim con as new adodb.connection
dim rs as new adodb.recordset
private sub form_load() '在窗体加载事件中，设置两个文本框内容为空，
B.text="" '设置文本框B内容为空
C.text="" '设置文本框C内容为空
打开数据库连接
con.open "Provider=Microsoft.Jet.OLEDB.4.0;data source=参数.mdb;persist security info=false"
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸",con,1,3
if rs.eof=false and rs.bof=false then
rs.movefirst
while not rs.eof
combox.additem.rs.fields("A") '添加内容到combox中
rs.movenext
wend
end if
end sub
private combox_click()
if rs.state<>adstateclosed then rs.close
rs.open "select * from 尺寸 where A='" & combox.text & "'",con,1,3
if rs.eof=false and rs.bof=false then
B.text=rs.fields("B") '将查找到的内容分别赋给文本框B、C
C.text=rs.fields("C")
end if
end sub

追问

大哥啊，这段代码怎么运行不起来啊，我的QQ：55828281
我们在详细交流
谢谢你的回复

追答

如何运行不起来，提示什么错误贴上来，我看一下

追问

你看看把,还有我已经右击ADODC1控件，设置好它的属性，所以在程序中就不要用代码来连接数据库了，麻烦您重新帮我一下吧，我急需啊

追答

我白天上不了QQ，在公司不行，你是发送图片了吗，我看不到呀
你别用ADODC1控件，在引用中添加ADO对象，然后再使用这个代码试试

Answer 2

我用了第一段的代码，但是提示的是：实时错误 '-2147217904（），至少一个参数没有被指定值，请上次帮我解答过的好心人再次帮忙 ，
还有就是ADO的全称是什么，和Adodc1有什么区别