Boa tarde,

 

estou tentando fazer a inclusão de registros em um banco access e dá o seguinte erro:

Error Type:
Microsoft JET Database Engine (0x80004005)
Operation must use an updateable query.

 

e na exclusão o seguinte erro:

Error Type:
Microsoft JET Database Engine (0x80004005)
Could not delete from specified tables.

 

O diretório virtual tem permissão de escrita e o banco de dados não está "somente leitura"

 

Alguém pode me ajudar ?

 

Valeu

código para atualizar (recebe dados enviados de um form):

 

<%
 Dim Nome, Tipo, Categoria, Ator, Diretor, Valor, Sinopse, SQL, rst, Erro, rst1, SQL1, Codigo
 Codigo = Request("Codigo")
 Nome = ucase(trim(Request("Nome")))
 Tipo = trim(Request("Tipo")) 
 Categoria = Request("Categoria")
 Ator = ucase(trim(Request("Ator")))
 Diretor = ucase(trim(Request("Diretor")))
 Valor = trim(Request("Valor"))
 Sinopse = ucase(trim(Request("Sinopse")))
 SQL = "Select * From Filmes WHERE [Codigo do filme] = " & Codigo
  Set rst = server.createobject("adodb.recordset")
  rst.open SQL, vgdb, 2, 2 
 SQL1 = "Select [Codigo do filme] From Filmes Where [Nome do filme] = '"&Nome&"' AND [Codigo do filme] <> " & Codigo
  Set rst1 = server.createobject("adodb.recordset")
  rst1.open SQL1, vgdb, 1, 1 
 if Nome = "" then
   Erro = 1
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
  Response.Redirect("Atualizar_Filme_Erro.asp?Erro="&Erro)
 elseif Tipo = "" then
   Erro = 2
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing
  Response.Redirect("Atualizar_Filme_Erro.asp?Erro="&Erro)
 elseif Ator = "" then
   Erro = 3
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing   
  Response.Redirect("Atualizar_Filme_Erro.asp?Erro="&Erro)
 elseif Diretor = "" then
   Erro = 4
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing   
  Response.Redirect("Atualizar_Filme_Erro.asp?Erro="&Erro)
 elseif not Isnumeric(Valor)  then
   Erro = 5
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing   
  Response.Redirect("Atualizar_Filme_Erro.asp?Erro="&Erro)
 elseif Sinopse = "" then
   Erro = 6
   rst.close  
   set rst = nothing
   rst1.close
   set rst1 = nothing   
  Response.Redirect("Atualizar_Filme_Erro.asp?Erro="&Erro)
  elseif rst1.eof = False then
   Erro = 8
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing   
  Response.Redirect("Atualizar_Filme_Erro.asp?Erro="&Erro)
  else
   rst("Nome do filme") = Nome
  rst("Tipo produto") = Tipo
  rst("Codigo da categoria") = Categoria
  rst("Ator principal") = Ator
  rst("Diretor") = Diretor
  rst("Valor da locacao") = formatcurrency(Valor)
  rst("Sinopse") = Sinopse
   rst.update  
   rst.close
   set rst = nothing
   rst1.close
   set rst1 = nothing     
  Response.Redirect("Default.asp")  
 end if 
%>

 

 

código usado para inserir (recebe dados de um form):

<%
 Dim Nome, SQL, rst
 Nome = trim(Request("Nome"))
 Nome = ucase(Nome)
 if Nome <> "" then   
   SQL = "Select * From Categorias Where [Nome da categoria] = '"&Nome&"'"
    Set rst = server.createobject("adodb.recordset")
    rst.open SQL, vgdb, 2, 2
   if rst.eof then
      rst.addnew
     rst("Nome da categoria") = Nome
     rst.update
     rst.close
     set rst = nothing
    Response.Redirect("Default.asp")
   else
     rst.close
     set rst = nothing
    Response.Redirect("Inserir_Categoria_Erro.asp?Categoria="&Nome)
   end if
 else
   Response.Redirect("Inserir_Categoria_Erro.asp?Categoria="&Nome)
 end if
%>