0

ボタンをクリックすると、作成したすべてのデータベースがコンボ ボックスに入力されます。別のボタンは、新しいデータベースを作成します。コンボボックスを更新して新しく追加したデータベースを追加するにはどうすればよいですか?

最初にコンボボックスにデータを入力する方法は次のとおりです。

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
4

2 に答える 2

1

データベース名が手元にある場合は、次の簡単な問題があります。

Combo1.AddItem "<new database name>"

それ以外の場合は、ソースからデータベース リストを更新する必要があります。

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
于 2013-10-28T21:56:57.860 に答える