Search results matching tag 'Microsoft JET Database Engine error '80004005''

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query

alvintiow — Tue, 21 Jul 2009 02:08:19 GMT

Hi,

I already granted permission to user and used updateable query but I still encounter this error in default.asp & addvote.asp?save when I tried to add vote, thanks in advance.

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

/poll/result.asp, line 31

Default.asp

<html>
<head>
<title>Employee vote system</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>

<body bgcolor="#FFFFFF">
<div align="center"><form name="form1" method="post" action="result.asp" target="result_win">
<%
'on error resume next
dim rs,sql
set rs=server.createobject("adodb.recordset")
if request("id")="" then
sql="select top 1 * from question order by id desc"
else
sql="select * from question where id="&request("id")
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then response.redirect "addvote.asp"
follow_id=rs("id")
allow_multiple=rs("allow_multiple")
if allow_multiple then response.write "<input type=hidden name=itype value=chk>"
response.write "<input type=hidden name=qid value="&follow_id&">"
%>

    <table width="180" border="0" cellpadding="3" cellspacing="0">
      <tr>
        <td bgcolor="#00CCFF"><%=rs("question")%></td>
    </tr>
<%
rs.close
sql="select * from answer where follow_id="&cstr(follow_id)
rs.open sql,conn,1,1
do while not rs.eof
%>
    <tr>
        <td bgcolor="#CCFF66">
<%
if allow_multiple then
response.write "<input type='checkbox' name=chk value='"&rs("id")&"'>"&rs("answer")
else
response.write "<input type='radio' name='rb' value='"&rs("id")&"'>"&rs("answer")
end if
%>
        </td>
    </tr>
<%
rs.movenext
loop
rs.close

%>
    <tr>
        <td bgcolor="#996600">
          <div align="center">
<input type="submit" name="Submit" value="vote" onClick="document.form1.action='result.asp?action=vote';window.open('','result_win','width=450,height=250,scrollbars=yes')">
<input type="submit" name="Submit2" value="result" onClick="document.form1.action='result.asp?action=result';window.open('','result_win','width=450,height=250,scrollbars=yes')">
          </div>
        </td>
    </tr>
</table>
</form>
<br>
<br><b>Past vote</b>
<table width="88%" border="0">
    <tr bgcolor="#00CC00">
      <td width="8%" nowrap>id</td>
      <td width="58%" nowrap>question</td>
      <td width="8%" nowrap>total votes</td>
      <td width="26%" nowrap>date</td>
    </tr>
<%
sql="select * from question order by id desc"
rs.open sql,conn,1,1
if err then response.write err.description
if not rs.eof then
do while not rs.eof
%>
    <tr bgcolor="#FFDDFF">
      <td width="8%"><%=rs("id")%></td>
      <td width="58%"><a href=<%=request.servervariables("script_name")%>?id=<%=rs("id")%>><%=rs("question")%></a></td>
      <td width="8%"><%=rs("total_votes")%></td>
      <td width="26%"><%=rs("addtime")%></td>
    </tr>
<%
rs.movenext
loop
else
response.write "<tr><td colspan=4>not avaiable!</td></tr>"
end if
rs.close
set rs=nothing
endconnection
%>
</table>
[<a href="addvote.asp">add vote</a>]</div>
</body>
</html>

Vote.asp

