Question

我在Microsoft Visual Basic 6.0中有一个组合框。我必须在组合框中添加项目。这些项存储在Column1中的表中的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。

在Microsoft Visual Basic 6.0中填充组合框

1 个答案: