Opdatering i acces 2000 med decimaler...

Her er min kode for at sætte gennemsnittet ind:

"UPDATE medlemmer SET gennemsnit = alder / ar"

Dim strGennemsnit
strGennemsnit = Round(alder / ar.1)

""UPDATE medlemmer SET gennemsnit = strGennemsnit"

Sorry

Dim strGennemsnit
strGennemsnit = Round(alder / ar,1)

"UPDATE medlemmer SET gennemsnit = strGennemsnit"

det virker ikke rigtig her.....

Hva feil får du?

Send litt kode.

blank side...

Send litt av koden i scriptet ditt. :-)

Hej ... det er faktisk PIC_AVE det skal opdateres...

<%
Dim strGennemsnit
strGennemsnit = Round(PIC_VOTE_VALUE / PIC_VOTE_COUNT,1)

set cmdVoting = Server.CreateObject("ADODB.Command")
cmdVoting.ActiveConnection = MM_connDUpics_STRING
cmdVoting.CommandText = "UPDATE PICTURES SET PIC_VOTE_COUNT = PIC_VOTE_COUNT + 1, PIC_AVE =strGennemsnit, PIC_VOTE_VALUE = PIC_VOTE_VALUE + " & Request.Form("voteValue") & " WHERE PIC_ID = " & Request.Form("iPic")
cmdVoting.CommandType = 1
cmdVoting.CommandTimeout = 0
cmdVoting.Prepared = true
cmdVoting.Execute()

Response.Cookies(Request.Form("iPic")) = Request.Form("voteValue")
Response.Cookies(Request.Form("iPic")).Expires = Date + 1000
Response.Redirect "default.asp?iPic=" & Request.Form("iPic")
%>

har lavet mellemrum:

PIC_AVE = strGennemsnit

Prøv å skriv ut UPDATE detningen din hva får du da?

setningen

den skal jeg lige have igen ?

"UPDATE PICTURES SET PIC_VOTE_COUNT = PIC_VOTE_COUNT + 1, PIC_AVE = strGennemsnit, PIC_VOTE_VALUE = PIC_VOTE_VALUE + " & Request.Form("voteValue") & " WHERE PIC_ID = " & Request.Form("iPic")

Hva slags format har du i databasen din?

access 2000

tabelen PIC_AVE = TAL og decimaler=automatisk

<%
Dim strGennemsnit
strGennemsnit = Round(PIC_VOTE_VALUE / PIC_VOTE_COUNT,1)

set cmdVoting = Server.CreateObject("ADODB.Command")
cmdVoting.ActiveConnection = MM_connDUpics_STRING
'cmdVoting.CommandText = "UPDATE PICTURES SET PIC_VOTE_COUNT = PIC_VOTE_COUNT + 1, PIC_AVE =strGennemsnit, PIC_VOTE_VALUE = PIC_VOTE_VALUE + " & Request.Form("voteValue") & " WHERE PIC_ID = " & Request.Form("iPic")

SQL = "UPDATE PICTURES SET PIC_VOTE_COUNT = PIC_VOTE_COUNT + 1, PIC_AVE =strGennemsnit, PIC_VOTE_VALUE = PIC_VOTE_VALUE + " & Request.Form("voteValue") & " WHERE PIC_ID = " & Request.Form("iPic")
Response.Write(SQL)
Response.End

cmdVoting.CommandType = 1
cmdVoting.CommandTimeout = 0
cmdVoting.Prepared = true
cmdVoting.Execute()

Response.Cookies(Request.Form("iPic")) = Request.Form("voteValue")
Response.Cookies(Request.Form("iPic")).Expires = Date + 1000
Response.Redirect "default.asp?iPic=" & Request.Form("iPic")
%>

Du skriver at du har 'sat tabellen til decimaler' ... det gavner dog ikke, hvis den såkaldte 'feltstørrelse' (=datatypen) fx er heltal. Denne skal sættes til 'Reelt tal' eller 'Dobbelt reelt tal'.

Har du kontrolleret det?

tabelen PIC_AVE = TAL og decimaler=automatisk

Prøv med Field size = double og decimaler = automatisk

Det vil den stadig ikke viser blank side.............. denne side bliver aktiveret når man stemmer og skal updaterer databsen med stemmerne...
PIC_VOTE_COUNT er = antal stemmer
PIC_VOTE_VALUE er = den rating man giver fra 1-10

og det er gennemsnittet jeg skal bruge for de to og det skal sættes ind i PIC_AVE

nu står den til 'Reelt tal' men loader stadig blank side

heller ikke med 'Dobbelt reelt tal'.

Hvis dit script ser ud som 14:19:02 har du linjerne
Response.Write(SQL)
Response.End

Du sender altså ikke din sql til databasen ...

dem skal jeg vel sætte ind ? i starten og slutningen ?

de er der men hvor skal de stå ?

Skal de slet ikke være der ?

Erstat linjen response.end med cmdVoting.CommandText = sql

Nu ser min kode sådan ud og virker stadig ikke .. mærkeligt..

<%
Dim strGennemsnit
strGennemsnit = Round(PIC_VOTE_VALUE / PIC_VOTE_COUNT,1)

set cmdVoting = Server.CreateObject("ADODB.Command")
cmdVoting.ActiveConnection = MM_connDUpics_STRING
'cmdVoting.CommandText = "UPDATE PICTURES SET PIC_VOTE_COUNT = PIC_VOTE_COUNT + 1, PIC_AVE =strGennemsnit, PIC_VOTE_VALUE = PIC_VOTE_VALUE + " & Request.Form("voteValue") & " WHERE PIC_ID = " & Request.Form("iPic")

SQL = "UPDATE PICTURES SET PIC_VOTE_COUNT = PIC_VOTE_COUNT + 1, PIC_AVE = strGennemsnit, PIC_VOTE_VALUE = PIC_VOTE_VALUE + " & Request.Form("voteValue") & " WHERE PIC_ID = " & Request.Form("iPic")
Response.Write(SQL)
cmdVoting.CommandText = sql

cmdVoting.CommandType = 1
cmdVoting.CommandTimeout = 0
cmdVoting.Prepared = true
cmdVoting.Execute()

Response.Cookies(Request.Form("iPic")) = Request.Form("voteValue")
Response.Cookies(Request.Form("iPic")).Expires = Date + 1000
Response.Redirect "default.asp?iPic=" & Request.Form("iPic")


%>

betyder det noget at der står <%@LANGUAGE="VBSCRIPT"%> i toppen ?

ok det løste ikke rigtig noget.... ærgeligt