document.write("<form name=agilent method=post action='<%=vote_location%>?action=vote' target=result_win>");
<%
'on error resume next
dim rs,sql
set rs=server.createobject("adodb.recordset")
if request("id")="" then
sql="select top 1 * from question order by id desc"
else
sql="select * from question where id="&request("id")
end if
rs.open sql,conn,1,1
total_votes=rs("total_votes")
follow_id=rs("id")
allow_multiple=rs("allow_multiple")
if allow_multiple then response.write "document.write('<input type=hidden name=itype value=chk>');"
response.write "document.write('<input type=hidden name=qid value="&follow_id&">');"
%>
document.write('<table width="100%" border="0" cellpadding="3" cellspacing="0">');
document.write('<tr><td><%=rs("question")%></td></tr>');
<%
rs.close
sql="select * from answer where follow_id="&cstr(follow_id)
rs.open sql,conn,1,1
do while not rs.eof
%>
document.write('<tr><td>');
<%
if allow_multiple then
response.write "document.write("&chr(34)&"<input type='checkbox' name='chk' value='"&rs("id")&"'>"&rs("answer")&chr(34)&");"
else
response.write "document.write("&chr(34)&"<input type='radio' name='rb' value='"&rs("id")&"'>"&rs("answer")&chr(34)&");"
end if
%>
document.write("</td></tr>");
<%
rs.movenext
loop
rs.close
set rs=nothing
endconnection
%>
document.write('<tr><td>Total<b><%=total_votes%></b>employee vote<br>
<input type="submit" name="Submit" value="vote" onclick="document.agilent.action=document.agilent.action.replace(\'=result\',\'=vote\');window.open(\'\',\'result_win\',\'width=450,height=250,scrollbars=yes\')"><input type="submit" name="Submit2" value="result" onclick="document.agilent.action=document.agilent.action.replace(\'=vote\',\'=result\');window.open(\'\',\'result_win\',\'width=450,height=250,scrollbars=yes\')"></td></tr></table></form>');

addvote.asp

<%if request.querystring<>"" then%>

<%
dim rs,sql
set rs=server.createobject("adodb.recordset")

select case request.querystring
case "save"
on error resume next
if request("allow_multiple")="yes" then
  conn.execute "insert into question(question,allow_multiple,addtime,total_votes) values('"&request("question")&"',true,now(),0)"
else
  conn.execute "insert into question(question,addtime,total_votes) values('"&request("question")&"',now(),0)"
end if
response.write err.description
dim follow_id,acount
sql="select top 1 * from question order by id desc"
rs.open sql,conn,1,1
follow_id=rs("id")
rs.close
set rs=Nothing
acount=cint(request("acount"))
for i=1 to acount
  conn.execute "insert into answer(answer,follow_id,votes) values ('"&request("a"&cstr(i))&"',"&cstr(follow_id)&",0)"
next
endconnection
response.write "<font style='font-size=9pt'>Added new vote successfully!<br><br>This is youe code: <br>Javascript code: <br><textarea cols=52 rows=5><script language=javascript src='http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"addvote","vote")&"?id="&cstr(follow_id)&"'></script></textarea><br>HTML code: <br><textarea cols=52 rows=5><a href='http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"addvote","default")&"?id="&cstr(follow_id)&"' target=_blank>"&request("question")&"</a></textarea><br>UBB code: <br><textarea cols=52 rows=5>"&request("question")&"</textarea><br><br><tr><td><script language=javascript src='http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"addvote","vote")&"?id="&cstr(follow_id)&"'></script> </td></tr></table><br><br>[<a href=default.asp>Retun to Home</a>]</font>"
case "login"
sql="select * from admin where user='"&request("username")&"' and pwd='"&request("password")&"'"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
  response.write "Wrong user name or password!"
else
  session("login")=true
  response.redirect request.servervariables("script_name")
end if
rs.close
set rs=nothing
endconnection
end select
else
%>
<HTML>
<HEAD>
<TITLE>Add vote</TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="Alvin">
<META NAME="Keywords" CONTENT="voting">
<META NAME="Description" CONTENT="voting">
<style type="text/css">

</style>
</HEAD>

<BODY BGCOLOR="#FFFFFF">
<%if session("login")<>true then%>
<form name="form2" method="post" action="<%=request.servervariables("script_name")%>?login">

<table width="250" border="0" align="center" bgcolor="#FFFFCC">
    <tr>
      <td colspan="2" bgcolor="#FFCC00">
        <div align="center">admin login</div>
      </td>
    </tr>
    <tr>
      <td nowrap>
        <div align="right">User name: </div>
      </td>
      <td nowrap>
        <input type="text" name="username">
         </td>
    </tr>
    <tr>
      <td nowrap>
        <div align="right">Password: </div>
      </td>
      <td nowrap>
        <input type="password" name="password">
         </td>
    </tr>
    <tr>
      <td nowrap>　</td>
      <td nowrap>
        <input type="submit" name="Submit4" value="login">
        <input type="reset" name="Submit5" value="cancel">
      </td>
    </tr>
