Udvælg poster og udregn gennemsnit heraf.

strSQL = "Select AVG(alderskollone) From dyrdata Where Type = 'hund'"

Kan ikke lige få det til at virke. Måske blander jeg ting sammen, kan du hjælpe? Noget af koden står her:

Conn.Open DSN
strSQL1 = Select AVG(alder) From dyrdata Where Type = "hund"
strSQL2 = Select AVG(alder) From dyrdata Where Type = "kat"

strSQL = "Insert into dyrdata ("
strSQL = strSQL & "postnr, "
...

Længere nede på siden laves denne:
Response.Write "<br><br>Gennemsnitsalder for hunde er: " & strSQL1
...
Response.Write "<br><br>Gennemsnitsalder for katte er: " & strSQL2

du skal eksekvere de 2 ovenstående sqlsætninger for med et recordset / connection.

fx.
strSQL1 = Select AVG(alder) as hundalder From dyrdata Where Type = 'hund'"
strSQL2 = Select AVG(alder) as katalder From dyrdata Where Type = 'kat'"
set rs = server.createobject("adodb.connection")
set rs2 = server.createobject("adodb.connection")
rs2.opem DSN
rs.open DSN
set rs = rs.execute(strSQL1)
set rs2 = rs2.execute(strSQL2)

strSQL = "Insert into dyrdata ("
strSQL = strSQL & "postnr, "
...

Længere nede på siden laves denne:
Response.Write "<br><br>Gennemsnitsalder for hunde er: " & rs("hundalder")
...
Response.Write "<br><br>Gennemsnitsalder for katte er: " & rs("katalder")


sådan her f.eks. kan det laves.

Så ser det ud som om det virker. Kanon. Jeg har ikke selv lige prøvet at regne efter, men jeg går ud fra det er til at stole på. Men tjekker lige imorgen.

Nu da jeg er ret ny i ASP(og ikke har brugt recordset/connection før), blev jeg lidt i tvivl om min kode, bla. om min 'Conn.Open DSN' er sat korekt. Nu hvor der er kommet en 'rs2.open DSN' ind også.
Kunne I ikke lige kigge på koden og se om det er okay?

Min kode ser jo ud ala dette:


Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../dyr.mdb")
Conn.Open DSN

strSQL1 = "Select AVG(alder) as hundalder From dyrdata Where Type = 'hund'"
strSQL2 = "Select AVG(alder) as katalder From dyrdata Where Type = 'kat'"
set rs1 = server.createobject("adodb.connection")
set rs2 = server.createobject("adodb.connection")
rs2.open DSN
rs1.open DSN
set rs1 = rs1.execute(strSQL1)
set rs2 = rs2.execute(strSQL2)

strSQL = "Insert into dyrdata ("
strSQL = strSQL & "postnr, "

...hop i kode...

Conn.Execute(strSQL)
Conn.Close
Set Conn = Nothing
%>

...hop i kode...


Dim genkat
genkat = rs2("katalder")

Response.Write "<br><br>Gennemsnitsalder for hunde er: " & rs1("hundalder")
Response.Write "<br><br>Gennemsnitsalder for katte er: " & round(genkat,2)
%>
</body>
</html>

Jeg er ikke så god til ASP, men dit spm omhandler SQL og det kan jeg finde ud af.
Der findes en lækker lille tutorial på dansk her, der kan du helt sikkert få et par gode begynder fifs :o)
http://www.html.dk/tutorials/asp/

Nå men så venter jeg lige til ellebaek vender tilbage, han kan sikkert svare.

Men så kan det være du kan hjælpe mig med at finde ud af hvor mange poster gennemsnittet af udregnet af?

Det bliver beregnet på alle poster i databasen. Også dem hvor der ikke er angivet nogen alder. Hvis du vil undgå at de medregnes skal du indsætte WHERE alder NOT LIKE NULL

Okay, men det jeg tænkte på var at beregningen af
Select AVG(alder) as hundalder From dyrdata Where Type = 'hund'"
Udgør et antal poster, dette antal vil jeg gerne vide.

Mener du kan klare det med denne forespørgsel:

SELECT AVG(alder) AS hundalder, COUNT(*) AS antalhunde FROM dyrdata WHERE Type = "hund";

Nu kan jeg dårlig huske hvordan pointne blev fordelt i dette spm.
Men fik ellebaek ikke nogle point???

Tror jeg ikke.. smider et svar ;-)

mystisk at mit svar stadig er åbent når spørgsmålet er lukket..?