This one's more serious

[Guest]

I need help with this syntax... I have been able to successfully load my
ComboBox from a SQL Server Recordset. However, I am only getting one column
in my combo box, and I need both columns from the recordset to show. Can one
of you masters show me what is wrong with my code, or how to tweak it to make
the combo box load both columns of my query.

'Set Up cmbxCustomerSelection
With cmbxCustomerSelection
.ColumnCount = 2
.BoundColumn = 2
.TextColumn = 1
End With

'Load cmbxCustomerSelection
Do While Not adoRsA.EOF
cmbxCustomerSelection.AddItem adoRsA(0).Value
adoRsA.movenext
Loop


Much appreciation!
DBAL

 

[Robin Hammond]

DBAL,

Try this:

Do While Not adoRsA.EOF
cmbxCustomerSelection.AddItem adoRsA(0).Value
cmbxCustomerSelection.List(cmbxCustomerSelection.ListCount - 1,1) =
adoRsA(1).Value
adoRsA.movenext
Loop

Robin Hammond
www.enhanceddatasystems.com

 

[Guest]

Robin has already shown you one way. This is another way. Here you first
store all the values in an array (from a recordset) and then use them to fill
the list box all at once.

Sub test()

Dim a2DimArray(1 To 4, 1 To 2) As String
a2DimArray(1, 1) = "a1"
a2DimArray(2, 1) = "a2"
a2DimArray(3, 1) = "a3"
a2DimArray(4, 1) = "a4"
a2DimArray(1, 2) = "b1"
a2DimArray(2, 2) = "b2"
a2DimArray(3, 2) = "b3"
a2DimArray(4, 2) = "b4"

With Sheet1
.ListBox1.List = a2DimArray
End With
End Sub


Alok Joshi

 

[Guest]

Very nice Robin. I'll give this a try. Thanks alot!
DBAL.

 

[Guest]

Ahh Alok, thanks again. I will keep this solution handy... I am going to try
the other way first. But I am wondering, if I had mulitple columns to work
with would the array method be the best one?

Either way, thanks!

DBAL.