Wrox Home  
Search P2P Archive for: Go

  Return to Index  

access_asp thread: Cannot update. Database or object is read-only. (0x80040E09)


Message #1 by "ddb" <dana.burke@v...> on Thu, 21 Nov 2002 16:17:57
Hi all,
I have been following all problems related to this and have tried various 
solutions - no success.  Below is the code for updating data in an access 
database.  

First question - I am using Access 95, is this my main problem or should 
this work?
I have checked all CRUD operations in database properties and associated 
folder properties in explorer - all are not read only.
I have added option explicit to my asp code...
I have tried to use the command object instead of a recordset and 
specified the SQL - similar message (Operation must use an updateable 
query)

My Code:
<%Option Explicit%>
<!--#include file="Demodb.asp"-->
<%
  Dim rsPageParameters
  Set rsPageParameters = Server.CreateObject("ADODB.Recordset")
  

  rsPageParameters.Open "Page", objConn, adOpenStatic, adLockOptimistic, 
adCmdTable
  rsPageParameters.Filter = "pageName = '" & Request.Form("pageName") 
& "'"

  if rsPageParameters.EOF Then
	rsPageParameters.AddNew
  End If
  
                                                  ' write demo parameters 
to record
  rsPageParameters("questionText") = Request.Form("questionText")
  rsPageParameters("pageImageName") = Request.Form("pageImageName")
  rsPageParameters("timerDisplay") = Request.Form("timerDisplay")
  rsPageParameters("totalPoints") = Request.Form("totalPoints")
  rsPageParameters("timeLimit") = Request.Form("timeLimit")
  rsPageParameters("nextPageName") = Request.Form("nextPageName")
  rsPageParameters("totalPointsText") = Request.Form("totalPointsText")
  rsPageParameters("answerText1") = Request.Form("answerText1")
  rsPageParameters("answerText2") = Request.Form("answerText2")
  rsPageParameters("answerText3") = Request.Form("answerText3")
  rsPageParameters("answerText4") = Request.Form("answerText4")
  rsPageParameters("rightAnswer") = Request.Form("rightAnswer")
  rsPageParameters.Update                                               ' 
update the database	


  Dim strName, strValue                                   ' create 
session variables
  For each strField in rsPageParameters.Fields
    strName = strField.Name
    strValue = strField.value
    Session(strName) = strValue
  Next

rsPageParameters.Close
Set rsPageParameters = Nothing

  
%>
Hope someone can help...
Thanks,
ddb

Message #2 by "Ken Schaefer" <ken@a...> on Fri, 22 Nov 2002 14:17:07 +1100
Have you checked the NTFS permissions on the file system? Try giving
EVERYONE Change permissions (RWXD) to see if this is the cause of the
problem.

Cheers
Ken

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
From: "ddb" <dana.burke@v...>
Subject: [access_asp] Cannot update. Database or object is read-only.
(0x80040E09)


: Hi all,
: I have been following all problems related to this and have tried various
: solutions - no success.  Below is the code for updating data in an access
: database.
:
: First question - I am using Access 95, is this my main problem or should
: this work?
: I have checked all CRUD operations in database properties and associated
: folder properties in explorer - all are not read only.
: I have added option explicit to my asp code...
: I have tried to use the command object instead of a recordset and
: specified the SQL - similar message (Operation must use an updateable
: query)
:
: My Code:
: <%Option Explicit%>
: <!--#include file="Demodb.asp"-->
: <%
:   Dim rsPageParameters
:   Set rsPageParameters = Server.CreateObject("ADODB.Recordset")
:
:
:   rsPageParameters.Open "Page", objConn, adOpenStatic, adLockOptimistic,
: adCmdTable
:   rsPageParameters.Filter = "pageName = '" & Request.Form("pageName")
: & "'"
:
:   if rsPageParameters.EOF Then
: rsPageParameters.AddNew
:   End If
:
:                                                   ' write demo parameters
: to record
:   rsPageParameters("questionText") = Request.Form("questionText")
:   rsPageParameters("pageImageName") = Request.Form("pageImageName")
:   rsPageParameters("timerDisplay") = Request.Form("timerDisplay")
:   rsPageParameters("totalPoints") = Request.Form("totalPoints")
:   rsPageParameters("timeLimit") = Request.Form("timeLimit")
:   rsPageParameters("nextPageName") = Request.Form("nextPageName")
:   rsPageParameters("totalPointsText") = Request.Form("totalPointsText")
:   rsPageParameters("answerText1") = Request.Form("answerText1")
:   rsPageParameters("answerText2") = Request.Form("answerText2")
:   rsPageParameters("answerText3") = Request.Form("answerText3")
:   rsPageParameters("answerText4") = Request.Form("answerText4")
:   rsPageParameters("rightAnswer") = Request.Form("rightAnswer")
:   rsPageParameters.Update                                               '
: update the database
:
:
:   Dim strName, strValue                                   ' create
: session variables
:   For each strField in rsPageParameters.Fields
:     strName = strField.Name
:     strValue = strField.value
:     Session(strName) = strValue
:   Next
:
: rsPageParameters.Close
: Set rsPageParameters = Nothing
:
:
: %>
: Hope someone can help...
: Thanks,
: ddb
:


  Return to Index