Find største værdi i kolonne (db)

SELECT TOP 1 [kolonnenavn] FROM tabel ORDER BY [kolonnenavn] DESC

SELECT MAX(Mit_felt) from Database

Top 1 vælger kun den øverste row i databasen!

Mvh,

Thomas Regin.

thomas_regin: korrekt, med dog ud fra min WHERE / ORDER BY

Man kan jo lige så godt benytte sig af de indbyggede SQL procedurer, når de nu er der! ;)

/thomas

Ok, men så må I lige hjælpe mig lidt.

Jeg skal gøre følgende:
1) Find støresteværdi i tabellen "search", konnonen "url_samle" - værdien er f.eks. "10".
2) Denne værdi skal plusses et til, altså så det bliver "11".
3) Værdien skal derefter være en del af det objekt, som skal indsættes i databasen.

Jeg har prøvet mig lidt frem, men det virker ikke - kan du ikke omskrive koden, så det virker:

Set myConn=Server.CreateObject("ADODB.Connection")
myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/selvet.mdb"))

strSQLMAX = "SELECT MAX(url_samle) from search"
set rs = myConn.execute(strSQLMAX)

strSQL = "INSERT INTO search (url_link, overskrift, url_title, artikeltype, grafik, url_topgruppe, url_hovedgruppe, url_undergruppe, url_description, datopublish, url_datoopret, url_sprog, url_prioritet, link_samle) VALUES ('" & Request.form("link") & "','" & Request.form("titel") & "','" & Request.form("titel") & "', 'artikel_web' ,'" & strIMAGE & "','" & StrSQLMAX + 1 & "', '" & "artikler" & "', '" & Request.form("kategori") & "', '" & Request.form("beskrivelse") & "', '" & Request.form("datoPublikation") & "', '" & Date() & "', '" & Request.form("sprog") & "', '" & "aab" & "', '" & counter & "', '" & counter & "')"
set rs = myConn.execute(strSQL)
myConn.close

Bemærk, at jeg i "strSQL" skriver "StrSQLMAX + 1" - jeg aner ikke om det er korrekt.

Hejsa,

Du skal ikke skrive StrSQLMAX, men istedet:

rs("url_samle") + 1

Det er jo url_samle som du henter ud af databasen, og det er den du gerne vil ha' lagt én til, ikke?

Jeg kan ikke helt overskue din kode (ej heller din hensigt), men det ved du jo også bedst selv! ;)

Mvh,

Thomas Regin.

Ok, nu har jeg lavet lidt om på koden - hensigten er denne gang bare at udskrive den støreste værdi ( + 1)

strSQLMAX = "SELECT MAX() from search"
set rs = myConn.execute(strSQLMAX)
response.write rs("url_samle") + 1

Men den udskriver intet!?

Det kan man heller ikke.. Du SKAL specificere et numerisk felt.

strSQL = "Select Max(Age) from myDataBase"
set rs = dbconn.execute(strSQL)

Response.Write "Den ældste på plejehjemmet er " & rs("Age") & " år."

Mvh,

Thomas.

Så, nu fik jeg lige kørt den igennem hos mig selv, og så fandt jeg ud af hvad det var der manglede.

Din SQL-sætning skal se således ud:

strSQL = "Select Max(url_samle) AS MyUrlSamle from Search"
set rs = dbconn.execute(strSQL)

Response.Write "Højeste værdi er: " & rs("MyUrlSamle")

Det var også noget pjat at feltet skal være numerisk. Det behøver det ikke! Hvis du vælger MAX på et tekst-felt, så vil den sortere alfabetisk istedet!

Undskyld for de fejlagtige informationer tidligere!

Mvh,

Thomas Regin.

Der er et eller andet, som er helt galt. Fordi hvorfor udskriver den ikke "***Slutter***", når nu den udskriver "***Starter***". Hvis jeg kobler linien, hvor sql-komandoen eksekveres, fra, så udskriver den også fint "***Slutter***"... med andre ord, den kører død, når den skal eksekvere sql-komandoen. Hvorfor?

Response.Write "<br>***Starter***<br>"
strSQL = "Select Max(url_samle) AS MyUrlSamle from Search"
set rs = dbconn.execute(strSQL)
Response.Write "<br>***Slutter***<br>"

Har du et felt, der hedder url_samle i din database?

Hvilken felt-type er det?.. Du kan ikke vælge Max() på et "Notat"-felt i Access.

Mvh,

Thomas Regin.

Hov, så vidt jeg kan se, skal du bruge:

set rs = myConn.execute(strSQL) og ikke dbconn!

/thomas

