当前位置:系统粉 > 电脑问答 > 其他问答 > 如何在一个VB的组合框COMBO中显示数据库一列的所以有记录

如何在一个VB的组合框COMBO中显示数据库一列的所以有记录

提问者:fallen妖孽  |  浏览 次  |  提问时间:2017-01-28  |  回答数量:2

如何在一个VB的组合框COMBO中显示数据库一列的所以有记录 RT 数据库连接已经做好,现在有想把COMBO的LIST里全是表A中B列的所有记录,如何打代码?

已有2条答案
哦……这样啊

哦……这样啊

回答数:44  |  被采纳数:127

2017-01-28 07:47:56
Private Sub Form_Load()
Dim conn As New ADODB.Connection
conn.Open "Provider='Microsoft.JET.OLEDB.4.0';Data source = c:\1.mdb"
Dim rs As New Recordset
rs.Open "select B from A", conn
rs.MoveFirst
While Not rs.EOF
Combo1.AddItem rs.Fields("B").Value
rs.MoveNext
Wend
End Sub
赞 4
liberty

liberty

回答数:124  |  被采纳数:65

2017-01-28 07:47:51
又学到东西了,再次谢过版主!
赞 12
解决方法
版权信息

Copyright @ 2011 系统粉 版权声明 最新发布内容 网站导航