Ir para conteúdo
Fórum Script Brasil
  • 0

Deletando Do Banco


tsarri

Pergunta

Galera eu crie um sistema que pode incluir, excluir e alterar...queria fazer isto usando a mesma pagina como eu vou fazer isto tenho q usar QueryString???

<%@LANGUAGE="VBSCRIPT" %>
<html>
<head>
<title>Pagina Protegida</title>
</head>
<body>
<%
If Session("logado")="" Then
   Response.Redirect("index.htm")
End If
Session.Timeout = "20"

Dim Conn
Dim Rs
Dim Sql
Dim SqlE

Set Conn = Server.CreateObject("ADODB.Connection" )
Conn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Banco.mdb")

Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From Clientes"
Set Rs = Conn.Execute(Sql)

If Session("Nivel")="3" Then
   %>   
   <table border="1">
      <tr>
      <td>Nome</td>
   <td>Endereço</td>
   <td>E-mail</td>
   <td>Profissão</td>
   </tr>
      <%
  id = Request.QueryString("id")
      Do While Not Rs.EOF
      %>
   <tr>
      <td><%=Rs("Nome")%></td>
   <td><%=Rs("Endereço")%></td>
   <td><%=Rs("E-mail")%></td>
   <td><%=Rs("Profissao")%></td>
   <td><a href="pp.asp?id=<%=Rs("id")%>">Excluir</a></td>
   </tr>
   <%
   Rs.moveNext
   Loop
End If   
SqlE = "Delete * From Clientes Where id="&id
Set Rs = Conn.Execute(SqlE)
%>
</table>   
</body>
</html>

Link para o comentário
Compartilhar em outros sites

1 resposta a esta questão

Posts Recomendados

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,4k
×
×
  • Criar Novo...