3 svar · 243 visningar · startad av Frexuz
Vill kolla igenom 3 kolumner och räkna hur många namn av varje det finns
tex om första namnet är 'Kristian' kollar man hur många Kristian det finns i de 3 kolumnerna och gör en COUNT på dom, sen ta nästa namn i kolumnen
sen kan det ju hända att 'Kristian' finns i alla kolumner, då ska man hoppa över den eftersom den redan ska vara räknad. alltså inga dubletter
Kanske såhär?
strSQL = "SELECT DISTINCT namn FROM tabell ORDER BY namn"
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then
Do Until objRS.EOF
intAntal = objConn.Execute("SELECT COUNT(*) FROM tabell WHERE namn = '" & objRS("namn") & "'")(0)
Response.Write(objRS("namn") & " finns det " & intAntal & "st av.")
objRS.MoveNext
Loop
End If
Set objRS = Nothing
det fungerar nästan till 1 kolumn.. men jag har 3 :(
hur kan jag göra det utan att få dubletter
http://frexuz.dyndns.org/sheepheads/stats.asp
här ser ni hur det blir
<%
Set objConn=Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/sheep.mdb")
strSQL = "SELECT map1,game FROM wars WHERE game = 'ctf' ORDER BY map1"
Set objRS = objConn.Execute(strSQL)
If NOT objRS.EOF Then
Do Until objRS.EOF
intAntal = objConn.Execute("SELECT COUNT(*) FROM wars WHERE map1 = '" & objRS("map1") & "'")(0)
Response.Write(objRS("map1") & " : " & intAntal & "<br>")
objRS.MoveNext
Loop
End If
Set objRS = Nothing
%>
nu blir det såhär:
tex Kristian finns 5 gånger i kolumnen
Kristian : 5
Kristian : 5
Kristian : 5
Kristian : 5
Kristian : 5
Andra namn : 3
Andra namn : 3
Andra namn : 3
vill inte ha dubletter...sen e koden bara för en kolumn. men jag har 3 :/