Sammenlægning af antal

Hvis A og B skal forstås som mulige værdier i et felt i din database (og ikke som bogstaver i en tekst i et felt i din database), så kan det f.eks. gøres sådan

SELECT ditFelt, Count(*) FROM dinTabel GROUP BY ditfelt

- eller hvis der også er andre værdier end A og B og det *kun* er A og B du ønsker:

SELECT ditFelt, Count(*) FROM dinTabel GROUP BY ditfelt WHERE ditFelt='A' OR ditFelt='B'

Det er ikke tal, men jeg skal blot vide hvor mange gange den fremkommer

F.eks. hvis der står A i 15 ud af 20 rækker skal den bare skrive antallet 15
hvis der så står B i 5 ud af de 20 rækker skal den blot skrive 5.

Ja, så er min SELECT vist lige det der skal til:

SQL = "SELECT ditFelt, Count(*) AS antal FROM dinTabel GROUP BY ditfelt"
Set rs = Conn.Execute(SQL)

Do While Not rs.EOF
    Response.Write "Posten " & rs("ditFelt") & " forekom " & rs("antal") & " gange<br>"
    rs.MoveNext
Loop

Kan du hjælpe lidt mere ?

Tabellen hedder Kunder, og feltet hedder Type.
Jeg skal have at vide hvor mange gange der står Sonofon i feltet.

Hvordan skal jeg udfylde det i nedenstående.

SQL = "SELECT ditFelt, Count(*) AS antal FROM dinTabel GROUP BY ditfelt"
Set rs = Conn.Execute(SQL)

Do While Not rs.EOF
    Response.Write "Posten " & rs("ditFelt") & " forekom " & rs("antal") & " gange<br>"
    rs.MoveNext
Loop

Ja, så er det jo simpelthen at erstatte mine navne ditFelt og dinTabel med de der gælder for dig:

SQL = "SELECT [type], Count(*) AS antal FROM kunder GROUP BY [type]"
Set rs = Conn.Execute(SQL)

Do While Not rs.EOF
    Response.Write "Posten " & rs("type") & " forekom " & rs("antal") & " gange<br>"
    rs.MoveNext
Loop

... men hvis det *kun* er en værdi du er interessert i så kan det også gøres sådan:

SQL = "SELECT Count(*) AS antal FROM kunder WHERE [type]='Sonofon'"
Set rs = Conn.Execute(SQL)
Response.Write "Posten 'Sonofon' forekom " & rs("antal") & " gange<br>"

Det her er hvad der står i min asp fil, og det eneste den fremkommer med er en fejl.

<!--#include virtual="/Includes/Connection.asp"-->
<%SQL = "SELECT Count(*) AS antal FROM kunder WHERE [type]='Sonofon'"
Set rs = Conn.Execute(SQL)%>

<%Response.Write "Posten 'Sonofon' forekom " & rs("antal") & " gange<br>"%>

Hvordan ser fejlen ud?

For some weird reason skriver den kun:

HTTP 500 - Intern serverfejl
Internet Explorer

Den kommer ikke med en debug fejl.

Her er der ALT hvad der står i hele Antal.asp

<%
  conpath = Request.ServerVariables("APPL_PHYSICAL_PATH")
  Set DB = Server.CreateObject("ADODB.Connection")
  DB.ConnectionString = _
    "Driver={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=" & conpath & "/db/KundeDB.mdb;" & _
    "DefaultDir=" & conpath & "/db/KundeDB.mdb;" & _
    "FIL=MS Access;"
  DB.Open
%>
<% SQL = "SELECT Count(*) AS Antal FROM kunder WHERE [type]='Sonofon'"
Set rs = Conn.Execute(SQL) %>
<%=RS("antal")%>

Du har kald dit connection for DB, og derfor skal det så være:

<%
SQL = "SELECT Count(*) AS Antal FROM kunder WHERE [type]='Sonofon'"
Set rs = DB.Execute(SQL)
Respons.Write RS("antal") %>

Nu står der:

<%
  conpath = Request.ServerVariables("APPL_PHYSICAL_PATH")
  Set DB = Server.CreateObject("ADODB.Connection")
  DB.ConnectionString = _
    "Driver={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=" & conpath & "/db/KundeDB.mdb;" & _
    "DefaultDir=" & conpath & "/db/KundeDB.mdb;" & _
    "FIL=MS Access;"
  DB.Open
%>
<%
SQL = "SELECT Count(*) AS Antal FROM kunder WHERE [type]='Sonofon'"
Set rs = DB.Execute(SQL)
Respons.Write RS("Antal") %>

Er vi enige om at det er det der skal stå, for den melder stadig fejl ?

Prøv dette:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
conpath = Request.ServerVariables("APPL_PHYSICAL_PATH")

Set DB = Server.CreateObject("ADODB.Connection")

ConnectionString = _
    "Driver={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=" & conpath & "/db/KundeDB.mdb;" & _
    "DefaultDir=" & conpath & "/db/KundeDB.mdb;" & _
    "FIL=MS Access;"

DB.Open ConnectionString

