Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

marciolvs

Erro (80004005)

Por , em ASP Clássico

Recommended Posts

marciolvs    1

marciolvs
Postado

Boa Tarde pessoal tenho este erro a + de 1 semana + não consigo encontra-lo Alguém pode me ajudar???

 

Agradeço...

 

Tipo de erro:

Microsoft JET Database Engine (0x80004005)

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

/ecommerce/insc6l11.asp, line 51

 

Este é o codigo....

 

<%Option Explicit%><!--#Include File="conexao.inc"--><%DIM conexaodb, RsInsere, RsSQL, StrINS, StrSQL,VarISBN, VarCodCateg, VarTitulo, VarAutor, VarNPaginas, VarFormato, VarPreco, VarResenha, VarCapa, VarDtLanc, VarDescontoVarISBN = TRIM(Request.form("txtISBN"))VarCodCateg = Request.Form("txtCodCategoria") VarTitulo = TRIM(Request.Form("txtTitulo"))VarAutor = TRIM(Request.Form("txtAutor"))VarNPaginas = Request.Form("txtNPaginas")VarFormato = TRIM(Request.Form("txtFormato"))VarPreco = Request.Form("txtPreco")VarResenha = TRIM(Request.Form("txtResenha"))VarCapa = TRIM(Request.Form("txtCapa"))VarDtLanc = DateVarDesconto = Request.Form("txtDesconto")VarTitulo = Replace(VarTitulo, "'", " ")VarAutor = Replace(VarAutor, "'", " ")VarFormato = Replace(VarFormato, "'", " ")VarResenha = Replace(VarResenha, "'", " ")VarCapa = Replace(VarCapa, "'", " ")VarPreco = Replace(VarPreco, ",", ".")VarDesconto = Replace(VarDesconto, ",", ".")StrINS = "INSERT INTO Livros "StrINS = StrINS & "(ISBN, CodCategoria, Titulo, Autor, NPaginas, Formato, Preco, Resenha, Capa, DtLanc, Desconto) "StrINS = StrINS & "VALUES ('" & VarISBN & "',"StrINS = StrINS & VarCodCateg & ","StrINS = StrINS & "'" & VarTitulo & "',"StrINS = StrINS & "'" & VarAutor & "',"StrINS = StrINS & VarNPaginas & ","StrINS = StrINS & "'" & VarFormato & "',"StrINS = StrINS & VarPreco & ","StrINS = StrINS & "'" & VarResenha & "',"StrINS = StrINS & "'" & VarCapa & "',"StrINS = StrINS & "'" & VarDtLanc & "',"StrINS = StrINS & VarDesconto & ")"StrSQL = "SELECT ISBN FROM Livros WHERE ISBN = '" & VarISBN & "'"Call AbreConexaoSet RsSQL = Conexaodb.Execute(StrSQL)%><html><head><title>Inserindo dados em uma tabela</title></head><body bgcolor="#FFFFFF"><%	IF NOT RsSQL.EOF THEN	Response.Write "<font face='arial' size='3' color='red'><b>O Livro com o númro de ISBN: " & VarISBN & " Já existe no cadastro</b></font><br>"	Else	SET RsInsere = Conexaodb.Execute(StrINS)	Response.Write "<font face='arial' size='3' color='green'><b>O Livro: " & VarTitulo & " foi Cadastrado com sucesso</b></font><br>"	END IF	RsSQL.Close	Call FechaConexao	Set RsSQL = Nothing	Set RSInsere = Nothing%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

dark0    0

dark0
Postado

amigoisso é erro de permissãoPode ter certeza disso!Eu te dei um link via PM, você olhou?você precisa dar permissão de escrita na pasta onde o banco está!Se você estiver rodando isso no servidor ONLINE, peça para o suporte qual pasta tem permissao de escrita!Ae você coloca o banco lá dentro!Se nao tiver permissao, nao vai funcionar..

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito