[Resolvido] Erro no Update

[Loko da Web 1]

Boa tarde!!!

 

Estou com um problema bem basico... não estou conseguindo atualizar os dados do bd. Tenho 3 paginas:

 

- edita.asp: Apresenta todas as categorias e datas (tudo ok)

- edita1.asp: Apresenta o form pra modificar os campos (tudo ok)

- editaok.asp: Pagina apresenta se deu certo ou não a atualizacao !!! Aqui que esta o erro, não sei o que pode ser... eu acredito que seja problema de parametros,...

 

Microsoft OLE DB Provider for ODBC Drivers error '80040e14'

[Microsoft][ODBC Microsoft Access Driver] Syntax error (missing operator) in query expression 'id ='.

/galeria/galeria/editaok.asp, line 8

Eu coloquei esse codigo na pagina editaok.asp, e ficou tudo em branco...to achando que erro de parametro, mas não sei aonde pode ser

 

Response.Write request.querystring("id")
Response.End

editaok.asp

<%
id = request.Form("id")
data = request.Form("data")
nome_cat = request.Form("nome_cat")

set conexao = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/dados.mdb")
conexao.open constr

set rs = conexao.execute("update categorias set data = '"&data&"', nome_cat = '"&nome_cat&"' where id = "&id)

response.Write("Editado com sucesso!")
%>

Agradeço a ajuda de todos, se precisar do codigo de qualquer destes tres arquivos e só falar.

[Jow Xavier 0]

você está passando o id no formulário ???

posta o código dessa página editaok.asp ...

[Ted k' 126]

a id está vindo via querystring ou form?

[Jow Xavier 0]

posta o código dessa página editaok.asp ...

Não tinha a berto pra mim o código da página

[Loko da Web 1]

Ted esta vindo via querystring, segue o edita1.asp

 

<%
set conexao = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/dados.mdb")
conexao.open constr

id = request.QueryString("id")

set rs = conexao.execute("select * from categorias where id = "&id)
%>

Jow segue o codigo do editaok.asp

 

<%
id = request.Form("id")
data = request.Form("data")
nome_cat = request.Form("nome_cat")

set conexao = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/dados.mdb")
conexao.open constr

set rs = conexao.execute("update categorias set data = '"&data&"', nome_cat = '"&nome_cat&"' where id = "&id)

response.Write("Editado com sucesso!")
%>

Seguindo a logica do Ted, modifiquei o request do id no editaok.asp de form pra querystring, deu o mesmo erro.

[hargon 64]

Como é carregada a página que está dando erro? Através link? iframe?

[Loko da Web 1]

Como é carregada a página que está dando erro? Através link? iframe?

É carregado atraves do link. Pra facilitar a analise vou colocar todos os codigos...

 

edita.asp

 

<%
set conexao = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/dados.mdb")
conexao.open constr

set rs = conexao.execute("select * from categorias order by id desc")
if rs.eof then
response.Write("Nenhum registro!")
else
%>
<p><font size="5">Editar</font></p>
<p> </p>
<table width="75%" border="0" cellpadding="0" cellspacing="0">
  <%do while not rs.eof%>
  <tr> 
	<td><strong>Categoria:</strong><%=rs("nome_cat")%></td>
	<td><strong>Data:</strong><%=rs("data")%></td>
	<td><a href="edita1.asp?id=<%=rs("id")%>">Editar</a></td>
  </tr>
  <%rs.movenext
  loop%>
</table>
<%end if%>

edita1.asp

 

<%
set conexao = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/dados.mdb")
conexao.open constr

id = request.QueryString("id")

set rs = conexao.execute("select * from categorias where id = "&id)
%>
<p> <font size="5">Editar</font></p>
<form name="form6" method="post" action="editaok.asp">
  <p> </p>
  <table border="0" cellspacing="0" cellpadding="0">
	<tr> 
	  <td><strong>Data:</strong></td>
	  <td> <input name="data" type="text" id="data" value="<%=rs("data")%>"> 
	  </td>
	</tr>
	<tr> 
	  <td><strong>Categoria</strong></td>
	  <td> <input name="nome_cat" type="text" id="nome_cat" value="<%=rs("nome_cat")%>"> </td>
	</tr>
	<tr> 
	  <td> <input type="submit" name="Submit" value="Enviar"> </td>
	  <td> <input type="reset" name="Submit2" value="Limpar"> </td>
	</tr>
  </table>
</form>

editaok.asp

 

<%
id = request.Form("id")
data = request.Form("data")
nome_cat = request.Form("nome_cat")

set conexao = createobject("adodb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("db/dados.mdb")
conexao.open constr

set rs = conexao.execute("update categorias set data = '"&data&"', nome_cat = '"&nome_cat&"' where id = "&id)

response.Write("Editado com sucesso!")
%>

[Ted k' 126]

parece que esse id = request.Form("id") não esta´recebendo valor

 

coloque um campo de hidden no form assim:

 

<form name="form6" method="post" action="editaok.asp">
<input type="hidden" name="id" value="<%=request.QueryString("id")%>">

[Loko da Web 1]

parece que esse id = request.Form("id") não esta´recebendo valor

 

coloque um campo de hidden no form assim:

 

<form name="form6" method="post" action="editaok.asp">
<input type="hidden" name="id" value="<%=request.QueryString("id")%>">

Cara, agora deu certo !!!! Valeu e obrigado a todos que me ajudaram.... http://forum.imasters.com.br/public/style_emoticons/default/natal_biggrin.gif

[Ted k' 126]

beleza rapa, na veja direito seu código, pois estava puxando um form se existir, qualquer coisa posta æ!