Question

vb combobox控件 动态下拉菜单

我想让ComboBox控的下拉菜单是动态的,随着文本的数量变化而变化
比如: ACCESS 数据库里现在有三个文本,名称分别为aaa;bbb;ccc,
那么当我点下拉菜单时,就会有aaa;bbb;ccc这三个选项.
如果数据库里更新为五个文本,那个下拉菜单就有五个和文本名称一样的选项,谢谢

Answer 1

'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....

Dim cn As New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=123456"

Dim rst As New ADODB.Recordset
Dim SqlStr As String
SqlStr = "Select 字段名字 FROM 表的名字"
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText
Do While rst.EOF = False
Combo6.AddItem rst.Fields("字段名字").Value
rst.MoveNext
Loop