</table>
</form>
<%else%>
<%if request("question")="" then%>
<form name="form1" method="post" action="<%=request.servervariables("script_name")%>">

<table width="88%" border="0" align="center" cellspacing="0" cellpadding="3">
    <tr>
      <td bgcolor="#FFCC00">Step 1: Enter the question</td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">Question:
        <input type="text" name="question" size="48">
        </td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">How many selection in total:
        <input type="text" name="acount" size="3" value="15" maxlength="2">
      </td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">
        <div align="center">
          <input type="submit" name="Submit" value="next">
          <input type="reset" name="Submit2" value="Cancel">
        </div>
      </td>
    </tr>
</table>
</form>
<%else%>
<form name="form3" method="post" action="<%=request.servervariables("script_name")%>?save">

<table width="60%" border="0" align="center" cellspacing="0" cellpadding="3">
    <tr>
      <td bgcolor="#FFCC00">Step 2: Enter the answer</td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">Question <b><%=request("question")%></b>
        <input type=hidden name=question value="<%=request("question")%>">
      </td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">
        <p><br>
          How many answer in total <input type=hidden name=acount value="<%=request("acount")%>"></p>
        <p>
          <%
for i=1 to cint(request("acount"))
         response.write "Answer"&cstr(i)&"：<input type=text name=a"&cstr(i)&"><br>"
next
%>
        </p>
      </td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">
        <input type="checkbox" name="allow_multiple" value="yes">
        Allow multiple choice</td>
    </tr>
    <tr>
      <td bgcolor="#FFFFCC">
        <div align="center">
          <input type="button" name="Submit3" value="<last step" onClick="history.go(-1)">
          <input type="submit" name="Submit" value="Submit">
          <input type="reset" name="Submit2" value="Cancel">
        </div>
      </td>
    </tr>
</table>
</form>
<%
end if
end if
%>

</BODY>
</HTML>
<%end if%>

viewresult.asp

<html>
<head>
<title>Result</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">

</style>
</head>

<table width="93%" border="0">
    <tr bgcolor="#FFCC00">
      <td width="28%">Result</td>
      <td width="60%">Percentage</td>
      <td width="12%">vote</td>
    </tr>
<%
sql="select allow_multiple,total_votes from question where id="&request("qid")
rs.open sql,conn,1,1
total_votes=rs("total_votes")
if total_votes=0 then total_votes=1
rs.close
sql="select * from answer where follow_id="&request("qid")
rs.open sql,conn,1,1
do while not rs.eof
all_votes=all_votes+rs("votes")
if all_votes=0 then all_votes=1
rs.movenext
loop
rs.movefirst
do while not rs.eof
%>
    <tr nowrap bgcolor="#FFFFCC">
      <td width="28%"><%=rs("answer")%></td>
      <td width="60%"><img src="bar.bmp" name=bar height=12 width=<%=cstr(FormatPercent(rs("votes")*0.68/all_votes,2))%>>
        <%=cstr(FormatPercent(rs("votes")/all_votes,2))%></td>
      <td width="12%"><%=rs("votes")%></td>
    </tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
endconnection
%>
    <tr nowrap>
      <td width="28%">　</td>
      <td width="60%">
        <div align="right">Total<%=total_votes%>employee vote</div></td>
      <td width="12%">Total<%=all_votes%></td>
    </tr>
</table>
<p>[<a href="BLOCKED SCRIPTwindow.close()">Close windows</a>] </p>
</div>

</body>
</html>

result.asp

<%
'on error resume next
dim rs,sql
set rs=server.createobject("adodb.recordset")
if request("action")="vote" then
Filepath = "F:\Inetpub\abc\poll\ssuappraisal.mdb"
set conn=server.CreateObject("ADODB.Connection")
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath
sql="select * from votes where follow_id="&request("qid")&" and ip='"&request.servervariables("remote_addr")&"'"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
   conn.execute "update votes set [ip]='" & request.servervariables("remote_addr") & "', [follow_id]='" & request("qid") & "'"

   ' conn.execute "insert into votes(ip,follow_id) values ('"&request.servervariables("remote_addr")&"',"&request("qid")&")"
  if request("itype")="chk" then
   for i= 1 to request.form("chk").count
    if isnull(request.form("chk")(i))=false then
     conn.execute "update answer set votes=votes+1 where id="&request.form("chk")(i)
    end if
   next
  else
   if request("rb")<>"" then
    conn.execute "update answer set votes=votes+1 where id="&request("rb")
   end if
  end if
  conn.execute "update question set total_votes=total_votes+1 where id="&request("qid")
  response.write "Your vote is successful, thanks for your vote!"
