Jag vill presentera min kod i en listbox men jag vet inte hur jag ska göra..Är det nån som kan jag hjälpa mig om det????


se nedan kod:

Private Sub Command2_Click()
Dim SQL, A As String
Set rsKvitto = New adodb.Recordset

SQL = "SELECT SUM(pris*antal) AS total, COUNT(antal) AS AntalCD " & _
" FROM kvitto INNER JOIN cd ON cd.cdID=kvitto.cdID " & _
" AND kvitto.kundID=kund.kundID AND kvitto.kundID=1 INNER JOIN kund " & _
" ON kund.kundID=kvitto.kundID GROUP BY namn,kund.kundID "

rsKvitto.Open SQL, dbkoppling, adOpenStatic

Do Until rsKvitto.EOF

.........HÄR KANSKE SKA VARA LISTBOX..............

rsKvitto.MoveNext
Loop

End Sub

Där du skriver att du ska ha en listbox är det väl bara att köra med listbox.additem massa parametrar, kolla själv vet ja'!

Jag föreslår att du använder en ListView. Eftersom du då kan ha flera kolumner.

Kan Ni skriv ett förslag om Listview, jag menar några kodar....Jag vill bara presentera kundens total summa som kunden handlar och antal CD(skivor).
Kundtabellen och CD tabellen har relation till kvitto tabellen....

Om ListView-kontrollen:
http://www.pellesoft.nu/login/articles/vb/listview_overview.asp

/Johan