Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
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>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> <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!
Carregando comentários...