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