SQL = "SELECT Count(*) AS Antal FROM kunder WHERE [type]='Sonofon'"

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = DB.Execute(SQL)

Respons.Write RS("Antal")
%>

Beklager det sene svar, men skulle lige til noget turnering i går så er først lige kommet i gang igen.

Men den nye sætning fejler sku stadig ;o(

Umiddelbart kan jeg ikke se nogen fejl i den kode - prøv at slette linjerne en af gangen nede fra og se så hvornår den pludselig kan køre. Det må så være den linje der fejler, og så kan vi kigge på problemet derfra.

Husk at refreshe siden med Ctrl+F5 - F5, uden Ctrl, kan resikere at hente fra cachen i stedet for at hente fra webserveren.

Fore some weird reason, så hjalp det at genstarte iis'en !?

Hvad hvis man gerne vil have 4 forskellige forekomster af det i én og samme asp side, altså med 4 forskellige tal, se nedenstående.

<!--#include virtual="/Includes/Connection.asp"-->
<%
SQL = "SELECT Count(*) AS Telia FROM Kunder WHERE [Selskab]='Telia' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = DB.Execute(SQL)
%>

<%
Response.Write RS("Telia")
%>

<%
SQL = "SELECT Count(*) AS Sonofon FROM Kunder WHERE [Selskab]='Telia' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = DB.Execute(SQL)
%>

<%
Response.Write RS("Sonofon")
%>

<%
SQL = "SELECT Count(*) AS Privat FROM Kunder WHERE [Type]='Privat' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = DB.Execute(SQL)
%>

<%
Response.Write RS("Privat")
%>

<%
SQL = "SELECT Count(*) AS Erhverv FROM Kunder WHERE [Type]='Erhverv' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"

Set rs = Server.CreateObject("ADODB.Recordset")
Set rs = DB.Execute(SQL)
%>

<%
Response.Write RS("Erhverv")
%>

> Fore some weird reason, så hjalp det at genstarte iis'en !?

Så er det nok fordi at IIS'en selv har cachet resultaterne.


> Hvad hvis man gerne vil have 4 forskellige forekomster af det i én og samme asp side, altså med 4 forskellige tal, se nedenstående.

Jeg er ikke helt sikker på at jeg forstår spørgsmplet. Nedenstående kode burde fungere - men jeg har ikke lige forudsætningerne for at vide om det er det det rigtige den gør?

<!--#include virtual="/Includes/Connection.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT Count(*) AS Telia FROM Kunder WHERE Selskab='Telia' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
Response.Write RS("Telia") & "<br>"

SQL = "SELECT Count(*) AS Sonofon FROM Kunder WHERE Selskab='Sonofon' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
Response.Write RS("Sonofon") & "<br>"

SQL = "SELECT Count(*) AS Privat FROM Kunder WHERE [Type]='Privat' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
Response.Write RS("Privat") & "<br>"

SQL = "SELECT Count(*) AS Erhverv FROM Kunder WHERE [Type]='Erhverv' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
Response.Write RS("Erhverv") & "<br>"
%>

Det faktisk helt rigtig forstået, kan "splitte" det ad...

Forstået således...


<!--#include virtual="/Includes/Connection.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT Count(*) AS Telia FROM Kunder WHERE Selskab='Telia' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)

SQL = "SELECT Count(*) AS Sonofon FROM Kunder WHERE Selskab='Sonofon' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)

SQL = "SELECT Count(*) AS Privat FROM Kunder WHERE [Type]='Privat' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)

SQL = "SELECT Count(*) AS Erhverv FROM Kunder WHERE [Type]='Erhverv' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
%>

<% Response.Write RS("Telia") %>
<% Response.Write RS("Privat") %>
<% Response.Write RS("Erhverv") %>
<% Response.Write RS("Sonofon") %>

Så er det nok mest effektivt at gemme dem i variable undervejs:

<!--#include virtual="/Includes/Connection.asp"-->
<%
Set rs = Server.CreateObject("ADODB.Recordset")

SQL = "SELECT Count(*) AS Telia FROM Kunder WHERE Selskab='Telia' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
Telia = rs("Telia")

SQL = "SELECT Count(*) AS Sonofon FROM Kunder WHERE Selskab='Sonofon' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
Sonofon = rs("Sonofon");

SQL = "SELECT Count(*) AS Privat FROM Kunder WHERE [Type]='Privat' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
Privat = rs("Privat");

SQL = "SELECT Count(*) AS Erhverv FROM Kunder WHERE [Type]='Erhverv' AND Dato=DateAdd('m',-6,Date()) AND Butik='NN'"
Set rs = DB.Execute(SQL)
Erhverv = rs("Erhverv");
%>

<% =Telia %>
<% =Privat %>
<% =Erhverv %>
<% =Sonofon %>

SÅDAN !!!

Vil du lige bruge det som SVAR ? :)

200 point er altså godt nok i overkandten for et spørgsmål af denne sværhedsgrad. giv mig 30 og tag du bare selv resten igen. :^)

... og et svar :^)

Lukketid?

?

Takker for point, og Glædelig jul.