Question

EXCEL中自带的VB编辑中，如何使用下拉框并绑定数据（数据来源于SQLserver）

第一步：EXCEL中选择COMBOX;
第二步：vb编辑中写代码连接数据库
第三步如何做？需要把查询到的数据绑定到combox。

Answer 1

Private Sub ComboBox2_Change()
If ComboBox1.ListCount = 0 Then
ComboBox1.Clear
strSQL="select aa from table1 where remark='" & ComboBox2 & "' order by aa"
rs.Open strSQL, cn
Do While Not rs.EOF
ComboBox1.AddItem rs("aa")
Loop
End If
End Sub