Opdatere data i Access...

strSQL = "UPDATE brugere SET [value] = [value] +1 WHERE [navn] = '" & brugere & "'"

objConn.Execute(strSQL)

//>Rune

Eller er det sådan du mener?

strSQL = "UPDATE brugere SET [value] = [value] +1 WHERE [navn] = 'brugere'"

objConn.Execute(strSQL)

//>Rune

muligvis men jeg skal også bruge koden der åbner database :)

user=(den aktuelle brugers navn)

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open dsn
set rs = Server.CreateObject("ADODB.Recordset")
rs.activeConnection = con

rs.open "select * from brugere where navn='"&user&"'"
if not rs.eof then
  antal=rs("value")
  if antal<>"" then
    antal=cint(rs("value"))+1
  else
    antal=1
  end if
  conn.execute "update brugere set value="&antal&" where navn='"&user&"'"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

hmm hvor i det øverste skal jeg skrive adressen til databasen?

conn.Open dsn

dsn=datasourcename
f.eks:
dsn="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\inetpub\mysite\data\db.mdb"

så siger den at der er opstået en konflikt i linje 9...!?!?

gider du ikke lige skrive koden som den skal være?? :)

adressen til min database er Server.MapPath("/db/database.mdb

Noget i denne stil :)

user=(den aktuelle brugers navn)

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open Server.MapPath("/db/database.mdb")
set rs = Server.CreateObject("ADODB.Recordset")
rs.activeConnection = conn

rs.open "select * from brugere where navn='"&user&"'"
if not rs.eof then
  antal=rs("value")
  if antal<>"" then
    antal=cint(rs("value"))+1
  else
    antal=1
  end if
  conn.execute "update brugere set value="&antal&" where navn='"&user&"'"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

så sir den:

Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Driver Manager] Datakildenavnet er for langt.
/solsticegame/indsaet.asp, line 6

du må vel åbne databasen fra et andet sted i dine scripts? bare kopier metoden.

de andre steder bruger jeg:

Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/database.mdb")
Conn.Open DSN

men så passer det vel ikke sammen med koden!?

jojo, intet problem!

men i din kode står der jo rs.open og sådan, lidt skal jo tilpasses, gider du tilpasse resten efter min metode til at åbne db'er, for jeg er temmelig forvirret selv lige nu :)

user=(den aktuelle brugers navn)

DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/database.mdb")

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open DSN
set rs = Server.CreateObject("ADODB.Recordset")
rs.activeConnection = conn

rs.open "select * from brugere where navn='"&user&"'"
if not rs.eof then
  antal=rs("value")
  if antal<>"" then
    antal=cint(rs("value"))+1
  else
    antal=1
  end if
  conn.execute "update brugere set value="&antal&" where navn='"&user&"'"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing

ok, så siger den:
Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access-driver] Handlingen skal bruge en opdaterbar forespørgsel.
/indsaet.asp, line 21

:(((

er der skriveadgang til filen?

det vil jeg tro, hvordan checker jeg det??
den ligger bare i min egen inetpub\wwwroot\db

i information services tjek at der er skriverettighedder på mappen.
tjek også om selve filen er skrivebeskyttet!

ok, det er der ikke, så skal jeg vel bare sætte kryds i skriveadgang?

jepper ;)

har jeg gjort, men den giver nu samme melding?

prøv at restarte?  ellers må jeg melde pas.. det er i hvert fald et eller andet setup der er problemet, ikke scriptet. :P

jeg prøver lige at lægge den ud på mit websted, og se om den kører der så :-)

det virker så nu... takker !
lige en sidste ting, hvis jeg har en value2 hvor der skal trækkes 1 fra, hvordan skal jeg så føre det ind i conn.execute "update brugere set value="&antal&" where navn='"&user&"'"??