在Microsoft Visual Basic 6.0中填充组合框

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

注意：该表只有一列。

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

'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

我不知道应该怎么处理。

来源

2012-08-13 Ish

你的标签说的是VB6，而你的代码示例是VB6，但是你使用Visual Studio 2003，这是Visual Basic.NET--一个与VB6非常不同的东西。你打算使用.NET还是坚持使用VB6？您对原始问题的回答是非常不同的，具体取决于您是使用VB6还是VB.NET。 – David 2012-08-13 18:45:59

对不起，我正在使用Microsoft Visual Basic 6.0而不是.Net。我打算坚持用VB6 – Ish 2012-08-13 18:49:22

行。你不能使用Visual Studio 2003。您需要使用VB6编辑器或Visual Studio 6.0。我在VB6上生锈了，所以我现在闭嘴，让VB6开发人员回答最初的问题，现在已经澄清了。 – David 2012-08-13 18:50:41

一旦你有一个记录集，它只是循环遍历记录并将它们添加到组合框的问题。像这样的东西应该做到这一点：

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

显然，您需要从表中实际列名来代替myColumn。

来源

2012-08-13 21:03:25 Antagony

在Microsoft Visual Basic 6.0中填充组合框

回答

相关问题