7 replies to this topic

[ashburner]

Tem algo errado nessa inclusao de dados?

<%
'Força a declaração de todas as variáveis
Option Explicit
'Não deixa informações no Cache
Response.Expires = 0
'Declaração das variáveis
Dim objConn, objRs, strQuery, strConnection, Nome, Idade, Telefone, Email, Genero, Loja
'Atrubuição dos valores as respectivas variáveis
Nome = Request.Form("Nome")
Idade = Request.Form("Idade")
Telefone = Request.Form("Telefone")
Email = Request.Form("Email")
Genero = Request.Form("Genero")
Loja = Request.Form("Loja")
'Cria o objeto RecordSet e atribui a variável
Set objConn = Server.CreateObject("ADODB.Connection")
'Abre a conexão com o banco de dados utilizando o Drive {Microsoft Access...
'(para utilizar outro, ex: Paradox é só substituir o Drive pelo do Paradox)
'(*.mdb) indica que o arquivo utiliza extensão mdb
objConn.Open "DBQ=" & server.mapPath("master/grafipel.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
'Insere os dados na tabela aberta
strQuery = "INSERT INTO Cadastros (Nome,Idade,Telefone,Tmail,Genero,Loja) VALUES ('"&Nome&"','"&Idade&"','"&Telefone&"','"&Email&"','"&Genero&"','"&Loja&"')"
'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
'Caso a função On Error Resume Next não tenha sido chamada o objeto err será = a 0
if err = 0 Then
'Redireciona o usuário caso não tenha ocorrido erro na transação
response.redirect "sucesso.asp"
end if
%>

[Prog]

Me diga você... qual a mensagem de erro que ele indica?

Se ele não estiver mostrando o erro, retire a linha On Error Resume Next... aí sim indicará o erro.

[ashburner]

esse é o erro:

Microsoft OLE DB Provider for ODBC Drivers erro '80004005'

[Microsoft][Driver ODBC para Microsoft Access] A operação deve usar uma consulta atualizável.

/inserir.asp, line 24

[::: Mr.Crowley :::]

normalmente esse erro seria pra quem vai atualizar o banco de dados por UPDATE e esquece de por no FORM no final do action o "?id=id"
nunca me ocorreu isso num INSERT...reveja todo seu código no seu DB tb se vc num botou nada errado!

Edição feita por: ::: Mr.Crowley :::, 05/07/2004, 14:42.

[ashburner]

Algm ai pode me dizer se esse codigo tem algo errado?

[myaccount2lists]

Isso acontece tanto para UPDATE como para INSERT

Acontece porque seu banco de dados.mnão esta permitindo atualização.

Para solucionar, é simples:

Clique no BANCO.MDB que vc esta usando e vai em Propriedades. Na voce tem que setar segurança com permissao total para todos os usuarios.

[ashburner]

quando eu vou em propriedades aparecente somente os dados do arquivo nada de aba segurança.
Essa imagem é o que aparece.

[.:Matrix:.]

kra, eu fui fazer um teste em uma empresa prum trampo 10, chegou lah, no insert que era o inicio de tudo deu esse pau, e toca eu passar o teste todo tentando achar a solução e nada, fiquei mto mto mto puto mesmo, o teste era uma babaquice, mto facil, e me deu esse erro, depois disso nem terminei o resto, fiquei nervoso e sai andando hauahauhauahau, eh fods, mais eu ainda to tentando arrumar essa parada ae... se descobrir me da um toque

PS.: Isso foi num simples Inser Into, pois no Select * From tudo funfo.

abraços