Question

VB中怎么把ACCESS中某个表的一列数值，加到combobox的下拉列表中？初学VB，请大家多帮帮忙，

Answer 1

菜单“工程”-“引用锋睁搭”，找银拿到以早锋下库打勾：
Microsoft ActiveX Data Objects 2.x Library
Microsoft ActiveX Data Objects Recordset 2.x Library
代码：
Dim cnn as ADODB.Connection
Dim rs as ADODC.Recordset

Cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="ACCESS文件.mdb;Persist Security Info=False"
cnn.Open
rs.Open "select field1 from table1", cnn, adOpenForwardOnly, adLockReadOnly.adCmdText
combo1.Clear
Do While Not rs.EOF
combo1.AddItem rs.Fields(0) & ""
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing

追问

您好感谢你的回答，但是似乎不需要那么麻烦，应该有用到data控件，怎么把data控件里的数据取出来赋值给combobox或者textbox，不是设置datafield

追答

你是要设置一张列表而不是单个值，没法用简单的绑定的方式显示数据的。

追问

是不是用绑定，比如data控件绑定了数据库XXX.mdb，recordsource设置为某张表的一列。
那能不能把这一列的数据取出来然后用循环语句加到combobox下拉列表中？

追答

用循环添加数据就是上面我的代码。DATA控件没包含记录集对象，无法自己取数据，ADODC可以，不过记录移动会影响到其他绑定的控件的显示。
用DATA绑定时，Database指定数据库文件，Recordsouce指定表，绑定控件（比如文本框）的DataSource指定DATA控件，DataField指定字段。如果用combo绑定，只能显示某条记录的字段，无法显示一张列表。

追问

combobox不是想要绑定，不过从想从access中取出数据然后赋值给其他控件是不可能通过data控件的？只能用ado吗？

追答

没看懂你说的什么
有问题HI我，没必要在这浪费财富