Sortering efter Antal

ASP

2 svar · 222 visningar · startad av Eam 18 dec. 2002

EamMedlem sedan juni 200032 inlägg

Trådstart18 dec. 2002 21:55#1

Denna funktion skall räkna hur många gången av 54 ett namn "nick" förekommer i en databas. Så här ser koden ut.

Nu har jag så den skriver Ut:

Nickname - Procent av 54 - Antal av 54

Och den skall sortera efter Antal eller Procent Nu sorterar den efter Nick (a-z).

Hur skall Order By kommandot se ut?

Set ConnObj = SErver.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
ConnObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../lost.mdb")
SQL = "Select distinct (Nick) from lost"
Set Rs = ConnObj.Execute(SQL)
Do Until Rs.EOF %>

<% CountSQL = "Select Count(*) AS nCount from lost Where Nick = '"& Rs("Nick") &"'"

Set antal = ConnObj.Execute(CountSQL)
Do Until antal.EOF %>

                  \<%Response.write Rs("Nick") %\> 

                  \<% Procent = antal("nCount")/54\*100 %\>
                  \<% =round(Procent,2) %\>
                  \<% Response.write antal("nCount") %\>

              \<% 
antal.MoveNext
Loop

Rs.MoveNext
Loop
ConnObj.Close
%>

Tack på förhand !!

LarsGMedlem sedan dec. 200012 464 inlägg

18 dec. 2002 22:12#2

Varifrån kommer 54?

Set ConnObj = SErver.CreateObject("ADODB.Connection")

ConnObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../lost.mdb")
SQL = "Select count(*) as nCount,nick from lost group by nick order by 1 desc"
Set Rs = ConnObj.Execute(SQL)
Do Until Rs.EOF

Response.write Rs("Nick")
Procent = rs("nCount")/54*100 
response.write round(Procent,2) 
Response.write rs("nCount") 

rs.MoveNext
Loop
ConnObj.Close
%>

Frågan kommer att för varje nick returnera antalet förekomster sorterat så de nick som har flest förekomster kommer först.

EamMedlem sedan juni 200032 inlägg

18 dec. 2002 22:18#3

Tack så mycket för hjälpen.

54 är bara där. :birp