Varför får jag detta felmeddelande när jag försöker uppdatera en Access databas?

SQLState: 34000
Native Error Code: 0
[INTERSOLV][ODBC SequeLink driver]Statement with cursor named in this statement's CURRENT-OF-CURSOR clause is not a SELECT FOR UPDATE.

Visa os koden. Typ Connenction string. Hur du öpnar recordsetet. och så...

Id = Request.Form("id")
Rubrik = Request.Form("rubrik")
Kongress = Request.Form("kongress")
Innehall = Request.Form("innehall")


Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=d4695-db;Password=@01#$lefkfgcldphclpbclifhie"


Set RecSet = Server.CreateObject("ADODB.Recordset")
Uppdatera = "SELECT * FROM nyheter WHERE Id = " & Id & " "

RecSet.Open Uppdatera, Connection, adOpenStatic, adLockOptimistic


RecSet("Rubrik") = Rubrik
RecSet("Kongress") = Kongress
RecSet("Innehall") = Innehall

RecSet.Update
RecSet.Close
Connection.Close

Acces stödjer väl inte updaterbara statisk cursors. Testa med adOpenKeyset istället för adOpenStatic.

Ellse så skippar du recordsetet helt:


Id = Request.Form("id")
Rubrik = Request.Form("rubrik")
Kongress = Request.Form("kongress")
Innehall = Request.Form("innehall")

Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open "DSN=d4695-db;Password=@01#$lefkfgcldphclpbclifhie"

Uppdatera = "UPDATE nyheter SET Rubrik = '" & SQLString(Rubrik) & "', Kongress = '" & SQLString(Kongress) & "', Innehall = '" & SQLString(Innehall) & "' WHERE Id = " & Id & " "

Connection.Execute Uppdatera

Connection.Close

Function SQLString(Value)
SQLString = Replace(Value,"'","''")
End Function

Måste man inte inkludera filen adovbs.inc för att adOpenStatic ska funka?
Allra längst upp i koden

<!--#include file="adovbs.inc"-->
eller hur det nu var

/Mikael

Har testat att använda RecSet men fick använda SQL Frågor istället, fattar inte varför det inte funkade!