Hej på er!
Jag har ett problem med uppdatering av värde till min access databas.
Jag har ett fält i databasen som heter placedleft och den kan antingen vara true eller false.
Vidare har jag ett formulär där man väljer mellan höger och vänster med hjälp av radiobuttons (name: editplacedleft).
Värdet (value) sätter jag till true respektive false. Detta skickas sedan i en queryString till sidan som uppdaterar databasen.
Jag lyckas inte få in värdet i databasen - vad gör jag för fel!?
Nedan följer min nuvarande kod:
if myPlacedLeft=true Then
rs("placedleft") = true
else
rs("placedleft") = false
end if
Request.QueryString kör jag med.
Funkar på alla dom andra och jag vet (jag har kollat)
att jag tar emot värdet (antingen true eller false beroende på det val man gjort i formuläret).
Fungerar tyvärr fortfarande inte...
Den uppdaterar helt enkelt inte databasen (placedleft-fältet)...
Klistrar här in min fullständiga kod:
<%
Response.Buffer = True
dim myId
dim myPlacedLeft
myId= Trim(Request.querystring("editId") & "")
myPlacedLeft= CBool(Request.querystring("editPlacedLeft"))
dim con
dim rs
dim SQL
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=databasen.mdb;
DefaultDir=d:\zz;Uid=Admin;Pwd=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM data WHERE id="&myId&""
rs.Open SQL, con, 1, 2
if myPlacedLeft Then
rs("placedleft") = true
else
rs("placedleft") = false
end if
rs.Update
rs.Close
con.Close
%>
<%
Response.Buffer = True
dim myId
dim myPlacedLeft
myId= Trim(Request.querystring("editId"))
myPlacedLeft = Request.querystring("editPlacedLeft") = "true"
dim con
dim rs
dim SQL
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=databasen.mdb;
DefaultDir=d:\zz;Uid=Admin;Pwd=;"
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL = "SELECT * FROM data WHERE id="&myId&""
rs.Open SQL, con, 1, 2
rs("placedleft") = myPlacedLeft
rs.Update
rs.Close
con.Close
%>
