分类

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

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

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

已有2条答案

哦……这样啊

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

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

2017-01-28 07:47:56

liberty

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

又学到东西了，再次谢过版主！

2017-01-28 07:47:51