Hej

Sitter här och börjar bli lite smått galen. Jag lyckas få fram de poster jag vill från databasen men sen när de ska uppdateras så tar det stop. Jag kan inte fatta vad jag gör för fel, suben funkar på en annan sida fast här vill den inte.

Kan ju säga att jag inte är nån expert på detta, det är därför jag fråger er om hjälp =)




<code>
<%
Sub save()
strProjectname=Trim(Request.Form("projectname"))
strContactperson=Trim(Request.Form("contactperson"))
strWhy=Trim(Request.Form("why"))
strWhat=Trim(Request.Form("what"))
strHow=Trim(Request.Form("how"))
strWhen=Trim(Request.Form("when"))
intWidth=CInt(Request.Form("width"))
intHeight=CInt(Request.Form("height"))
intImagestatus = CInt(Request.Form("img"))
If intImagestatus = 0 Then
strImage = "none"
Else
strImage = Trim(Request.Form("itemlist"))
End If
intId = CInt(Request.Form("id"))

objRS.CursorLocation = adUseServer
objRS.CursorType = adOpenKeyset
objRS.LockType = adLockOptimistic
objRS.Open "projects", objConn, , , adCmdTable

If Not objRS.bof Then
objRS.MoveFirst
End If

Do Until objRS.fields("id") = intId
objRS.MoveNext
Loop

objRS("projectname")=FixaTecken(strProjectname)
objRS("contactperson")=FixaTecken(strContactperson)
objRS("why")=FixaTecken(strWhy)
objRS("what")=FixaTecken(strWhat)
objRS("how")=FixaTecken(strHow)
objRS("when")=FixaTecken(strWhen)
objRS("imagesrc") = FixaTecken(strImage)
objRS("width") = intWidth
objRS("height") = intHeight


objRS.Update
objRS.Close



Call disconnect()
Response.Redirect "lista.asp?whichpage=" & Request.Form("whichpage")
End Sub
%>
</code>

Kan de vara så att du inte har satt rätt rättigheter på databasen?

Vad är det då för rättigheter du menar, att det inte är skrivrättigheter eller nåt sånt?
Det är skrivrättigheter på hela db:n, men kan det vara så att det är olika rättigheter på olika tabels?

För den funkar på en annan sida som jobbar mot en annan tabell. Men sidorna är ju inte helt identiska, kan mycket väl vara så att jag har skrivit fel nånstans. Men jag vet inte vart =)
Men ser det rätt ut annars?

Mvh Claes

Du kan istället använd SQL:
<code>
Sub save()
strProjectname=Trim(Request.Form("projectname"))
strContactperson=Trim(Request.Form("contactperson"))
strWhy=Trim(Request.Form("why"))
strWhat=Trim(Request.Form("what"))
strHow=Trim(Request.Form("how"))
strWhen=Trim(Request.Form("when"))
intWidth=CInt(Request.Form("width"))
intHeight=CInt(Request.Form("height"))
intImagestatus = CInt(Request.Form("img"))
If intImagestatus = 0 Then
strImage = "none"
Else
strImage = Trim(Request.Form("itemlist"))
End If

intId = CInt(Request.Form("id"))

objConn.Execute "UPDATE projects SET projectname='" & FixaTecken(strProjectname)& "', " & _
"contactperson='" & FixaTecken(strContactperson) & "', " & _
"why='" & FixaTecken(strWhy) & "', " & _
"what='" & FixaTecken(strWhat) & "', " & _
"how='" & FixaTecken(strHow) & "', " & _
"when='" & FixaTecken(strWhen) & "', " & _
"imagesrc='" & FixaTecken(strImage) & "', " & _
"width=" & intWidth & ", " & _
"height=" & intHeight & vbCrLf & _
"WHERE id = " & intId

Call disconnect()
Response.Redirect "lista.asp?whichpage=" & Request.Form("whichpage")
End Sub
</code>

Nu fick jag istället följande felmeddelande.

Microsoft JET Database Engine error '80040e14'

Syntax error in UPDATE statement.

/RandD/Inhouse/admintools/projects/update.asp, line 426


Line 426 är
<code>
objConn.Execute "UPDATE projects SET projectname='" & FixaTecken(strProjectname)& "', " & _
</code>


Men det är skönt att i alla fall få ett felmeddelande så att man har nåt att jobba efter.
Du har inte nån idé vad det kan vara?

Mvh Claes

Hej

Testa att plocka ihop din SQL sats till en variabel och så skriver du ut den innan du exekverar den.

T ex:
strSQL ="UPDATE SET fält = något, något = annat" osv
sen skriver du ut det med Response.Write "SQL = " & strSQL
Response.End ' För att slippa felmeddelandet.

Jag tycker att det är enklare att se om någon variabel blir tom eller om det är något fel i SQL satsen.

//Anna-Karin

har testat lite utifrån det du sa, men jag förstår inte riktigt.
Har kommit så långt så att jag har fått in SQL satsen i en variabel. Jag har skrivit ut variabeln och där är allt updaterat som jag vill.

Men jag förstår inte riktigt hur jag skall använda mig av Response.write för att updatera värdena i db:n

Om jag exekverar variabeln med sql satsen så får jag fortfarande samma fel.

Detta är vad jag har hittat på hittils...vad är fel =) verkar vara min standardfråga.

<code>
<% strSql="UPDATE projects SET projectname='" & FixaTecken(strProjectname)& "', " & _
"contactperson='" & FixaTecken(strContactperson) & "', " & _
"why='" & FixaTecken(strWhy) & "', " & _
"what='" & FixaTecken(strWhat) & "', " & _
"how='" & FixaTecken(strHow) & "', " & _
"when='" & FixaTecken(strWhen) & "', " & _
"imagesrc='" & FixaTecken(strImage) & "', " & _
"width=" & intWidth & ", " & _
"height=" & intHeight & vbCrLf & _
"WHERE id = " & intId

'Response.write"SQL="&strSql
'Response.End

objConn.Execute(strSql)
%>
</code>