VBAコンボボックスにDBからの値を表示させたい

Question

DBから値を配列として受けとるところまでは出来たのですが、コンボボックスに入れ込むことができません。
DBはSQLSERVER2014を使っています。
M_TANTOSHAテーブルからTANTOSHA_IDを取り出してコンボボックスに入れたいです。

Sub conDB()

    Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim CON As String
    
    
    '↓DB接続情報
    CON = "Provider = SQLOLEDB;"
    CON = CON & "DATABASE=******;"
    CON = CON & "UID=******;"
    CON = CON & "PWD=*******;"
  
      strSQL = "select TANTOSHA_ID from M_TANTOSHA"
     
      Set rs = New ADODB.Recordset
      
      rs.Open strSQL, CON
      
      rs.MoveFirst
      
      
      Dim i As Long, hairetsu As Variant
      hairetsu = rs.GetRows()
    
      rs.Close

      For i = 0 To UBound(hairetsu, 2)
      Debug.Print hairetsu(0, i)
      Next i
     
     Set rs = Nothing
     Exit Sub
    
End Sub

再投稿↓

Private Sub ComboBox1_Change()
Dim db As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim strSQL As String
    Dim CON As String
    
    
    
    'DB??????i?[
    CON = "Provider = SQLOLEDB;"
    CON = CON & "DATABASE=****;"
    CON = CON & "UID=*****;"
    CON = CON & "PWD=*****;"
  
     
     
      
      '1.SQL????o?????V?[?g????
      
       strSQL = "select TANTOSHA_ID from M_TANTOSHA"
      
      Set rs = New ADODB.Recordset
      
      rs.Open strSQL, CON
      
      rs.MoveFirst
      
      Dim i As Long, hairetsu As Variant
      hairetsu = rs.GetRows
      
      rs.Close
      
      'このような感じで試していました。
      '1行だけ表示されたり、何も表示されなかったりします。
      ComboBox1.AddItem
      ComboBox1.List(0, 1) = hairetsu(0, 1)
 
     Set rs = Nothing
     Exit Sub
    
End Sub

Comments

[ttyp03]

コンボボックスを操作しているコードが見当たりませんが、コンボボックスにアイテムを追加する方法自体がわからないのでしょうか？

[ttyp03]

コンボボックスはシート上にあるのでしょうか？フォーム上でしょうか？フォームコントロールのコンボボックスでしょうか？ActiveXのコンボボックスでしょうか？

[rikaruto]

説明不足で申し訳ございません！フォーム上にコンボボックスがあります。

[rikaruto]

コンボボックスに入れようとしたものを再度投稿させていただきます。

Answer 1

単純にこんなのでよいと思いますが。

For i = 0 To UBound(hairetsu, 2)
      ComboBox1.AddItem hairetsu(0, i)
Next i

Comments

[rikaruto]

ありがとうございます。
コンボボックスに表示させることができました。
ただ、コンボボックスを選択し直すと同じ内容が増えていくので、そこは自分で考えてみます！

[ttyp03]

ループで回す前にコンボボックスの初期化が必要でしたね。
ComboBox1.Clear

[ttyp03]

あと、後出しで申し訳ないですけど、１次元配列に変換すればListに直接放り込むことができます。

arr = WorksheetFunction.Transpose(hairetsu)
ComboBox1.List = arr

[rikaruto]

追加で回答をいただき感謝します。
ループで回すようにすると、どうにも動作がおかしくなります。引き続き、試行錯誤してみます。
1次元配列を試してみると、同じ内容は表示されずに、DBの抽出結果のみ表示させることができました。
ご親切に教えて頂き、ありがとうございます。