sql - 在 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中的实际列名替换。