在 Microsoft Visual Basic 6.0 中填充组合框

Question

我在 Microsoft Visual Basic 6.0 中有一个组合框。我必须将项目添加到组合框中。这些项目存储在 SQL 数据库中 Column1 的一个表中。我不确定如何让这些项目在运行时显示在组合框中，以便用户可以选择不同的选项。

注：该表只有一栏。

这是我到目前为止编写的代码：

'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用表中的实际列名替换。