Ir para conteúdo

POWERED BY:

Arquivado

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

webdibula

nova

Por , em ASP Clássico

Recommended Posts

webdibula    0

webdibula
Postado

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

 

[Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query.

 

/novo/cad_usuarios/oposto.asp, line 42

 

 

 

oposto.asp<!--#include file="db.asp"--><% AbreConexaoIf request.form("enviado") = "sim" ThenCadastrado =Falseset Dicionario = CreateObject("scripting.dictionary")i = 0Sql = "SELECT nome FROM users WHERE nome = '"&Request.form("nome")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Nome de Site já cadastrado!"i= i+1end ifSql = "SELECT email FROM users WHERE email = '"&Request.form("email")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Email já cadastrado!"i= i+1end ifSql = "SELECT login FROM users WHERE login = '"&Request.form("users")&"'"set Rs =Conexao.Execute(Sql)If not Rs.Eof thenDicionario.add i, "Login já cadastrado!"i= i+1end ifVet = Dicionario.itemsif Dicionario.Count<>0 thenResponse.Write "<b><center><font face=verdana size=1>"Response.Write "O(s) seguintes dado(s) está(ão) incorreto(s)<BR><br>"for i = 0 to Dicionario.Count - 1Response.Write vet(i) & "<BR><br>"nextresponse.write "<BR><br>"ElseSql = "INSERT INTO users (nome, email, login, senha, senha2, data) "Sql = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" [b]Conexao.Execute(Sql)[/b]Cadastrado = TrueEnd IfEnd IfIf Cadastrado = False Then ElseSet MyCDONTSMail = CreateObject("CDONTS.NewMail")	HTML = "<!DOCTYPE HTML PUBLIC""-//IETF//DTD HTML//EN"">"	HTML = HTML & "<html>"	HTML = HTML & "<head>" 	HTML = HTML & "</head>"	HTML = HTML & "<body bgcolor=""FFFFFF"">"	HTML = HTML & "<b>Você acabou de se cadastrar no Sistema Cadastro e Login</b><br><br>"	HTML = HTML & "Lembre sempre de seus dados.<br><br>"	HTML = HTML & "Login: "& login &"<br>Senha: "& senha &"<br><br>"	HTML = HTML & "Visite nosso Site: <a href=""www.sitedozanelati.com"">www.sitedozanelati.com</a>"	HTML = HTML & "</body>"	HTML = HTML & "</html>"	MyCDONTSMail.From="zane.juli@ig.com.br"	MyCDONTSMail.To=email	MyCDONTSMail.Subject="Cadastro no Sistema de Cadastro e Login - Site do Zanelati"	MyCDONTSMail.BodyFormat=0	MyCDONTSMail.MailFormat=0	MyCDONTSMail.Body=HTML	MyCDONTSMail.Send	set MyCDONTSMail=nothing %> <p align="center">			<font face="Verdana" size="1">Cadastrado com sucesso!<BR>Entre na administração <font color="#FF0000"><a href="sair.asp"><font face="Verdana" size="1" color="#FF0000">ClicandoAqui! </font></a></font><% End If %>

Compartilhar este post

Link para o post
Compartilhar em outros sites

webdibula    0

webdibula
Postado

pessoal, fiz modificação na linha 42 e agora me mostra esse erro

Microsoft VBScript compilation error '800a03f3' Expected '=' /novo/cad_usuarios/oposto.asp, line 42

[b]Set Conexao.Execute(Sql)[/b]------------------------^antesSql = "INSERT INTO users (nome, email, login, senha, senha2, data) "Sql = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" Conexao.Execute(Sql)agoraSql = "INSERT INTO users (nome, email, login, senha, senha2, data) "Sql = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" [b]Set Conexao.Execute(Sql)[/b]

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

ou voce tira o set ou coloca o resultado em um rs

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

isso mesmo que o Mário falou, você ñ precisa setar um INSERT e do modo que você setou está errado, tente desse jeito

 

Conexao.Execute(Sql)

o primeiro modo estava correto, ñ precisava dessa alteração amigo!!

 

boa programação e qualquer coisa pos æ!

Compartilhar este post

Link para o post
Compartilhar em outros sites

webdibula    0

webdibula
Postado

utilizei tanto Rs =Conexao.Execute(Sql)como Rs =Conexao.Execute(Sql)e o erro que me da é o mesmo.Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /novo/cad_usuarios/oposto.asp, line 41 o q esta errado

Compartilhar este post

Link para o post
Compartilhar em outros sites

Ted k'    126

Ted k'
Postado

utilizei tanto

Rs =Conexao.Execute(Sql)

como

Rs =Conexao.Execute(Sql)

e o erro que me da é o mesmo.

Amigo Set Conexao.Execute(Sql) isso ñ existe!

 

para Inserir, Atualizar, Deletar usa-se a seguinte sintaxe:

 

Conexao.Execute(SQL)

 

Para Selecionar usamos a seguinte sintaxe:

 

Set RS = Conexao.Execute(SQL)

 

o que você fez ñ tem sentido algum!

Compartilhar este post

Link para o post
Compartilhar em outros sites

webdibula    0

webdibula
Postado

atualmente encontra-se assim,

Sql = "INSERT INTO users (nome, email, login, senha, senha2, data) "Sql1 = Sql & "VALUES('" & Request.Form("nome") & "', '" & Request.Form("email") & "', '" & Request.Form("login") & "', '" & Request.Form("senha") & "', '" & Request.Form("senha2") & "', '" & Request.Form("cad_dia") & "/" & Request.Form("cad_mes") & "/" & Request.Form("cad_ano") & "')" response.write(sql1)Conexao.Execute(Sql1)
e o erro que me retorna é esse

INSERT INTO users (nome, email, login, senha, senha2, data) VALUES('maria', 'maria@hotmail.com', 'maria', 'maria', 'maria', '14/8/2007') Microsoft OLE DB Provider for ODBC Drivers error '80004005' [Microsoft][ODBC Microsoft Access Driver] Operation must use an updateable query. /novo/cad_usuarios/oposto.asp, line 43

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

isso é erro de permissao de escrita ou em seu db ou na pasta onde ele se encontra

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