DBから値を配列として受けとるところまでは出来たのですが、コンボボックスに入れ込むことができません。
DBはSQLSERVER2014を使っています。
M_TANTOSHAテーブルからTANTOSHA_IDを取り出してコンボボックスに入れたいです。
VBA
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
再投稿↓
VBA
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
まだ回答がついていません
会員登録して回答してみよう