else
response.write "You have voted already!"
end if
rs.close
end if
%>
<table width="93%" border="0">
    <tr bgcolor="#FFCC00">
      <td width="28%">Result</td>
      <td width="60%">Percentage</td>
      <td width="12%">Vote</td>
    </tr>
<%
sql="select allow_multiple,total_votes from question where id="&request("qid")
rs.open sql,conn,1,1
total_votes=rs("total_votes")
rs.close
sql="select * from answer where follow_id="&request("qid")
rs.open sql,conn,1,1
do while not rs.eof
all_votes=all_votes+rs("votes")
rs.movenext
loop
if all_votes=0 then all_votes=1
rs.movefirst
do while not rs.eof
%>
    <tr nowrap bgcolor="#FFFFCC">
      <td width="28%"><%=rs("answer")%></td>
      <td width="60%"><img src="bar.bmp" name=bar height=12 width=<%=cstr(FormatPercent(rs("votes")*0.68/all_votes,2))%>>
        <%=cstr(FormatPercent(rs("votes")/all_votes,2))%></td>
      <td width="12%"><%=rs("votes")%></td>
    </tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
endconnection
if total_votes=0 then all_votes=0
%>
    <tr nowrap>
      <td width="28%">　</td>
      <td width="60%">
        <div align="right">Total <%=total_votes%>employee vote</div></td>
      <td width="12%">Total<%=all_votes%></td>
    </tr>
    <tr nowrap>
      <td width="28%">　</td>
      <td width="60%">
        <div align="right">　</td>
      <td width="12%">[<a href="BLOCKED SCRIPTwindow.close()">close windows</a>] </td>
    </tr>
</table>

</div>
</body>
</html>
setup.asp

<%
db_name="ssuappraisal.mdb" 'can be path eg: db/news.mdb

s=split(Request.ServerVariables("PATH_INFO"),"/")
for i=0 to ubound(s)-1
path=path+s(i)&"/"
next
vote_location="http://"&Request.ServerVariables("SERVER_NAME")&path&"result.asp"
'result.asp path

dim conn
dim connstr
'on error resume next

connstr = "DBQ=" + server.mappath(db_name) + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
  err.clear
  set conn=nothing
  response.write "database connection error！"
  Response.End
else
  conn.open connstr
  if err then
   err.clear
   set conn=nothing
   response.write "database connection error！"
   Response.End
  end if
end if

sub endConnection()
  conn.close
  set conn=nothing
end sub

Got problem with MS Access, please help.

Chonanis — Mon, 16 Mar 2009 09:43:53 GMT

I'm running IIS7 on Window Server 2008. There are about 100 domains in my server. Most domains work fine, but there usually has problem with domains which are using MS Access with asp. Those domains work fine for some time, then these error occur:

"Microsoft JET Database Engine error '80004005'" or "Active Server Pages error 'ASP 0113' Script timed out"

I used to try restarting IIS, it doesn't help. What I have to do is rebooting my server, then everything will get back to work as normal. This problem happen about once to twice times a week. While the problem happens, other domains which are not using MS Access work fine.

I don't think that it is because of the coding, because it happens to every domains which are using MS Access. What can be the cause? And how prevent it to happen again? Please suggest.

The dreaded "Operation must use an updateable query" on IIS7/Vista

skillsy — Sat, 29 Nov 2008 05:27:06 GMT

Hi all,

I have spent the last two days pulling what is left of my hair out with this conumdrum. I am attempting to test on a new Vista IIS7 on localhost an update of an access 2003 db by a test user. This all worked on my xp 2000 laptop that has been put out to pasture.

I enabled IIS and set-up anODBC (standardMS Access driver) connection to the database. The first page of the suite reads in the dropdown list of countries from a table stored in the database so I know that it can both find and read the database.

