填充组合框在Microsoft Visual Basic 6.0(Populate combobox

我在微软的组合框的Visual Basic 6.0。 我要项添加到组合框。 这些项目在列1表内存储在SQL数据库。 我不知道如何让这些项目在运行时组合框显示，使用户可以选择不同的选项。

注：表中只有一列。

这是迄今为止我所编写的代码：

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

文章来源: Populate combobox in Microsoft Visual Basic 6.0