Udregn gennemsnit fra DB

Prøv med

strSQL = "SELECT AVG(rate) AS avgRate FROM rating WHERE produkt='" & pid & "'"
set rs = Conn.Execute(strSQL)
if not rs.eof then
  rating = rs("avgRate")
end if
rs.close

hvad skal jeg så skrive for at få det vist.
Før brugte jeg <%="" & genn & ""%>

er det så bare <%="" & rating & ""%>  ?

Ja, det er korrekt. Du skal muligvis lave en formatNumber på den, men det ser du nok når du udskriver tallet...

den laver fejl, kan det være fordi at feltet i databasen er et memo felt ? og ikke et tal felt.

ahh du siger det med formatnumber, det er vel så den laver det den modtager om til et tal. Men hvordan skal jeg så skrive denne linie --> rating = rs("avgRate")

ja softspots virker......

og din kode skal ændres til dette for at virker

<%
strSQL = "select * from rating WHERE produkt='" & Pid & "'"
set rs = Conn.execute(strSQL)
if NOT rs.EOF then
count=0 'er flyttet
rating=0 ' er flyttet
do until rs.EOF

count=count+1

rating = rs("rate")+rating
rs.MoveNext
Loop
genn = "" & formatnumber("" & rating/count & "", 0, 0) & ""
%>

Nej, rating er et tal når det kommer fra databasen, så formatNumber sørger blot for at tallet bliver omformet til noget præsentabelt (med komma osv.).

Du kan f.eks. skrive koden således:

strSQL = "SELECT AVG(rate) AS avgRate FROM rating WHERE produkt='" & pid & "'"
set rs = Conn.Execute(strSQL)
if not rs.eof then
  rating = formatNumber(rs("avgRate"),0,0)
else
  rating = "0,00"
end if
rs.close
Response.write rating

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A000D)
Typer stemmer ikke overens: 'formatNumber'

Den siger så fejl i linie 130, men der er kun 118 linier i scriptet

og ved cpufan's script siger den.
Fejltype:
Der opstod en Microsoft VBScript-kompileringsfejl (0x800A040E)
'Loop' uden 'Do'

Hmmm... prøv:

strSQL = "SELECT AVG(rate) AS avgRate FROM rating WHERE produkt='" & pid & "'"
set rs = Conn.Execute(strSQL)
if not rs.eof then
  rating = formatNumber(cdbl(rs("avgRate")),0,0)
else
  rating = "0,00"
end if
rs.close
Response.write rating

Null er brugt ugyldigt: 'cdbl'

<%
strSQL = "select * from rating WHERE produkt='" & Pid & "'"
set rs = Conn.execute(strSQL)
do while NOT rs.EOF then
count=0 'er flyttet
rating=0 ' er flyttet
do until rs.EOF

count=count+1

rating = rs("rate")+rating
rs.MoveNext
Loop
genn = "" & formatnumber("" & rating/count & "", 0, 0) & ""
%>

cpufan >> der er stadig to do's men kun en loop...

yep fejl,

En sætning var ventet
line 129, column 20
do while NOT rs.EOF then

30/10-2005 00:37:31 >> har du brugt koden som jeg har skrevet den? Kan du evt. prøve at vise den kode du har indtil nu?

<%
strSQL = "select * from rating WHERE produkt='" & Pid & "'"
set rs = Conn.execute(strSQL)
do while NOT rs.EOF then
count=0 'er flyttet
rating=0 ' er flyttet
do until rs.EOF

count=count+1

rating = rs("rate")+rating
rs.MoveNext
Loop
genn = "" & formatnumber("" & rating/count & "", 0, 0) & ""
%>

Er der rent faktisk data i tabellen?

Er det den kode du bruger nu? Prøv at skifte den ud med den jeg har vist (det skal fungere, om ikke andet hvis der er data i tabellen).

Fejl : Der opstod en Microsoft VBScript-kørselsfejl (0x800A005E)
Null er brugt ugyldigt: 'cdbl'

Den her bruger jeg:
<%
strSQL = "SELECT AVG(rate) AS avgRate FROM rating WHERE produkt='" & pid & "'"
set rs = Conn.Execute(strSQL)
if not rs.eof then
  rating = formatNumber(cdbl(rs("avgRate")),0,0)
else
  rating = "0,00"
end if
rs.close
Response.write rating
%>

Den her henter indholdet

<%="" & rating & ""%>

Det her er lidt længere nede, kan det forstyrre ?


<%
end if
rs.Close
set rs=nothing

rsP.MoveNext
Loop
end if
rsP.Close
set rsP=nothing

Conn.Close
set Conn=nothing
%>

Hmmm... det sidste burde ikke forstyrre, men det kommer an på hvordan koden ser ud omkring udtrækket af gennemsnittet, for løkker skal jo lukkes korrekt af osv.

Det eneste jeg kan garantere er at den kode jeg har vist skal erstatte al den kode du startede med at vise. I øvrigt kan vi lige prøve at håndtere den der null-fejl du får. Det kan du måske klare på denne måde:

<%
strSQL = "SELECT AVG(rate) AS avgRate FROM rating WHERE produkt='" & pid & "'"
set rs = Conn.Execute(strSQL)
if not rs.eof then
  if not isnull(rs("avgRate")) then
    rating = formatNumber(cdbl(rs("avgRate")),0,0)
  else
    rating = "0"
  end if
else
  rating = "0"
end if
rs.close
Response.write rating
%>


Bemærk at linierne

Response.write rating

og

<%=rating%>

betyder det samme for scriptfortolkeren.

Men igen, prøv lige at fortæl mig om der overhovedet er data i tabellen...

Den sidste virker !!

og der er data i tabellen :)

send forresten lige et svar

Godt du kom igennem! Jeg kunne ikke rigtig se hvad der skulle være galt, for AVG burde returnere et tal, men NULL-værdien må have kommet fordi der ikke var nogen rækker der matchede din WHERE-clause...

Tak for point :)