SQL igen igen, access db

Hvad med:
Select distinct kolonne1, max(kolonne2)

Ved ikke om man kan lave een sql sætning der kan løse det.

Jeg ville nok hente distinct kolonne1 i et RS.
Løbe igennem det, og hente max kolonne2 derfra.

> cpufan: det virker ikke.

> mortvader: havde tænkt den løsning, men kan dæleme ikke lige se det for mig. Kan du evt. give et eksempel.

(ikke testet)

set rs=conn.execute("select distinct kol1 from tabel")
while not rs.eof
  set maxrs=conn.execute("select max(kol2) as v from tabel where kol1='"&rs("kol1")&"'")
  response.write rs("kol1")&" = "&maxrs("v")&"<br>"
  rs.movenext
wend
rs.close

hov:
efter response.write linien:

maxrs.close

>mortvader . prøver lige en gang i aften.

set rs=conn.execute("select distinct kol1 from tabel")
while not rs.eof
  set maxrs=conn.execute("select max(kol2) as v from tabel where kol1='"&rs("kol1")&"'")
  response.write rs("kol1")&" = "&maxrs("v")&"<br>"
  rs.movenext
wend
rs.close
bør i hvert tilfælde virke

Hmmm. Det gør det bare af en eller anden grund ikke. Må nok op med kilde koden. Men det bliver først i morgen.

Indtil vidre tak for forsøget.

OK folkens tid til kildekode

dbPath = "c:\inetpub\db\acm_new.mdb"
set whtConn = server.createobject("adodb.connection")
whtConn.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & dbPath
set newrs=whtConn.execute("select distinct series from series")
while not newrs.eof
  set maxrs=whtConn.execute("select max(season) as v from tabel where series='"&newrs("series")&"'")
  response.write newrs("series")&" = "&maxrs("v")&"<br>"
  maxrs.close
  newrs.movenext
wend
newrs.close

Og ja, det er rigtigt at både tabel og kolonne hedder series. Har prøvet trixet med at putte [] omkring tabelnavnet.
men kan ikke få dette til at virke.

UPS:

set maxrs=whtConn.execute("select max(season) as v from tabel where series='"&newrs("series")&"'")

er selvfølgelig

set maxrs=whtConn.execute("select max(season) as v from series where series='"&newrs("series")&"'")

Update -  Har fået koden til at virke. Og fundet problemet. Det var i databasen problemet var.

Jeg vil gerne angive værdierne 1, 2, 3 OSV. 01, 02, 03. Og af en eller anden grund ville access ikke acceptere det og rettede automatisk til ét ciffer. Så troede manden han var smart og lavede feltet om til notat eller text feldt. Og voila så blev værdierne registreret som 01, 02. Men nej det var han ikke...LOL

>mortvader læg et svar og kender du for øvrigt en løsning så jeg kan angive værdierne som 01, 02 osv i access. Det er lidt irriterende og skulle indsætte det nul hver gang.

Nej jeg kender ikke en metode i access til foranstillede nuller.

Men i asp kan du bruge den her lille function: (heller ikke testet)

function padzero(arg)
  if len(abs(padzero))=1 then
    padzero="0"&arg
  else
    padzero=arg
  end if
  if arg<0 then padzero="-"&padzero
  padzero=clng(padzero)
end function