Заполнение выпадающих списков на пользовательской форме из динамических результатов sql

Question

У меня простая пользовательская форма с двумя списками. Первый содержит выбор из 2 SQL-серверов. Второй должен содержать список баз данных с выбранного сервера, заполненный запросом - это в настоящее время не работает.

Я могу скопировать данные из набора записей в лист в моей книге, но не в поле со списком.

Ранее я заполнил выпадающие списки, обернув через значение на xlveryhidden листа без проблем:

For i = 1 to i = LastRow 
UserForm1.ComboBox2.AddItem Range("A" & i) 
next i 

Это моя попытка скопировать данные из записей до сих пор:

Dim i As Integer 
Do Until i = rst.RecordCount 
UserForm1.ComboBox2.AddItem rst.getrows(1, i) 
i = i + 1 
Loop 

Это вызывает ошибку несоответствия типа. Не уверен, что я на правильном пути.

Кто-нибудь знает, как заполнить поле со списком результатов из SQL-запроса, лежащего в наборе записей? Любая помощь очень ценится.

Answer 1

Существует нет необходимости в цикле:

If Not rst.EOF then Me.ComboBox2.Column = rst.getrows() 

должно быть достаточно, чтобы поставить весь набор записей в элемент управления. GetRows возвращает массив, перенесенный с того, как вы могли ожидать, поэтому я использовал. Колонна, а не .List