CriarWeb.com > Manuais > Programação em ASP

Atualização de um registro existente

Sentenças SQL para realizar atualizações na tabela.

Publicado em: 19/12/04

Valorize este artigo:

Para mostrar como se atualiza um registro presente em nossa base de dados, vamos faze-lo a partir de um caso um pouco mais complexo para começarmos a nos familiarizar com estas operações. Realizaremos dois scripts que permitem mudar o numero de telefone das distintas pessoas presentes em nossa base. O nome destas pessoas, assim como o novo número de telefone, serão recolhidos por meio de um formulário.

O arquivo do formulário vai ser desta vez um script ASP no qual efetuaremos uma chamada a nossa base de dados para construir um menu desdobrável onde apareçam todos os nomes. A coisa ficaria assim:

<HTML>
<HEAD>
<TITLE>Atualizar1.asp</TITLE>
</HEAD>
<BODY>
<div align="center">
<h1>Atualizar um registro</h1>
<br>

<%
'Instanciamos e abrimos nosso objeto conexao
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Minhabase"
%>

<FORM METHOD="POST" ACTION="atualizar2.asp">
Nombre<br>
<%
'Criamos a sentença SQL e a executamos
sSQL="Select nome From clientes Order By nome"
set RS = Conn.Execute(sSQL)
%>
<select name="nome">
<%
'Geramos o menu desdobravel
Do While not RS.eof%>
<option><%=RS("nome")%>
<%RS.movenext
Loop
%>
</select>
<br>
Telefone<br>
<INPUT TYPE="TEXT" NAME="telefone"><br>
<INPUT TYPE="SUBMIT" value="Atualizar">
</FORM>
</div>

</BODY>
</HTML>

A maneira de operar para construir o menu desdobrável é a mesma que para visualizar a tabela. De novo empregamos um loop Do While que nos permite mostrar cada uma das opções.

O script de atualização será muito parecido ao de inserção:

<TITLE>Atualizar2.asp</TITLE>
</HEAD>
<BODY>

<%
'Recolhemos os valores do formulário
nome=Request.Form("nome")
telefone= Request.Form("telefone")

'Instanciamos e abrimos nosso objeto conexao
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Minhabase"

'Agora criamos a sentença SQL
sSQL="Update Clientes Set telefone='" & telefone & "' Where nome='" & nome & "'"

'Executamos a ordem
set RS = Conn.Execute(sSQL)
%>

<h1><div align="center">Registro Atualizado</div></h1>
<div align="center"><a href="lectura.asp">Visualizar o conteudo da base</a></div>

<%
'Fechamos o sistema de conexao
Conn.Close
%>

</BODY>
</HTML>

Nada a comentar a respeito, salvo a estrutura da sentença SQL que neste caso realiza um Update no lugar de um Insert. Aconselhamos, como para o caso precedente imprimir o valor de sSQL de forma a ver como fica a sentença uma vez construída.

Acrescentar um comentário ao artigo

Manual: Programação em ASP

Criação de um novo registro

Excluir um registro