The error comes when attempting to register a user in a table with a test of the code below...

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@LANGUAGE="VBSCRIPT"%>


<%
Dim conn,rsRider
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open MM_AACdb_STRING

Set rsRider = Server.CreateObject("ADODB.Recordset")
rsRider.ActiveConnection     = Conn
rsRider.CursorLocation         = 3' adUseClient
rsRider.CursorType             = 3 'adOpenStatic instead of adOpenKeyset
rsRider.LockType             = 3 'adLockOptimistic
rsRider.Source                 = "tblRider"
rsRider.Open

'-------------------------------
'---- Create New Rider ----
'-------------------------------
rsRider.Addnew
rsRider("lngRiderMasterID")                        = null
rsRider("lngDistanceId")                        = 1
rsRider("bytSiteId")                            = 0
rsRider("bytStateID")                            = 3
rsRider("txtCountryID")                            = "AU"
rsRider("bytRiderStatus")                        = 10 ' Rider Details Lodged - no payment details
rsRider.update
lngRiderId = rsRider("lngRiderID")
rsRider.Close
set rsRider = nothing
set conn = nothing
%>
<html>
<head>

</head>
<body>
Done: <%=lngRiderId%>
</body></html>

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

/ssl/register/yTest.asp, line 29

I have performed the following from this thread...

http://blogs.iis.net/bills/archive/2007/05/21/tips-for-classic-asp-developers-on-iis7.aspx

which was to run theses commands as administrator...

%windir%\system32\inetsrv\appcmd set config /section:applicationPools /[name='DefaultAppPool'].processModel.loadUserProfile:false

icacls %windir%\serviceprofiles\networkservice\AppData\Local\Temp /grant Users:(CI)(S,WD,AD,X)

icacls %windir%\serviceprofiles\networkservice\AppData\Local\Temp /grant "CREATOR OWNER":(OI)(CI)(IO)(F)

I also used Process Monitor to locate any issues but apart from the odd Fast IO denial, all appears above board.

So now I admit I have been beaten by the machine and have even less hair. All the security looks fine so where do I turn to????

TIA

Skillsy

IIS7, ASP MS Access Problem

arny1 — Tue, 18 Nov 2008 19:46:47 GMT

IIS7 Configuration?

NTFS Permissions?

Temp File?

DSN or DSN-less connection

Any idea?

IIS7 - NTFS Permission for Classic ASP and MS Access Database

arny1 — Mon, 17 Nov 2008 16:58:31 GMT

What should be the permission in a Vista - IIS7 system for Temp file? and ofcourse for intpub Folder!!!!!

Classic Asp and MS Access problem on IIS7, windows vista home premium

arny1 — Sun, 16 Nov 2008 20:18:38 GMT

I've been searching for the solution for more than a month.

I tried every single step to connect and read Access Database in ASP pages.

%windir%\system32\inetsrv\appcmd set config /section:applicationPools /[name='DefaultAppPool'].processModel.loadUserProfile:false

icacls %windir%\serviceprofiles\networkservice\AppData\Local\Temp /grant Users:(CI)(S,WD,AD,X)

icacls %windir%\serviceprofiles\networkservice\AppData\Local\Temp /grant "CREATOR OWNER":(OI)(CI)(IO)(F)

I tried all of them, I also checked the permission, manually,and still no luck, Can anybody tell me exactly what should I do?

What are the permissions for the Database itself? who shiuld be the owner of the file? .....

Thanks

Re: Microsoft JET Database Engine error '80004005'

RitaRoy — Mon, 28 Jul 2008 18:39:34 GMT

I noticed a similar error a few months back in my application. After a week of head ache I could find a solution. Thanks to Kanbal.com. Try the solution in the below mentioned url. This could be bcos of the IUSR account permissions or the usage of MS access keywords in column names. Check it out at:-

http://www.kanbal.com/index.php?/Int...ied-error.html

Hope this helps.

Re: Unspecified error

vibhub — Wed, 12 Mar 2008 06:48:36 GMT

I too am getting the same error but can't the find the resolution to it. Have Windows Vista Home Premium edition installed.