Med säkerhet en korkad fråga, men hur fanken gör jag för att uppdatera en post i en Accessdatabas?!

Såhär försöker jag göra:

<% Set RecSet = Server.CreateObject("ADODB.Recordset")
fresh = "SELECT * FROM veckoprogram WHERE ID = " & Request.Form("postID") & " "

RecSet.Open fresh, Connect, adOpenStatic, adLockOptimistic

RecSet("rubrik") = Request.Form("rubrik")

RecSet.Update
RecSet.Close
Connect.Close %>


Men då hojtar servern glatt tillbaka att:

ADODB.Recordset.1 error '80004005'

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.



What to do ... what to do!?

Har du inte bara glömt sätta connect till ADODB.Connection så att det ska typ se ut såhär?
<code>
<%
Set RecSet = Server.CreateObject("ADODB.Recordset")
set connect = Server.CreateObject("ADODB.Connection")

'exempel på connect
connect.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data source=c:\ou.mdb"

fresh = "SELECT * FROM veckoprogram WHERE ID = " & Request.Form("postID") & " "

RecSet.Open fresh, Connect, adOpenStatic, adLockOptimistic

RecSet("rubrik") = Request.Form("rubrik")

RecSet.Update
RecSet.Close
Connect.Close %>
</code>

Hoppas detta hjälpte lite

/Michael

Nej, tyvärr inte...

Testa att ändra adOpenStatic till adOpenKeyset

När jag skriver såhär...

<!-- #include file="../../adovbs.inc" -->
<!-- #include file="../../connect.asp" -->
<% fresh = "SELECT * FROM veckoprogram WHERE ID = " & Request.Form("postID") & " "
RecSet.Open fresh, connect, adOpenKeyset, adLockOptimistic
RecSet("rubrik") = Request.Form("rubrik")
RecSet.Update
RecSet.Close %>

....Skriver den snälle servern såhär tillbaka:

Microsoft VBScript runtime error '800a01a8'

Object required: ''

/administrator/redigering/redigera2.asp, line 5


Arrrggghhh!!!

Du har inte satt recordsettet. Testa:

<code>
<!-- #include file="../../adovbs.inc" -->
<!-- #include file="../../connect.asp" -->
<%
fresh = "SELECT * FROM veckoprogram WHERE ID = " & Request.Form("postID")
Set RecSet = Server.CreateObject("ADODB.Recordset")
RecSet.Open fresh, connect, adOpenKeyset, adLockOptimistic
RecSet("rubrik") = Request.Form("rubrik")
RecSet.Update
RecSet.Close
%>
</code>

skit i open key set .. alldelles för sjävla dyrt ..

använd insert istället, eller kör med batch update ..