Combobox 如何在Visual Basic中刷新组合框

单击一个按钮时，它会在一个组合框中填充您创建的所有数据库。另一个按钮创建一个新数据库。如何刷新组合框以添加新添加的数据库

下面是我在开始时填充组合框的方式：

rs.Open "show databases", conn
While Not rs.EOF
    If rs!Database <> "information_schema" Then
        Combo1.AddItem rs!Database
    End If
    rs.MoveNext
Wend
cmdOK.Enabled = False
cmdCancel.Enabled = False
frmLogin.Height = 3300

rs.Close

rs.打开“显示数据库”，康涅狄格州
而不是卢比
如果是的话！数据库“信息模式”
Combo1.AddItem rs！数据库
如果结束
下一个
温德
cmdOK.Enabled=False
cmdCancel.Enabled=False
frmLogin.高度=3300
rs.Close

您可以刷新组合框

Combo1.Refresh()

---

如果您手头碰巧有数据库名称，则只需执行以下操作：

Combo1.AddItem "<new database name>"

Combo1.AddItem“”

否则，应从以下源刷新数据库列表：

Sub RefreshDatabaseList(ByRef conn As Connection)

    Dim rs As Recordset

    ' Remove all previous entries.
    Combo1.Clear

    ' Rebuild the list.
    rs.Open "show databases", conn
    While Not rs.EOF
        If rs!Database <> "information_schema" Then
            Combo1.AddItem rs!Database
        End If
        rs.MoveNext
    Wend

End Sub

子刷新数据库列表（ByRef连接为连接）
将遥感器作为记录集
'删除以前的所有条目。
1.清楚
'重新生成列表。
rs.开放“展示数据库”，康涅狄格州
而不是卢比
如果是的话！数据库“信息模式”
Combo1.AddItem rs！数据库
如果结束
下一个
温德
端接头

如果有效，不要说谢谢。。在将项目添加到组合框后，接受应答将DoEvents添加到下一行。