Udtræk tabel med omsætning

Det hedder krydstabulering, du skal så indstille rækkeoverskrifter og kolonneoverskrifter. Lav først en forespørgsel der skaber alle dine grunddata, og brug så den forespørgsel til at kreere krydtabuleringen, så er det nemmere at få det til spille, brug evt. en guide. Det kan også laves som en rapport.

Hej - tak for dit svar. Læser jeg det korrekt, hvis du refererer til hvordan man laver det i Access og ikke i Asp ?

Ja det er en god ide først at lave krydstabuleringen i access, og dernæst aflæse/aflure (i SQL visning) hvad access har foreslået af løsning, og dernæst implementere løsningen i ASP, evt. redigere og tilrette så de sidste ting kommer på plads (det kan anførselstegn der skal rettes til apostroffer m.m.)

Hej igen.

Jeg har lavet en forespørgsel i access, som ser ud som jeg ønsker (som ovenstående).

Det gav mig følgende sql-streng i asp:

Sql = "TRANSFORM Sum(viewOrderProduct.OrderProductPriceSum) AS PriceSum SELECT Format([OrderCreatedDateTime],'mm') AS monate FROM viewOrderProduct GROUP BY Format([OrderCreatedDateTime],'mm') PIVOT Format([OrderCreatedDateTime],'yyyy');"

Kan du give mig et kort hint til hvordan jeg så får det vist:

              2009      2010
Januar        0        600
Februar      450      799
Marts        530      899
etc.


På forhånd tak.

Jeg har selv fundet løsningen. Jeg poster lige eksemplet her på crosstab udtræk i asp fra access.

Tak for hjælpen

    Sql = "TRANSFORM Sum(viewOrderProduct.OrderProductPriceSum) AS 'PriceSum' SELECT Format([OrderCreatedDateTime],'mm') AS Month FROM viewOrderProduct GROUP BY Format([OrderCreatedDateTime],'mm') PIVOT Format([OrderCreatedDateTime],'yyyy');"
    Set Record =  omsaetning.Execute(Sql)


%>
<TABLE BORDER="1" CELLPADDING="1
CELLSPACING="1" WIDTH="100%" >
<%

Response.Write "<TR>"
For i = 0 to Record.Fields.Count - 1
Response.Write "<TH align=""left""><FONT FACE=""ARIAL"" SIZE=""2"">" & Record.Fields(i).Name & "</FONT></TH>"
Next
Response.write "</TR>"
' -- Now output the contents of the Recordset
Record.MoveFirst
Do While Not Record.EOF
' -- output the contents
Response.Write "<TR>"
For i = 0 to Record.Fields.Count - 1
Formatnumber(i)
Response.Write "<TD><FONT FACE=""ARIAL"" SIZE=""1"">" & Record.Fields(i) & "</FONT></TD>"
Next
Response.write "</TR>"
' -- move to the next record
Record.MoveNext
Loop

Record.Close
set Record = Nothing
omsaetning.Close
set omsaetning = Nothing




%>
</TABLE>

Smider du lige et svar. :-)