[Resolvido] update não funciona?

lezão · Março 14, 2012

Ola galera tenho um update meio antigo sempre usei ele agora ele naun quer funcionar.

Será q ficou velho d+! kkkkkkk

Form_alterar.asp

<html>

<head>
<%
'Option Explicit
'Response.Expires = 0
On error resume Next

Dim objConn, stringSQL, strConnection, id
id = Request.QueryString("radio")
'On error Resume Next
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
Set objRS =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("../../DataBase/DataBase11.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
stringSQL = "SELECT * FROM Estoque WHERE id = "&id
Set objRS = objConn.Execute(stringSQL)
'Deletando registro da tabela contato onde esta a id
if err <> 0 Then%>
<title>ASPBRASIL</title>

</head>

<body>
<div align="center"><font face="Verdana" size="2"><b>Ocorreu algum erro!</b><br><a href="javascript:history.back(-1)">Volta</a></font></div>
<%else%>
		<div align="center">



           <form method="post" action="altera_dados.asp" name="form">

		<input type="hidden" name="id" value="<%=objRS("id")%>">
<table width="13%" border="0" cellspacing="0" cellpadding="0">
 <tr>
   <td><div align="center"><font size="2" face="Verdana">Vendido</font></div></td>
 </tr>
 <tr>
   <td><table width="129">
             <col width="64" style="width:48pt">
             <tr height="17" style="height:12.75pt">
               <td height="17" width="121" style="height: 12.75pt">
                 <div align="center"><font color="#000000" size="1" face="Verdana">Codigo:</font>
                     <font size="1" color="#000000" face="Verdana"> <%=RIGHT("0000" & objRS("Id"), 5)%></b></font></div></td>
             </tr>
             <tr height="17" style="height:12.75pt">
               <td height="17" style="height: 12.75pt" width="121">
                 <p align="center">

			  <font size="2" face="Verdana">Sim <input type="radio" value="vendido" name="vendido" >  
                 Não <input type="radio" value="Á venda" name="vendido" checked> </font></td>
             </tr>
   </table></td>
 </tr>
 <tr>
   <td><font size="1" Color="#000000" face="Verdana"><%=objRS("data")%> - <%=objRS("hora")%></font></td>
 </tr>
 <tr>
   <td><div align="center">
     <input type="submit" value="Alterar" name="enviar">
   </div></td>
 </tr>
</table>

</form>

<%end if%>
</body>
</html>

Altera_dados.asp

<%
'Força o programador a declarar todas as variáveis, evitando erro de digitação no uso das variéveis
Option Explicit

'Não deixa informações no Cache
Response.Expires = 0

'Declaração das variáveis
Dim objConn, strQuery, sql_query, RsQuery, campo, sql, id
Dim vendido, data, hora, ObjRs

'Atrubuição dos valores as respectivas variáveis
vendido = Request.Form("vendido")



if data = "" then
hora = " "
end if
id = Request.Form("id")

'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("../../DataBase/DataBase11.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "UPDATE Estoque SET vendido = '"&vendido&"', data='"&data&"', hora='"&hora&"' WHERE id ="&id

'Caso ocorra um erro esta função de erro será chamada
On error Resume Next
'Executa inserção no Banco de Dados 
Set ObjRs = objConn.Execute(strQuery)
'Fecha o Objeto de Conexão
objConn.close
'"Zera" qualquer instancia que possa ter no objeto objRs e objConn
Set objRs = Nothing
Set objConn = Nothing 
if err = 0 Then
end if
%><head>
<meta http-equiv="refresh" content="3;url=form_exclui.asp">
</head>



<p align="center"><img border="0" src="../../imagens/carregando.gif"></p>

Naun sei mais oq fazer com esse idoso!

Vinicius Ianni · Março 14, 2012

Apresenta algum erro ?

dá um response.write na query do update e veja se os dados estão sendo passados corretamente.

lezão · Março 14, 2012

Naun apresenta nenhum erro mas tbm naun altera oq eu estou precisando

Salgado · Março 14, 2012

Comente a linha que está com o On Error Resume Next e veja se aparece algum erro.

lezão · Março 14, 2012

Fiz oq você me pediu e apareceu esse erro

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

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

/public_html/websowzza/megaveiculos/painel/estoque/altera_dados.asp, line 34

Salgado · Março 14, 2012

Antes de executar a SQL de um response.Write nela e verifique se está tudo correto.

lezão · Março 14, 2012

Salgado naun sou muito bom nisso eu nem sei oq é dar um response.Write pra te falar a verdade.

como q se faz ?

Mário Monteiro · Março 14, 2012

Aparentemente não está recuperando o valor de id mas para confirmar faça o que o salgado pediu

Ante de

Set ObjRs = objConn.Execute(strQuery)

Ponha

Response.Write(strQuery)

lezão · Março 15, 2012

Ola Mario bom dia!

fiz oq você falo e aparece isso naun sei oq quer dizer !

UPDATE Estoque SET vendido = '', data='', hora=' ' WHERE id =

Mário Monteiro · Março 15, 2012

quer dizer que de fato voce não está passando o id a ser atualizado

Qual a pagina que está chamando está ai para ver de onde vem este valor

id = Request.Form("id")

lezão · Março 15, 2012

essa aki

Form_altera.asp

<% registros = 6
pagina = Request.QueryString("pagina") 
If pagina = "" Then 
pagina = 1 
End If 

'Efetuando a conexão com a base de dados criada ----------------------- 
Set conexao = Server.CreateObject("AdoDB.Connection") 
conexao.provider="Microsoft.Jet.OLEDB.4.0" 
conexao.connectionstring=Server.Mappath("../../Database/Database11.mdb")
conexao.open 

Set rs = Server.Createobject("ADODB.RECORDSET") 
set rs.ActiveConnection = Conexao 
rs.CursorType = 3 
rs.PageSize = registros  

sql = "SELECT * FROM Estoque ORDER BY id DESC"
rs.Open sql 
If rs.EOF Then
Response.Write "<center><font face=Verdana size=2><b>Nenhum registro encontrado!</b><br><br><a href=javascript:history.back(-1)><font face=Verdana, Arial, Helvetica, sans-serif size=1>Voltar</font></a> </center></font>"


Else
rs.AbsolutePage = pagina
x = x + 1
%>	


<form method="get" action="form_altera.asp" name="form">
<%While Not rs.EOF AND x < rs.PageSize x = x + 1 %>
<table width="100%" border="0" cellspacing="3" cellpadding="3">
<tr class="tbcor1" onMouseOver="this.style.backgroundColor='#C7CCD0';" onMouseOut="this.style.backgroundColor='';">
   <td colspan="4"><table width="100%" border="0" cellspacing="0" cellpadding="0" class="texto" style="border: 1px solid black">
 <tr>
   <td width="10%" rowspan="3"><img src='<%=rs("Foto1")%>' width="104" height="88" border="1px"/></td>
   <td width="48%"><div align="left"><font size="2" Color="#FFFFFF" face="Verdana">Modelo: <%=rs("nome")%></font></div></td>
   <td><div align="left"><font size="2" Color="#FFFFFF" face="Verdana"><b>Ano: <%=rs("ano")%></b></font></div></td>
   <td width="20%"> <div align="center"><font size="2" Color="#FFFFFF" face="Verdana"><b>COD.: <%=RIGHT("0000" & rs("Id"), 5)%></b></font></div></td></tr>
 <tr>
   <td>
     <table width="100%" border="0" cellspacing="0" cellpadding="0">
       <tr>
         <td width="80%"><font size="6" Color="#FF9900" face="Verdana"><b><%=FormatCurrency(rs("Valor"))%></b></font></td>
         <td width="20%"><div align="center"><img src="imagens/Marcas/<%=rs("fabricante")%>.png" width="60" height="60" /></div></td>
       </tr>
     </table></td>
   <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
     <tr>
       <td><div align="center"><font size="2" Color="#FFFFFF" face="Verdana"><b>Combustivel</b></font></div></td>
     </tr>
     <tr>
       <td><div align="center"><font size="2" Color="#FFFFFF" face="Verdana"><b><%=rs("combustivel")%></b></font></div></td>
     </tr>
   </table></td>
   <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
       <tr>
         <td width="53%"><div align="right"><font face="Verdana" size="1">
           <input type="radio" name="radio" value="<%=rs(0)%>" />
         </font></div></td>
         <td width="47%">
           <div align="left">
             <input name="imageField" type="image" src="../../imagens/bt-alt.png" alt="Deseja realmente alterar!" />
             </div></td>
       </tr>
     </table></td>
 </tr>
 <tr>
   <td> </td>
   <td colspan="2"><div align="right"><font size="2" Color="#FFFFFF" face="Verdana">Atualizado em: <%=rs("data")%> - <%=rs("hora")%></font></div></td>
   </tr>
</table>
</td>
 </tr>
</table>


	<% rs.MoveNext
Wend
%>


</form>

<table width="100%" border="0" cellspacing="0" cellpadding="0">
 <tr>
   <td><div align="center"><font size="1" Color="#FFFFFF" face="Verdana">
     <%
anterior = pagina - 1
proxima = pagina + 1
ultima = rs.PageCount
primeira = 1
ultm2 = FormatNumber(rs.PageCount - 1,0)
If pagina <> 1 Then
Response.Write "<b>« <a href=form_exclui.asp?pagina="&primeira&">Primeira Página</a></b> "
End If
If pagina > 1 AND pagina <> 2 Then
Response.Write "<b>[ <a href=form_exclui.asp?pagina="&anterior - 1&">"&anterior - 1&"</a> ]</b> "
End If
If pagina > 1 Then
Response.Write "<b>[ <a href=form_exclui.asp?pagina="&anterior&">"&anterior&"</a> ]</b> "
End If
Response.Write "<b>[ "&pagina&" ]</b> "
If Not rs.EOF Then
Response.Write "<b>[ <a href=form_exclui.asp?pagina="&proxima&">"&proxima&"</a> ]</b> "
End If
If Not rs.EOF AND pagina <> ultima AND pagina <> ultm2 Then
Response.Write "<b>[ <a href=form_exclui.asp?pagina="&proxima + 1&">"&proxima + 1&"</a> ]</b> "
End If
If Not rs.EOF Then
Response.Write "<b><a href=form_exclui.asp?pagina="&ultima&">Última Página</a> »</b> "
End If

rs.Close
Set rs = Nothing  
End If %>
   </font></div></td>
 </tr>
</table>

lezão · Março 17, 2012

pessoal consegui fazer puxar o id

dei um response.write

só q naun esta fazendo a atualização q eu preciso

Agora

UPDATE Estoque SET vendido = 'Indisponível', data='', hora='', WHERE Id = 177

antes

UPDATE Estoque SET vendido = '', data='', hora=' ' WHERE id =

xanburzum · Março 17, 2012

os campos data e hora esta com que tipo de dados ?

Mário Monteiro · Março 17, 2012

tem uma virgula a mais antes do WHERE

Tire-a e deve resolver

xanburzum · Março 17, 2012

olha um exemplo de UPDATE

varvendido="Indisponível"
varId=177
vardata= Empty
varhora= Empty

SQL="UPDATE Estoque SET vendido='"&varvendido&"',vardata='&vardata&',hora='&varhora&' WHERE Id ="&varId&""

lezão · Março 20, 2012

Mário você tinha razão retirei a virgula e funcionou certinho

muito obrigado !

Mário Monteiro · Março 20, 2012

Que bom que resolveu

Parabéns :clap:

Arquivado

[Resolvido] update não funciona?

Recommended Posts

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Vinicius Ianni 189

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 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

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

lezão 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

Fixar div até atingir uma certa altura

Ajuda com Extends e envio para o banco

PHP+Codeginiter - Orientação para Impressão

Fóruns

Tempo Real

Informação importante