Fejlen er rettet, men en ny er opstået. Hvorfor stopper den før den sidste udskrivning (altså før "Slutter")? Gør jeg det samme galt igen i den sidste sql-eksekveringskommando?

    Set myConn=Server.CreateObject("ADODB.Connection")
    myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/selvet.mdb"))

    strSQL = "Select Max(url_samle) AS MyUrlSamle from Search"
    set rs = myConn.execute(strSQL)

    Response.Write "Højeste værdi er: " & rs("MyUrlSamle")

    strSQL2 = "INSERT INTO search (url_link, overskrift, url_title, hovedpost_samle, url_samle, artikeltype, grafik, url_topgruppe, url_hovedgruppe, url_undergruppe, url_description, datopublish, url_datoopret, url_sprog, url_prioritet, link_samle) VALUES ('" & Request.form("link") & "','" & Request.form("titel") & "','" & Request.form("titel") & "','" & rs("MyUrlSamle") & "','" & rs("MyUrlSamle") & "', 'artikel_web' ,'" & strIMAGE & "','" & " " & "', '" & "artikler" & "', '" & Request.form("kategori") & "', '" & Request.form("beskrivelse") & "', '" & Request.form("datoPublikation") & "', '" & Date() & "', '" & Request.form("sprog") & "', '" & "aab" & "', '" & counter & "', '  ')"
    set rs2 = myConn.execute(strSQL2)
    Response.Write "<br>Slutter"
    myConn.close

... eller er det måske fordi jeg bruger "rs("MyUrlSamle")" inden i "strSQL2" ?

Kobler jeg "strSQL2" fra, så kan den pludselig godt fortsætte (og udskriver)... jeg fatter minus... jeg må hellere tilføje nogle flere points til dette indæg, for det er kun rimeligt, hvis også du knækker denne nød. :-)

Prøv denne istedet.. Der var nogle småting i din strSQL2, som trængte til at blive justeret:

<%
    strSQL = "Select Max(url_samle) AS MyUrlSamle from Search"
    set rs = myConn.execute(strSQL)

    Response.Write "Højeste værdi er: " & rs("MyUrlSamle")

    strSQL2 = "INSERT INTO search (url_link, overskrift, url_title, hovedpost_samle, url_samle, artikeltype, grafik, url_topgruppe, url_hovedgruppe, url_undergruppe, url_description, datopublish, url_datoopret, url_sprog, url_prioritet, link_samle) VALUES ('" & Request.form("link") & "','" & Request.form("titel") & "','" & Request.form("titel") & "','" & rs("MyUrlSamle") & "','" & rs("MyUrlSamle") & "', 'artikel_web' ,'" & strIMAGE & "','', '" & artikler & "', '" & Request.form("kategori") & "', '" & Request.form("beskrivelse") & "', '" & Request.form("datoPublikation") & "', '" & Date() & "', '" & Request.form("sprog") & "', '" & aab & "', '" & counter & "', '')"
    set rs2 = myConn.execute(strSQL2)
    Response.Write "<br>Slutter"
    myConn.close
   
%>

Mvh,

THomas Regin.

Så har jeg også prøvet det, men det gav desværre samme resultat.

    Set myConn=Server.CreateObject("ADODB.Connection")
    myConn.Open ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE="+server.Mappath("/db/selvet.mdb"))

    strSQL = "Select Max(url_samle) AS MyUrlSamle from Search"
    set rs = myConn.execute(strSQL)

    Response.Write "Højeste værdi er: " & rs("MyUrlSamle")
   
    strSQL2 = "INSERT INTO search (url_link, overskrift, url_title, hovedpost_samle, url_samle, artikeltype, grafik, url_topgruppe, url_hovedgruppe, url_undergruppe, url_description, datopublish, url_datoopret, url_sprog, url_prioritet, link_samle) VALUES ('" & Request.form("link") & "','" & Request.form("titel") & "','" & Request.form("titel") & "','" & rs("MyUrlSamle") & "','" & rs("MyUrlSamle") & "', 'artikel_web' ,'" & strIMAGE & "','', '" & artikler & "', '" & Request.form("kategori") & "', '" & Request.form("beskrivelse") & "', '" & Request.form("datoPublikation") & "', '" & Date() & "', '" & Request.form("sprog") & "', '" & aab & "', '" & counter & "', '')"
    set rs2 = myConn.execute(strSQL2)
    Response.Write "<br>Slutter"
    myConn.close

Okay.. Og det virker fint, hvis du fjerner hele strSQL2?

I så faldt, så gør mig den tjeneste, lige efter sin strSQL2-statment, at skrive:

Response.Write strSQL2
Response.End

Kør scriptet, og skriv resultatet her!

/thomas

Det kan jeg ikke en gang give dig, fordi det vil den ikke udskrive... den vil heller ikke engang udskrive response.write ("*** " & Request.form("titel") & "***") ... ikke engang et eneste "*"

Nu fatter jeg virkeligt minus. (Jeg arbejder på sagen).

Er det måske noget med, at jeg poster fra den anden side med "multipart/form-data"? (Jeg bliver nødt til at bruge "multipart/form-data" ellers vil mit ASPUpload-kode ikke virke)

Jeg fandt selv ud af det, problemet med "multipart/form-data" blev løst ved at skrive "Upload.Form" i stedet for "Request.form". Nu virker det, tak for hjælpen.