在 Microsoft Visual Basic 6.0 中填充组合框答案

【问题标题】：Populate combobox in Microsoft Visual Basic 6.0在 Microsoft Visual Basic 6.0 中填充组合框
【发布时间】：2012-08-13 18:38:14
【问题描述】：

我在 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

我不知道如何从这里处理。

【问题讨论】：

您的标签显示 VB6，您的代码示例是 VB6，但您使用的是 Visual Studio 2003，它适用于 Visual Basic.NET - 与 VB6 完全不同。您打算使用 .NET 还是坚持使用 VB6？根据您使用的是 VB6 还是 VB.NET，您对原始问题的回答会非常不同。
对不起，我使用的是 Microsoft Visual Basic 6.0 而不是 .Net。我打算坚持使用 VB6
好的。您不能为此使用 Visual Studio 2003。您需要使用 VB6 编辑器或 Visual Studio 6.0。我对我的 VB6 生疏了，所以我现在就闭嘴，让 VB6 开发人员回答最初的问题，因为这已经得到澄清。

标签： sql sql-server-2008 vb6

【解决方案1】：

一旦你有了一个记录集，你只需遍历记录并将它们添加到 ComboBox 中。应该这样做：

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

显然，您需要将myColumn 替换为表中的实际列名。

【讨论】：