Udskrive noget i en tabel

Til spørgsmål nr. 1
Du kan bruge "Distinct" til at udskrive titlerne een gang:
Select Distinct Feltnavn from tabelnavn

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("database.mdb")

strSQL = "SELECT * FROM tabel"

Set objRs = objConn.Execute(strSQL)

While Not objRs.EOF
  Response.Write(objRs("titel") & "<br>")
objRs.MoveNext()
Wend

//>Rune

Hvor dit connection object er conn:

strsql = "SELECT titel, count(titel) AS titel_count FROM tabel GROUP BY titel"
set rs = conn.execute(strsql)

if not rs.eof then
  while not rs.eof
    response.write(rs("titel") & " (" & rs("titel_count") & ")<br>")
    rs.movenext
  wend
else
  response.write("ingen records")
end if

set rs = nothing

For lige at være 100% sikker på at du forstår det, du skal selv føje dit connection object til koden, jeg skrev - jeg kan jo ikke vide, hvilken database, du skal connecte til, samt dens placering.

Hmmm, det virker ikk helt

Hvilket af det virker ikke?

Denne kode:
<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("bog.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
' Her hiver vi indholdet af databasen ud
sql = "Select Distinct titel, count(titel) AS titel_count FROM tæller WHERE brugerID = " & session("brugerID") &""
    Set rs =  Con.Execute(Sql)
%>
<%
if not rs.eof then
  while not rs.eof
    response.write(rs("titel") & " (" & rs("titel_count") & ")<br>")
    rs.movenext
  wend
else
  response.write("ingen records")
end if

set rs = nothing
%>

og hvad er det, der ikke virker?

Microsoft OLE DB Provider for ODBC Drivers fejl '80040e10'

[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.

/web-service/index.asp, linje 379

et bud er at session("brugerid") ikke indeholder noget.  prøv at hardcode et brugerid ind i sqlstrengen og se om ikke det hjælper.

Hvad får du ved:
response.write sql ?

Altså, resultatet skal gerne ligne dette:

| Titel  |  Antal af de samme titeler  |
| Polle  |  15  |
| Ole    |  16  |

Osv...

jaja... men hvis du laver fejl i noget af det andet kode (staver galt i dine tabel/feltnavne eller ikke giver den et "godt" brugerid), vil den jo gøre knuder uanset hvor god alt den anden kode er.

Der er ikke noget galt med session("brugerID").


response.write sql kommer der ikke noget ud af

Se hvad det her gi'r dig... post det igen

<%
' Connection til database
Set Con = Server.CreateObject("ADODB.Connection")
DBPath = "DBQ=" & server.mappath("bog.mdb")
Con.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & DBPath
   
' Her hiver vi indholdet af databasen ud
sql = "Select Distinct titel, count(titel) AS titel_count FROM tæller WHERE brugerID = " & session("brugerID") &""
resonse.write sql
response.end
    Set rs =  Con.Execute(Sql)
%>
<%
if not rs.eof then
  while not rs.eof
    response.write(rs("titel") & " (" & rs("titel_count") & ")<br>")
    rs.movenext
  wend
else
  response.write("ingen records")
end if

set rs = nothing
%>

Det er Select Distinct titel det er galt med.

Den virker fint uden den.

Skal der ikke være * et sted eller [] om noget ?

Nu kommer der:
Der opstod en Microsoft VBScript-kørselsfejl fejl '800a01a8'

Et objekt er obligatorisk: ''

/web-service/index.asp, linje 379

aaaah
hvorofor bruger du select distinct???? det er da at blande tingene sammen

sql = "SELECT titel, count(titel) AS titel_count FROM tabel GROUP BY titel"

Det virker altså ikke. Jeg har stavet alt rigtigt:
sql = "SELECT titel, count(titel) AS titel_count FROM tæller GROUP BY titel"

Den kommer med:
Microsoft OLE DB Provider for ODBC Drivers fejl '80040e10'

[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.

/web-service/index.asp, linje 379

Det virker fint, når jeg bruger:
sql = "SELECT * from tæller"

prøv at sætte [] omkring tæller + tjek at alle tabel- og kolonnenavne findes og er stavet korrekt!! ...ellers må det altså være dit brugerid, den er galt med.

Okai, takker for hjælpen...

Anytime
Thx 4 Poinz

//>Rune