sql - Microsoft VisualBasic6.0でコンボボックスにデータを入力します

Question

Microsoft VisualBasic6.0にコンボボックスがあります。コンボボックスにアイテムを追加する必要があります。これらの項目は、Column1のテーブル内のSQLデータベースに格納されます。ユーザーがさまざまなオプションを選択できるように、実行時にこれらのアイテムをコンボボックスに表示する方法がわかりません。

注：テーブルには1つの列しかありません。

これまでに書いたコードは次のとおりです。

'Public Function GetProvincialRidingRst() As ADODB.Recordset
'
'    Dim rst As ADODB.Recordset
'    Dim strSQL As String
'
'    strSQL = "Select * from ProvincialRidings"
'
'    Set rst = New ADODB.Recordset
'    rst.ActiveConnection = cn
'    rst.Open strSQL, , adOpenKeyset, adLockBatchOptimistic
'
'    Set GetProvincialRidingsRst = rst
'
'End Function

ここからの処理方法がわかりません。

Answer 1

レコードセットを取得したら、レコードをループしてComboBoxに追加するだけです。このような何かがそれをするべきです：

Combo1.Clear
With myRS
    Do While Not .EOF
        Combo1.AddItem ![myColumn]
        .MoveNext
    Loop
    .Close
End With

myColumn明らかに、テーブルの実際の列名に置き換える必要があります。