Microsoft Visual Basic 6.0에서 콤보 상자 채우기

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을 교체해야합니다.