使用 ADODB 记录集填充 Combobox

Question

我想从 Excel Vba（使用 ADODB）查询数据库，并用检索到的值列表填充 Combobox。 不幸的是，只有返回列表的最后一个值显示在下拉字段中。 我假设记录集是所有返回行的完整字符串，因此只有最后一个是可见的。

我搜索了该主题，但只能找到有关 Access 的信息，这似乎没有帮助。

这应该是代码的重要部分，如果需要我可以提供更多：

'-- Create database query
SQLStatement = "SELECT Project_Name FROM ressourceplanning.projects"

'-- Execute query
Recordset.Open SQLStatement, Connection

'-- Write report into combobox (dropdown)
RecordsetArray = Recordset.GetRows
UF_Delete_Project.Cb_DeleteProject.List = RecordsetArray
'UF_Delete_Project.Cb_DeleteProject.RowSourceType = RecordsetArray

最后一行在使用时会导致匹配类型（错误 13）。 但使用“RowSourceType”是迄今为止我找到的最佳答案。

记录集包含正确的值，因此数据库连接和查询本身就可以工作，它只是关于记录集的填充。

这里的代码对我有用：

RecordsetArray = Recordset.GetRows

For i = LBound(RecordsetArray, 2) To UBound(RecordsetArray, 2)
    UF_Delete_Project.Cb_DeleteProject.AddItem RecordsetArray(0, i)
Next i

感谢@braX 和@FunThomas

Answer 1

命令Recordset.GetRows将数据作为二维数组返回，但是，它以维度的“错误顺序”返回它们：第一个维度是FieldIndex ，第二个维度是RowIndex

RecordsetArray(0, 0)给出第一行的第一个字段， RecordsetArray(1, 0)给出第一行的第二个字段，而RecordsetArray(0, 1)给出第二行的第一个字段。

comboBox 的List属性期望数据为二维数组，但将行作为第一个索引，将字段作为第二个索引（您可以在组合框中显示多个列）。 所以你要做的是Transpose置你的数组：

UF_Delete_Project.Cb_DeleteProject.List = Application.WorksheetFunction.Transpose(pRecordsetArray)

但是， Transpose方法有一些限制（字段数、字符串的最大长度、无法处理Null ），因此如果遇到运行时错误 13（类型不匹配），可能更容易遍历记录集或 braX 在他的评论中建议的数组。