Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
ESTOU TENTANDO INCLUIR UM REGISTRO E ESTA DANDO ESSE ERRO ALGUEM PODE ME AJUDAR?
Microsoft JET Database Engine error '80040e09'
Cannot update. Database or object is read-only.
/central/marca/p_altera_inclui.asp, line 43
SEGUE ABAIXO O CODIGO DA PAGINA
<!--#include file="../../config.inc"-->
<!--#include file="../aut.inc"-->
<!--#include file="../../db.inc"-->
<!--#include file="../../funcoes.inc"-->
<!--#INCLUDE FILE="../reusavel/upload.inc"-->
<%response.flush
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
diretorio = root_central_upload & "/Marca/"
Set RS = Server.CreateObject("ADODB.RecordSet")
set Fields = GetUpload()
Acao = Fields("acao").Value.String
CodigoMarca = Fields("CodigoMarca").Value.String
Marca = Fields("Marca").Value.String
if Marca = "" then
msg = "Digite o nome do Marca!"
end if
'Se a mensagem tiver algo
if msg <> "" then%>
<script>
alert("<%=msg%>");
history.go(-1);
</script>
<%response.end
end if
if acao = "alterar" then
SQL = "select * from Marcas where CodigoMarca = " & CodigoMarca
RS.open SQL, Conn, 1, 3
if RS.eof then
msg = "Parâmetro informado inválido ou incoerente !"
end if
else
CodigoMarca = GeraId("Marcas","CodigoMarca")
SQL = "select * from Marcas where CodigoMarca = 0"
RS.open SQL, Conn, 1, 3
end if
if acao = "incluir" then
msgalert = "Inclusão" ** ( TA FALANDO QUE TEM ERRO NESSA LINHAAA )**
RS.Addnew
RS("CodigoMarca") = CodigoMarca
else
msgalert = "Alteração"
end if
RS("Marca") = Marca
RS.Update
RS.close
set RS = nothing
Conn.close
set Conn = nothing
msgalert = msgalert & " do Marca realizada com sucesso."%>
<script>
alert('<%=msgalert%>');
location = "Default.asp?SQL=<%=Server.URLEncode(RSQL)%><%if RSQL <> "" then response.write "&acao=pesquisar"%>";
</script>
<%else
response.redirect "default.asp"
end if%>
--------------------------------------------
SE ALGUEM PUDER ME AJUDAR É URGENTE MESMO.
Carregando comentários...