Banco De Dados

Agosto 25, 2004

Ola amigos,

gostaria de saber por que aparece esta mensagem de erro??

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

fico muito agradecido por me ajudar.

bareta · Agosto 25, 2004

veja este tópico:

http://scriptbrasil.com.br/forum/index.php...ndpost&p=148642

Victor · Agosto 25, 2004

Ola amigos,
gostaria de saber por que aparece esta mensagem de erro??
Microsoft JET Database Engine error '80004005'
Operation must use an updateable query.
fico muito agradecido por me ajudar.

Boiô em bareta...

Wagner Garcia, esse erro acontece porque algum codigo do seu arquivo está errado Posta ele ai, deve ser algum erro de string que você colocou no update!

dark0 · Agosto 25, 2004

Calma com as palavras aí victor..

Esse erro, é típico de Erro de Permissões!

Naquele tópico que o bareta passou, fala exatamente isso. O Erro é o mesmo abordado lá.. porém em ingles..

Creio que o problema seja esse mesmo!

Basta o criador do tópico vir nos dizer se a dica funcionou, ou se não funcionou!

Abraços

Agosto 26, 2004

Ola amigos,

Obrigado pela ajuda.

Mas, não consegui resolver o problema.

Estou usando este provedor de hoepedagem:

www.webnow.com.br

Este é o erro:

Microsoft JET Database Engine error '80004005'

Operation must use an updateable query.

inbox.asp, line 149

DEVO CONTATAR O PROVEDOR PARA FAZER MODIFICAÇÕES?????

veja o código da página(nome do arquivo "inbox.asp":

<%
Option Explicit
Dim sql, username, rsMessages, rsAdminMessages, rsMessageRead, newcount
username = Request.Cookies("username")
if username = "" then
Response.Redirect("nologin.asp?page=inbox.asp")
end if
%>

<%
sql = "SELECT Messages.*, icon FROM Users INNER JOIN Messages ON Users.username = Messages.sentfrom WHERE sendto = '" & username & "' ORDER BY datesent DESC"
Set rsMessages = Server.CreateObject("ADODB.Recordset")
rsMessages.Open sql, conn, 3, 3
'Count the amount of new messages
newcount = 0
if not rsMessages.EOF then
rsMessages.Movefirst
do until rsMessages.EOF
if rsMessages("messageread") = False then
newcount = newcount + 1
end if
rsMessages.Movenext
loop
rsMessages.Movefirst
end if
sql = "SELECT * FROM messages WHERE sentfrom = 'site admin' AND sendto = '" & username & "' ORDER BY datesent DESC"
Set rsAdminMessages = Server.CreateObject("ADODB.Recordset")
rsAdminMessages.Open sql, conn, 3, 3
if not rsAdminMessages.EOF then
rsAdminMessages.Movefirst
do until rsAdminMessages.EOF
if rsAdminMessages("messageread") = False then
newcount = newcount + 1
end if
rsAdminMessages.Movenext
loop
rsAdminMessages.Movefirst
end if
%>
<html>
<head>
<title>Inbox</title>
<meta name="generator" content="Microsoft FrontPage 5.0">
</head>
<body bgcolor="#FFFFFF" link="#339900" vlink="#339900" alink="#339900" background="figs/fund.gif">
<div align="center">
<center>
<table width="495" cellspacing=0 cellpadding=3 border=1 bordercolor="#FFFFCC">
<tr bgcolor="#000000">
<th align="left" width="398" bgcolor="#336600">

<%=username%> - Caixa de mensagens - novas mensagens: <%=newcount%>
</th>

<th align="right" width="79" bgcolor="#336600">
<a style="color: #FFFFFF" href="messagecompose.asp">Enviar
uma mensagem</a></th>
</tr>

<tr>
<td align="center" colspan=2 width="485">
<%if rsMessages.EOF then%>
Não tem mensagens pra você! <%else
'Display messages
do until rsMessages.EOF%>
<table width="90%" cellspacing=0 cellpadding=2 align="center" border=0 bordercolor="#000000">
<tr>
<td bgcolor="white">De : <%=rsMessages("sentfrom")%>
</td>
<td bgcolor="white"> </td>
</tr>
<tr>
<td bgcolor="white">Enviada em : <%=rsMessages("datesent")%></td>
<td align="right" valign="top" width=125 rowspan=3 bgcolor="white">
<img src="icons/<%=rsMessages("icon")%>.gif"> 
</td>
</tr>
<tr>
<td bgcolor="white">Assunto : <%=rsMessages("subject")%></td>
</tr>
<tr>
<td bgcolor="white">Messagem: <%=rsMessages("message")%></td>
</tr>
</table>
<a href="messagecompose.asp?senduser=<%=rsMessages("sentfrom")%>&subject=<%=Server.URLEncode(rsMessages("subject"))%>">Responder</a> |
<a href="messagedelete.asp?messageid=<%=rsMessages("id")%>">Apagar</a>
<hr color="#000000">
<%rsMessages.Movenext
loop
end if
'Display messages from Admin
if not rsAdminMessages.EOF then
do until rsAdminMessages.EOF%>
<table width="90%" cellspacing=0 cellpadding=2 align="center" border=0 bordercolor="#000000">
<tr>
<td bgcolor="white">De : <%=rsAdminMessages("sentfrom")%>
</td>
<td bgcolor="white"> </td>
</tr>
<tr>
<td bgcolor="white">Enviada em : <%=rsAdminMessages("datesent")%></td>
<td align="right" valign="top" width=125 rowspan=3 bgcolor="white">
<img src="icons/admin.gif"> 
</td>
</tr>
<tr>
<td bgcolor="white">Assunto : <%=rsAdminMessages("subject")%></td>
</tr>
<tr>
<td bgcolor="white">Messagem : <%=rsAdminMessages("message")%></td>
</tr>
</table>
<a href="messagedelete.asp?messageid=<%=rsAdminMessages("id")%>">Apagar</a>
<hr color="#000000">
<%rsAdminMessages.Movenext
loop
end if%>

</td>
</tr>
</table>
</center>
</div>
<a href="inbox.asp"><img src="figs/caixa_entrada.gif" width="27" height="24" border="0">Novas mensagens</a>
   |    <a href="messagecompose.asp"><img src="figs/new.gif" width="20" height="20" border="0">
Envie uma mensagem</a>
 
<a href="index.asp">Voltar</a>
<center>Sertão Online Networks</center>

</body>
</html>
<%
set rsMessageRead = conn.Execute("UPDATE Messages SET messageread = True WHERE sendto = '" & username & "'")
rsMessages.close
set rsMessages = nothing
rsAdminMessages.close
set rsAdminMessages = nothing
conn.close
set conn = nothing
%>

dark0 · Agosto 26, 2004

brother.. antes de mais nada, faça um teste LOCALMENTE.

Se no seu PC, com IIS/PWS funcionar.. o problema é o SERVIDOR!

Entrar

Banco De Dados

Pergunta

Guest Wagner Garcia

Link para o comentário

Compartilhar em outros sites

5 respostass a esta questão

Posts Recomendados

bareta

Link para o comentário

Compartilhar em outros sites

Victor

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Guest Wagner Garcia

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades