ListBox w/ ADO 2

[DK47]

This code loads the symbols from the ado recordset just fine.
Can anyone tell me how to allow only unique items to be loaded? In otherwords, even if there are several records with the same symbol, the user only needs to see it once.



adoSymbols.RecordSource = "SELECT (Symbol) FROM Holdings WHERE Investor_Number = " & frmStartPage.txtInvestorNumber
adoSymbols.Refresh

With adoSymbols.Recordset
Do Until .EOF
lstSymbols.AddItem .Fields(0)
.MoveNext
Loop
End With

Thanks,
Dwight

 

[ToeJamNEarl]

you could try SELECT DISTINCT in your SQL. That way it will only grab symbols once.

 

[zemp]

Change your SQL statement by adding the keyword 'Distinct'. Try,

adoSymbols.RecordSource = "SELECT DISTINCT (Symbol) FROM Holdings WHERE Investor_Number = " & frmStartPage.txtInvestorNumber

Take Care,

zemp

"If the grass looks greener... it's probably because there is more manure."

 

[DK47]

Thanks Guys,
That was easy enough.
Regards,
Dwight