Problemas com update ....

[A Metallica]

Pessoal estou com problemas com um formulario de atualização de conteudo,

a pagina não retorna erro mas tambem não inclui, alguém pode me ajudar por favor.

Não consigo identificar o erro?

Segue o codigo do arquivo que recebe e grava.

<%
'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis
Option Explicit

'Não deixa informações no Cache
Response.Expires = 0

'Declaração das variáveis
Dim objConn, strQuery, sql
Dim ObjRs, varSTATUS, varHISTORICO, autonum

'Atrubuição dos valores as respectivas variáveis
varSTATUS = Request.Form("status")
varHISTORICO = Request.Form("historico")
autonum = Request.Form("autonum")

'Conectando com o banco de dados controos.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\crbasso\so\CS\controos.mdb"

strQuery = "UPDATE TABOS SET STATUS = '"&varSTATUS&"', HISTORICO='"&varHISTORICO&"' WHERE CODNUMERO ="&autonum

'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa a inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"APAGA" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing 
if err = 0 Then
    'Redireciona o usuário caso não tenha ocorrido erro na transação
    response.redirect "index.asp"
end if
%>

[A Metallica]

Fiz este novo modelo mais simples, mas esta dando erro

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

A operação deve usar uma consulta atualizável.

/emp/so/CS/gravar.asp, line 13

alguém sabe me diser o que seria? e como corrigir?

Obrigado

<%
'Conectando com o banco de dados controos.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\crbasso\so\CS\controos.mdb"

'Atrubuição dos valores as respectivas variáveis
varSTATUS = Request.Form("status")
varHISTORICO = Request.Form("historico")
autonum = Request.Form("codnumero")

'strQuery = "UPDATE TABOS SET STATUS = '"&varSTATUS&"', HISTORICO='"&varHISTORICO&"' WHERE CODNUMERO ="&autonum
strQuery = "update TABOS set STATUS = '"&varSTATUS&"', HISTORICO='"&varHISTORICO&"' where CODNUMERO = "&autonum&" "
Set ObjRs = objConn.Execute(strQuery)

Response.Redirect("index.asp")
    
%>

[jow]

O seu UPDATE deve ser sem aspas duplas no final, e digita os campos minusculos.

strQuery = "update TABOS set status = '"&varstatus&"', historico='"&varhistorico&"' where codnumero = "&autonum

Editado Abril 29, 2008 por jow

[A Metallica]

O seu UPDATE deve ser sem aspas duplas no final, e digita os campos minusculos.

strQuery = "update TABOS set status = '"&varstatus&"', historico='"&varhistorico&"' where codnumero = "&autonum

E ai Jow, Tenho um formulario com um combo

<form name="form" action="gravar.asp" method="post" >
<select name="status" id="status">
          <option value="Aprovado">Aprovado</option>
          <option value="cancelado">Cancelado</option>
          <option value="pendente">Pendente</option>
          <option value="revisado">Revisado</option>
        </select>
</form>

gravar.asp

<%
dim ObjRs, objConn, varSTATUS, autonum, strQuery

sub abre_conn
    Set objConn = Server.CreateObject ("ADODB.Connection")
    objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\Inetpub\wwwroot\crbasso\so\CS\controos.mdb"
end sub

sub fecha_conn
    objConn.close
    Set objConn = Nothing
End sub

'Atrubuição dos valores as respectivas variáveis
varSTATUS = request.form("status")
autonum = Request.Form("codnumero")

Call abre_conn
strQuery = "update TABOS set status = '"&varstatus&"' where codnumero = "&autonum
Set ObjRs = objConn.Execute(strQuery)

Response.Redirect("index.asp")

Call fecha_conexao

Set objRs = Nothing
Set objConn = Nothing     
%>

Mas da erro na linha do "Set ObjRs = objConn.Execute(strQuery)"

Erro:

A operação deve usar uma consulta atualizável.

/site/so/CS/gravar.asp, line 20

COMO POSSO CORRIGIR ISSO.

[jow]

Boa tarde,

você declarou assim

<%
dim ObjRs, objConn, varSTATUS, autonum, strQuery

tenta assim

<%
dim objRs, objConn, varSTATUS, autonum, strQuery

E troca essa linha

Set ObjRs = objConn.Execute(strQuery)

por essa

Set objRs = objConn.Execute(strQuery)

O erro deve estar na declaração da sua variável de conexão, não sei se é isso pois você declarou maiusculo, e usou ela minusculo ... Tenta aí

[Notax]

Não creio que seja isso não... A Metalllica me diga uma coisa, você está tentando rodar isso local ou em um servidor?

Não sei... to achando que pode ser um erro de permissões... já tive isso aqui... meu palpite faz mais sentido se estiveres tentando rodar isso local...

da uma olhada nesse link e ve se esclarece alguma coisa:

http://www.babooforum.com.br/forum/index.php?showtopic=63224

[]'s Notax

[bareta]

este erro calareamento é permisssão

Tipo de erro:
Microsoft JET Database Engine (0x80004005)
A operação deve usar uma consulta atualizável.
/emp/so/CS/gravar.asp, line 13

tem um tópico pendurado ai de permissões