Felmeddelande: CURRENT-OF-CURSOR

2 svar · 194 visningar · startad av evesve 27 apr. 2003

evesveMedlem sedan sep. 2001163 inlägg

Frågan27 apr. 2003 22:11#1

Hej!
Jag får följande felmeddelande när jag laddat upp mina filer till servern.
Får inte felet lokalt hemma.
======================

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
======================

<% ElseIf Request.Form("knapp")="Uppdatera" Then %>
<%ID = Request.Form("ID")%>
<%	Set RecSet = Server.CreateObject("ADODB.Recordset")
   	Uppdatera = "SELECT * FROM tabell WHERE ID = "&ID
%>
<%   
RecSet.Open Uppdatera, Connect, 3, 3 
RecSet("omrade") =Request.Form("omrade")
RecSet("fraga") =Request.Form("fraga")
RecSet("svar") =Request.Form("svar")
RecSet("utvecklat") =Request.Form("utvecklat")
RecSet("senast") =Request.Form("senast")
RecSet("tid") =Request.Form("tid")
%>

<%
RecSet.Update
RecSet.Close

Nån vänlig själ?

Engine^Medlem sedan dec. 20003 887 inlägg

28 apr. 2003 08:33#2

Det kanske fungerar bättre om du inte använder dig av recset.update...

<%
ElseIf Request.Form("knapp")="Uppdatera" Then
  ID = Request.Form("ID")

  Uppdatera = "UPDATE tabell SET omrade = '" & Request.Form("omrade") & "', fraga = '" & Request.Form("fraga") & "', svar = '" & _
    Request.Form("svar") & "", utvecklat = '" & Request.Form("utvecklat") & "', senast = '" & Request.Form("senast") & _
    "', tid  = '" & Request.Form("tid") & "' WHERE ID = " & ID

  Connect.Execute Uppdatera, , 128
%>

evesveMedlem sedan sep. 2001163 inlägg

28 apr. 2003 14:11#3

Självklart gjorde det det!
Tackar!