在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中填充組合框

回答

相關問題