Question

VBA连接SQL的问题

程序如下：在 'MsgBox (rs.GetString)’处是显示正确的，但是总起来运行的时候显示“无法设置List属性，属性阵列索引无效”

Private Sub UserForm_Initialize()
'连接数据库
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim SQL As String, cnnStr As String, mytable As String
'mytable = "Code"
'建立与SQL Server数据库服务器的连接
cnnStr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=false;Initial Catalog=future;Data Source=SAM-YU;User ID=SAM YU;Password=yuyr"
cnn.ConnectionString = cnnStr
cnn.Open

SQL = "select Name from Future_Code"
Set rs = cnn.Execute(SQL)
'MsgBox (rs.GetString)

VarietyFirs.List = rs
rs.Close
cnn.Close
Set rs = Nothing
End Sub

Answer 1

不知道 VarietyFirs是个啥对象，能否直接这么用，你试试
Set VarietyFirs.List = rs

追问

上面的不行，VarietyFirs是ComboBox（复合框）

追答

do while rs.eof=false
VarietyFirs.additem rs.fields(0).value
rs.movenext
loop
用上面代码代替那句

Answer 2

VBA中在 用户窗体中的 ComboBox可以设置 RowSource属性
比如：ComboBox1.RowSource=Sheet1.Range("A1:A3").Address
所以可以试试
试试VarietyFirs.RowSource = rs

但是如果 是直接在 Excel的插入的 这个控件就没有这个属性。【看你的代码是有用户窗体的~】