|
<HTML> <HEAD> <TITLE>Apagar1.asp</TITLE> </HEAD> <BODY> <div align="center"> <h1>Apagar um registro</h1> <br> <% 'Instanciamos e abrimos nosso objeto conexao Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Minhabase" %> <FORM METHOD="POST" ACTION="apagar2.asp"> Nome<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> <INPUT TYPE="SUBMIT" value="Apagar"> </FORM> </div> </BODY> </HTML> |
|
<HTML> <HEAD> <TITLE>Apagar2.asp</TITLE> </HEAD> <BODY> <% 'Recolhemos os valores do formulario nome=Request.Form("nome") 'Instanciamos e abrimos nosso objeto conexao Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Minhabase" 'Agora criamos a sentença SQL sSQL="Delete From Clientes Where nome='" & nome & "'" 'Executamos a ordem set RS = Conn.Execute(sSQL) %> <h1><div align="center">Registro Apagado</div></h1> <div align="center"><a href="leitura.asp">Visualizar o conteudo da base</a></div> <% 'Fechamos o sistema de conexao Conn.Close %> </BODY> </HTML> |
