• 0
Sign in to follow this  
Fabio AVILA

(Resolvido) Update não funciona

Question

Caros amigos ,

Estou a 2 semana neste código e não vai de jeito nenhum , o problema é o seguinte .. após fazer a modificao e enviar a pagina do update ele diz que foi alterado com sucesso mas não ta mudando nada............... já dei um RESPONSE.WRITE na sql não retorna erro nenhum e esta enviando os dados corretamente .... já não sei o que fazer.....

FORMULARIO:

<% Set Conexao = CreateObject("ADODB.CONNECTION")
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open "Data Source="&Server.MapPath("Noticias.mdb")&";Provider=Microsoft.Jet.OLEDB.4.0;"

 %>

<%id = request.querystring("id")

Set rs = objCon.execute("SELECT * FROM teste WHERE id =" & id)

%>
<form name="form" method="post" action="grava.asp">

<input name="nome_campo" type="text" value="<%=rs("local")%>" size="60">

<input type="hidden" name="id" value="<%=rs("id")%>"> 
          <input type="submit" name="Submit" value="Alterar">
    
      </form>
Pagina do UPDATE
<%
Set conObj = Server.CreateObject("ADODB.Connection")
conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Noticias.mdb") & ";"
%>

<%local = Request.Form("nome_campo") 



id = Request.Form("id")

strQuery = "UPDATE teste SET  nome_campo="&local&"  WHERE id ="&id



On error Resume Next
Set ObjRs = objCon.execute.Execute(strQuery)
On error Resume Next

'Executaa inserção no Banco de Dados 

'Fecha o Objeto de Conexão

conObj.Close


Set conObj = nothing
Response.write "Registro foi alterado com sucesso!"
response.write "<br><br>Você será redirecionado em 5 segundos<br>"
response.write "<meta http-equiv='refresh' content='0; url=dados.asp'/>"

%>

Se alguém poder me ajudar... agraçdo ou se tiver outro codigo de update desde que funcione...

abcs

Share this post


Link to post
Share on other sites

1 answer to this question

Recommended Posts

Guest
This topic is now closed to further replies.
Sign in to follow this