Tælle poster

Hvis du har en tal kolonne så kan du summere dem ved eksvis en vareType=søm eks.:

SQL = "SELECT Sum(antal) as tantal FROM tabel WHERE vareType='søm'"

Så hvordan er din database bygget op? Hvilke kolonner har du og hvad er der i dem.

Så kan du udskrive det med:

Set rs = ConnectionObject.Execute(SQL)

Response.write "Det er " & rs("tantal") & " søm på lager."

Øjeblik! jeg tror jeg fik formuleret mit spørgsmål forkert øhmm
Systemet skal tælle hvor mange forskellige typer søm der er lager
hvis man siger der 14 korte, 8 lange 33 meget lange skal resultatet være 3
Jeg har kun 2 kolonner ID, søm (auto, tekst)

Ok. Så kan du bruge Count

SQL = "SELECT Count(*) as antal FROM tabel"
Set rs = ConnectionObject.Execute(SQL)

Response.write "Det er " & rs("antal") & " forskellige typer søm på lager."

ja okay, det er også godt nok hvis de er placeret i 3 poster, men her kan der godt være 1, 1, 4, 2, 1, 1, osv. så der faktisk er 50 poster.
Så system skal altså kunne tælle hvormange ens søm der er ud af alle disse poster og vise resultatet 3 i det her tilfælde.
Håber ikke jeg er for besværlig :-?

Hvad indeholder en post så? kunne det se sådan her ud:
ID  søm
1  Lange
2  Korte
3  Lange
4  Lange

Eller vi der også stå et antal?

Ja netop:
ID  søm
1  Lange
2  Korte
3  Lange
4  Lange

Her skal systemet så tælle "2" - Der er 2 forskellige typer søm på lageret.

Så prøv med men den virker vist ikke i Access:
"SELECT Count(DISTICT [søm]) as antal FROM tabel"

DISTICT = DISTINCT

Eller må du prøve:

SQL = "SELECT DISTINCT [søm] FROM tabel"
rs.Open SQL, ConnectionObject, 1

Response.write "Antalet forskellige typer søm er : " & rs.RecordCount

Ikke nogen af de forslag lader til at virke, jeg får en masse fejl
Object "" systax error og masse andet.
Jeg bruger dette til at vise typer søm, kan det skrives lidt om så udtrækket countes?

<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("søm.mdb")
strSQL = "SELECT TOP 20 count(søm) AS enssøm, søm FROM søm GROUP BY søm ORDER BY count(søm) DESC"
set rs = Conn.execute(strSQL)



if rs.EOF then
Response.write "Lageret er tom."
else
Do Until rs.EOF

response.write ("<font face=verdana color=000000 size=2>"&RS("søm")&"<br></b></font>")

RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing

%>

Prøv at lave det om til dette så kan den også skrive hvor mange forskellige der er:


<%
Set rs = Server.CreateObject("ADODB.RecordSet")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("søm.mdb")
strSQL = "SELECT TOP 20 count(søm) AS enssøm, søm FROM søm GROUP BY søm ORDER BY count(søm) DESC"
rs.Open SQL, Conn, 1


if rs.EOF then
  Response.write "Lageret er tom."
else
  Response.write "Der er " & rs.RecordCount & " forskellige typer søm.<br>"

Do Until rs.EOF

response.write ("<font face=verdana color=000000 size=2>"&RS("søm")&"<br></b></font>")

RS.MoveNext
Loop
end if

Conn.Close
Set Conn = Nothing

%>

Det har jeg så lige prøvet, men får så denne fejl:

Arguments are of the wrong type, are out of acceptable range, or are in conflict with one another.

hmm jeg har skrvet forket så.. prøv at rette denne linje:

rs.Open SQL, Conn, 1

Til:

rs.Open strSQL, Conn, 1

Det virker, mange TAK for hjælpen :-)