[Resolvido] Erro cruel

delua · Maio 15, 2010

Quando tento escluir um usuario entra esta msg na pagina do site

Microsoft JET Database Engine erro '80040e14'

Erro de sintaxe (operador faltando) na expressão de consulta 'usersdetailsid ='. /Ivo/usersdetails.asp, line 60

o codigo é este

<!--#include file ="inc.asp"-->
<% usersdetailsid=Request.Querystring("id") %>
<% action=Request.Querystring("action") %>
<% add=Request.Form("add") %>
<% edit=Request.Form("edit") %>
<% editid=Request.Form("1") %>
<% input2=Request.Form("2") %>
<% input3=Request.Form("3") %>
<% input4=Request.Form("4") %>

<% response.write fontstuff %>
<a href=usersdetails.asp?action=add>Adicionar novo usuário</a><BR><BR>

<center>

<%
if action ="" and edit ="" and add ="" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

 

 


set RS = Conn.Execute("SELECT * FROM [usersdetails]")


If not RS.eof then
 RS.movefirst
 Do
  

  response.write  "<form action=""usersdetails.asp"" method=""post""><input type=hidden name =""edit"" value=""edit""><table border=1 width=500 cellpadding=3 cellspacing=0><td width=100>" &fontstuff& "ID </td><td>"&fontstuff&"<input type=text name =1 value="""&Rs("usersdetailsID")&"""></td><TR>"
  response.write  "<td>" &fontstuff& "Email </td><td>"&fontstuff&"<input type=text name =2 value="""&Rs("usersemail")&"""></td><TR>"
  response.write  "<td>" &fontstuff& "Password </td><td>"&fontstuff&"<input type=password name =3 value="""&Rs("userspass")&"""></td><tr>"
  response.write  "<td>" &fontstuff& "Nickname </td><td>"&fontstuff&"<input type=text name =4 value="""&Rs("nickname")&"""></td><tr>"
    response.write  "<td>" &fontstuff& "<input type=submit value =Edit></form></td><td>"&fontstuff&"<a href=""usersdetails.asp?id="&Rs("usersdetailsID")&"&action=delete"">Delete</a></td><tr>"
  response.write  "<br><BR></table>"

  Rs.movenext
 Loop until RS.eof
End if
Conn.Close
Set Conn = Nothing

end if

%>

<%

if action = "delete" then

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "  &usersdetailsid
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>

<%

if edit = "edit" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

sql_update = "UPDATE usersdetails SET usersdetails.usersemail = '"&input2&"', usersdetails.userspass='"&input3&"' , usersdetails.nickname='"&input4&"' where usersdetails.usersdetailsID =" &editid

Conn.Execute sql_update
Conn.Close
Set Conn = Nothing

response.write "<a href=usersdetails.asp>Editar</a>"
end if
%>

<% if action = "add" then %>
<table>

<form action="usersdetails.asp" method="post">
<input type =hidden name="add" value="add">
Endereço de Email<BR>
<input type=text name="2" value=""><BR>
Senha<BR>
<input type=password name="3" value="">
<BR>
Nome<BR>
<input type=text name="4" value="">
<BR>

<input type=submit value="Adicionar">
</form>
</table>

<%end if%><%

if add = "add" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

sql_insert = "insert into usersdetails (usersemail, userspass ,nickname) values ('"&input2&"',  '"&input3&"' ,  '"&input4&"' )"
 Conn.Execute sql_insert
    Conn.Close
    Set Conn = Nothing
response.write "<a href=usersdetails.asp>Adicionar este usuário</a>"
end if
%>

hargon · Maio 15, 2010

O erro acontece acima da linha abaixo, correto?

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = " &usersdetailsid

Logo abaixo dela, informe

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "  &usersdetailsid
Response.Write sql_delete
Response.End

Poste o resultado que aparecer na tela ao executar a página.

Alexandre.Itba · Maio 15, 2010

Poste o código da página que contem o link que você clica para realizar a exclusão.

O erro acontece porque o arquivo usersdetails.asp não esta recebendo o request ID

delua · Maio 16, 2010

O erro acontece acima da linha abaixo, correto?

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = " &usersdetailsid

Logo abaixo dela, informe
sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "  &usersdetailsid
Response.Write sql_delete
Response.End
Poste o resultado que aparecer na tela ao executar a página.

Microsoft JET Database Engine erro '80040e14'

Erro de sintaxe (operador faltando) na expressão de consulta 'usersdetailsid ='. /Ivo/usersdetails.asp, line 60

O erro acontece acima da linha abaixo, correto?

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = " &usersdetailsid

Logo abaixo dela, informe
sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "  &usersdetailsid
Response.Write sql_delete
Response.End
Poste o resultado que aparecer na tela ao executar a página.

Microsoft JET Database Engine erro '80040e14'

Erro de sintaxe (operador faltando) na expressão de consulta 'usersdetailsid ='. /Ivo/usersdetails.asp, line 60

Poste o código da página que contem o link que você clica para realizar a exclusão.

O erro acontece porque o arquivo usersdetails.asp não esta recebendo o request ID

o codigo é este que esta acima

Alexandre.Itba · Maio 16, 2010

No seu código, localize:

<%

if action = "delete" then

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "  &usersdetailsid
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>

e substitua por:

<%

if action = "delete" then

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "  &usersdetailsid
Response.Write sql_delete
Responde.End()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>

Conforme o Hargon sugerium, e em seguida poste oque aparecer escrito na tela do Browser.

delua · Maio 16, 2010

No seu código, localize:

<%

if action = "delete" then

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "  &usersdetailsid
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>

e substitua por:

<%

if action = "delete" then

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "  &usersdetailsid
Response.Write sql_delete
Responde.End()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>

Conforme o Hargon sugerium, e em seguida poste oque aparecer escrito na tela do Browser.

Alexandre fiz isto e a pagina deu erro http 500

veja neste link = http://www.cvfacil.com.br/Ivo/index.asp

clica em edit usersdetails

Alexandre.Itba · Maio 16, 2010

Tem um pequeno erro ae, localize:

Responde.End()

e troque por:

Response.End()

Acho que foi o corretor ortográfico do Chrome que corrigiu automaticamente.

delua · Maio 17, 2010

Tem um pequeno erro ae, localize:

Responde.End()

e troque por:

Response.End()

Acho que foi o corretor ortográfico do Chrome que corrigiu automaticamente.

Fiz a correção e testando no IIS mostra o sequinte,

Home

Adicionar novo usuário

DELETE FRON usersdetails WHERE usersdetailsid = 19

<%

if action ="delete" then

sql_delete = "DELETE FRON usersdetails WHERE usersdetailsid = "&usersdetailsid

Response.Write sql_delete

Response.End()

Set Conn = Server.CreateObject ("ADODB.Connection")

Conn.Open dnsname

Conn.Execute sql_delete Conn.Close

set Conn = Nothing

response.write "<a href=usersdetails.asp>Delete</a>"

end if%>

Alexandre.Itba · Maio 17, 2010

No seu banco de dados, qual o tipo de dado definido para o campo usersdetailsid?

Se não for um tipo numérico, o erro está aí, você deverá alterar o tipo de dado, ou então adicionar aspas simples, ficando (POG):

sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = '"& usersdetailsid &"'"

O correto é DELETE FROM e não DELETE FRON (é com M).

xanburzum · Maio 17, 2010

Verifique a ortografia. pode ser um nome de coluna Invalido 'sua_coluna'. A coluna a qual você se refere na Base de Dados não foi encontrada. e também veja se os tipos de dados estão corretos

delua · Maio 17, 2010

Alexandre to pirado aqui,posso te enviar os arquivos para você dar uma olhada ae....

Não to entendendo mais nada,pois neste link= http://www.cvfacil.com.br/Ivo/index.asp

todos edit funcionam menos o edit usersdetails.

se você concordar te mando os arquivos zipado pra ti dar uma olhada Ok...

Me responda neste e-mail= ivo.jhr@terra.com.br

xanburzum · Maio 17, 2010

qual o resultado quando dá um response.write na SQL

Response.Write sql_delete
Response.End()

delua · Maio 17, 2010

Aqui esta o codigo ABAIXO

============================================================

<!--#include file ="inc.asp"-->
<% usersdetailsid=Request.Querystring("id") %>
<% action=Request.Querystring("action") %>
<% add=Request.Form("add") %>
<% edit=Request.Form("edit") %>
<% editid=Request.Form("1") %>
<% input2=Request.Form("2") %>
<% input3=Request.Form("3") %>
<% input4=Request.Form("4") %>

<% response.write fontstuff %>
<a href=usersdetails.asp?action=add>Adicionar novo usuário</a><BR><BR>
<center>
<%
if action ="" and edit ="" and add ="" and delete="" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

set RS = Conn.Execute("SELECT * FROM [usersdetails]")


If not RS.eof then
 RS.movefirst
 Do
  

  response.write  "<form action=""usersdetails.asp"" method=""post""><input type=hidden name =""edit"" value=""edit""><table border=1 width=500 cellpadding=3 cellspacing=0><td width=100>" &fontstuff& "ID </td><td>"&fontstuff&"<input type=text name =1 value="""&Rs("usersdetailsID")&"""></td><TR>"
  response.write  "<td>" &fontstuff& "Email </td><td>"&fontstuff&"<input type=text name =2 value="""&Rs("usersemail")&"""></td><TR>"
  response.write  "<td>" &fontstuff& "Password </td><td>"&fontstuff&"<input type=password name =3 value="""&Rs("userspass")&"""></td><tr>"
  response.write  "<td>" &fontstuff& "Nickname </td><td>"&fontstuff&"<input type=text name =4 value="""&Rs("nickname")&"""></td><tr>"
  response.write  "<td>" &fontstuff& "<input type=submit value =Edit></form></td><td>"&fontstuff&"<a href=""usersdetails.asp?id="&Rs("usersdetailsID")&"&action=delete"">Delete</a></td><tr>"
  response.write  "<br><BR></table>"

  Rs.movenext
 Loop until RS.eof
End if
Conn.Close
Set Conn = Nothing

end if
%>


<%
if action ="delete" then
sql_delete = "DELETE FROM usersdetails WHERE usersdetailsid = "&usersdetailsid
Response.Write sql_delete
Response.End()
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete 
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>

<%

if edit = "edit" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

sql_update = "UPDATE usersdetails SET usersdetails.usersemail = '"&input2&"', usersdetails.userspass='"&input3&"' , usersdetails.nickname='"&input4&"' where usersdetails.usersdetailsID =" &editid

Conn.Execute sql_update
Conn.Close
Set Conn = Nothing

response.write "<a href=usersdetails.asp>Edit</a>"
end if
%>

<% if action = "add" then %>
<table>

<form action="usersdetails.asp" method="post">
<input type =hidden name="add" value="add">
Endereço de Email<BR>
<input type=text name="2" value=""><BR>
Senha<BR>
<input type=password name="3" value="">
<BR>
Nome<BR>
<input type=text name="4" value="">
<BR>

<input type=submit value="Adicionar">
</form>
</table>

<%end if%><%

if add = "add" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

sql_insert = "insert into usersdetails (usersemail, userspass ,nickname) values ('"&input2&"',  '"&input3&"' ,  '"&input4&"' )"
 Conn.Execute sql_insert
    Conn.Close
    Set Conn = Nothing
response.write "<a href=usersdetails.asp>Adicionar este usuário</a>"
end if
%>

ESTE É OCODIGO ----------------------------------

=======================================================

Vamos por etapas;

1) voce entre neste link= http://www.cvfacil.com.br/Ivo/index.asp

depois de entrado va em EDIT USERSDETAILS e clica nele,

ao abrir a pagina tenta deletar........e veja a msg.

vou colocar um link aqui para você ver o que diz;

http://www.cvfacil.com.br/Ivo/usersdetails.asp?id=17&action=delete

Alexandre.Itba · Maio 18, 2010

Boa noite a todos.

Se possível teria como postar pra gente o conteúdo do arquivo inc.asp ?

Comparando o trecho do seu código que faz o Update com o Delete, aparentemente está tudo correto, mas por via das dúvidas, altere o seu código para:


<%
if action ="delete" then
sql_delete = "DELETE FROM usersdetails WHERE usersdetails.usersdetailsID =" &usersdetailsid

Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete 
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>

delua · Maio 18, 2010

Boa noite a todos.

Se possível teria como postar pra gente o conteúdo do arquivo inc.asp ?

Comparando o trecho do seu código que faz o Update com o Delete, aparentemente está tudo correto, mas por via das dúvidas, altere o seu código para:
<%
if action ="delete" then
sql_delete = "DELETE FROM usersdetails WHERE usersdetails.usersdetailsID =" &usersdetailsid

Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete 
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>

ARQUIVO INC.ASP

<% 
'dnsname="dbase"
dnsname= "Data Source=" & Server.Mappath("dbase.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"
fontstuff="<font face=verdana size=2 color=#000000>"
response.write fontstuff
%>
<a href=index.asp>Home</a><BR><BR>

delua · Maio 18, 2010

Boa noite a todos.

Se possível teria como postar pra gente o conteúdo do arquivo inc.asp ?

Comparando o trecho do seu código que faz o Update com o Delete, aparentemente está tudo correto, mas por via das dúvidas, altere o seu código para:
<%
if action ="delete" then
sql_delete = "DELETE FROM usersdetails WHERE usersdetails.usersdetailsID =" &usersdetailsid

Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete 
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>
ARQUIVO INC.ASP

<%

'dnsname="dbase"

dnsname= "Data Source=" & Server.Mappath("dbase.mdb") & ";Provider=Microsoft.Jet.OLEDB.4.0;"

fontstuff="<font face=verdana size=2 color=#000000>"

response.write fontstuff

%>

<a href=index.asp>Home</a><BR><BR>

E AO FAZER A MODIFICAÇÃO NESTA LINHA = sql_delete = "DELETE FROM usersdetails WHERE usersdetails.usersdetailsID =" &usersdetailsid

APARECE A SEQUINTE MSG= http://www.cvfacil.com.br/Ivo/usersdetails.asp?id=17&action=delete

MENSAGEM = DELETE FROM usersdetails WHERE usersdetails.usersdetailsID= 17

delua · Maio 18, 2010

Parabénizo a todos que com grande empenho me ajudaram a resolver este "ERRO CRUEL",foi recebendo informações que houve de minha parte a satisfação de ver resolvido este topico.

posto aqui o codigo resolvido e funcionando beleza....Meu muito Obrigado....

<!--#include file ="inc.asp"-->
<% usersdetailsid=Request.Querystring("id") %>
<% action=Request.Querystring("action") %>
<% add=Request.Form("add") %>
<% edit=Request.Form("edit") %>
<% editid=Request.Form("1") %>
<% input2=Request.Form("2") %>
<% input3=Request.Form("3") %>
<% input4=Request.Form("4") %>

<% response.write fontstuff %>
<a href=usersdetails.asp?action=add>Adicionar novo usuário</a><BR><BR>
<center>
<%
if action ="" and edit ="" and add ="" and delete="" then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

set RS = Conn.Execute("SELECT * FROM [usersdetails]")


If not RS.eof then
RS.movefirst
Do
  

  response.write  "<form action=""usersdetails.asp"" method=""post""><input type=hidden name =""edit"" value=""edit""><table border=1 width=500 cellpadding=3 cellspacing=0><td width=100>" &fontstuff& "ID </td><td>"&fontstuff&"<input type=text name =1 value="""&Rs("usersdetailsID")&"""></td><TR>"
  response.write  "<td>" &fontstuff& "Email </td><td>"&fontstuff&"<input type=text name =2 value="""&Rs("usersemail")&"""></td><TR>"
  response.write  "<td>" &fontstuff& "Password </td><td>"&fontstuff&"<input type=password name =3 value="""&Rs("userspass")&"""></td><tr>"
  response.write  "<td>" &fontstuff& "Nickname </td><td>"&fontstuff&"<input type=text name =4 value="""&Rs("nickname")&"""></td><tr>"
  response.write  "<td>" &fontstuff& "<input type=submit value =Edit></form></td><td>"&fontstuff&"<a href=""usersdetails.asp?id="&Rs("usersdetailsID")&"&action=delete"">Delete</a></td><tr>"
  response.write  "<br><BR></table>"

  Rs.movenext
Loop until RS.eof
End if
Conn.Close
Set Conn = Nothing

end if
%>


<%
if action ="delete" then
[b]sql_delete = "DELETE FROM usersdetails WHERE usersdetails.usersdetailsID =" &usersdetailsid[/b]
Set Conn = Server.CreateObject ("ADODB.Connection")
Conn.Open dnsname
Conn.Execute sql_delete 
Conn.Close
set Conn = Nothing
response.write "<a href=usersdetails.asp>Delete</a>"
end if
%>


<%

if edit = "edit" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

sql_update = "UPDATE usersdetails SET usersdetails.usersemail = '"&input2&"', usersdetails.userspass='"&input3&"' , usersdetails.nickname='"&input4&"' where usersdetails.usersdetailsID =" &editid

Conn.Execute sql_update
Conn.Close
Set Conn = Nothing

response.write "<a href=usersdetails.asp>Edit</a>"
end if
%>

<% if action = "add" then %>
<table>

<form action="usersdetails.asp" method="post">
<input type =hidden name="add" value="add">
Endereço de Email<BR>
<input type=text name="2" value=""><BR>
Senha<BR>
<input type=password name="3" value="">
<BR>
Nome<BR>
<input type=text name="4" value="">
<BR>

<input type=submit value="Adicionar">
</form>
</table>

<%end if%><%

if add = "add" then

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open dnsname

sql_insert = "insert into usersdetails (usersemail, userspass ,nickname) values ('"&input2&"',  '"&input3&"' ,  '"&input4&"' )"
Conn.Execute sql_insert
    Conn.Close
    Set Conn = Nothing
response.write "<a href=usersdetails.asp>Adicionar este usuário</a>"
end if
%>

Arquivado

[Resolvido] Erro cruel

Recommended Posts

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

Alexandre.Itba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Alexandre.Itba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Alexandre.Itba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Alexandre.Itba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Alexandre.Itba 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

delua 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida referente a PDV

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

Fóruns

Tempo Real

Informação importante