Using ADO Query Results to Fill ComboBox

[cstimart]

When using ADO to extract data to excel, is it possible to use 'CopyFromRecordset' to fill a Combo/Listbox?

Or is it easiest to extract the data to a worksheet and fill the box from there?

 

[RoryA]

Try adding this function:

Function TransposeGetRows(varData) As Variant
   Dim lngRow As Long, lngCol As Long
   Dim varOut()
   ReDim varOut(1 To UBound(varData, 2) + 1, 1 To UBound(varData, 1) + 1)
   For lngRow = LBound(varData, 2) To UBound(varData, 2)
      For lngCol = LBound(varData, 1) To UBound(varData, 1)
         varOut(lngRow + 1, lngCol + 1) = varData(lngCol, lngRow)
      Next lngCol
   Next lngRow
   TransposeGetRows = varOut
End Function

and then use:

            If IsArray(arrvalues) Then
           .List = TransposeGetRows(arrValues)

 

[cstimart]

What's in arrValues when you get the error?

Is it just one value, one record, or multiple records?

I was just Researching that, and say that the first record was blank...so I altered my SQL to include "WHERE [Name] Is Not Null".

All seems to be working now!!!

Thanks!