동적 SQL 결과에서 userform에 콤보 상자 채우기

Question

2 콤보 상자가있는 간단한 userform이 있습니다. 첫 번째는 2 개의 SQL 서버 중 하나를 선택할 수 있습니다. 두 번째 쿼리에는 선택한 서버의 데이터베이스 목록이 포함되어야합니다. 현재는 작동하지 않습니다.

레코드 집합의 데이터를 통합 문서의 시트에 복사 할 수 있지만 콤보 상자에는 복사 할 수 없습니다.

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

: 이것은 지금까지 레코드에서 데이터를 복사하는 나의 시도가

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

입니다 :

는 이전에 나는 아무 문제가있는 xlveryhidden 시트에 값을 통해 반복하여 콤보를 채운 유형 불일치 오류가 발생합니다. 내가 올바른 길을 가고 있는지 확실하지 않습니다.

누군가가 레코드 집합에있는 SQL 쿼리의 결과로 콤보 박스를 채우는 방법을 알고 있습니까? 어떤 도움을 많이 주셨습니다.

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

컨트롤로 전체 레코드를 넣어 충분히해야한다 :

Answer 1

루프에 대한 필요가 없습니다. GetRows는 예상했던 방식으로 배열을 바꿔서 반환합니다. 따라서 .Column과 notList를 사용했습니다.