Jump to content

  2. →
  3. →

Photo

Apagar Um Registro

Started By japasc, 18/06/2004, 13:25

  • Faça o login para participar
6 replies to this topic

#1 japasc

japasc

    Turista

  • Usuários
  • 58 posts
  • Sexo:Não informado
  • Localidade:Taió

Posted 18/06/2004, 13:25

Dae galera

é o seguinte eu consegui fazer um livro de visitas com as ajudas de vcs e agora eu gostaria de ter a possibilidade de excluir um registro da página que exibe todos os post, kada post ocupa uma linha então eu pensei em colocar uma opção excluir em cada linha com um loop, e só estou tendo dificuldades com o código, vou postar o código da página exibir.asp pra vcs.

Se algúém ajudar agradeço!

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Documento sem t&iacute;tulo</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<div align="center">
<%
Set CX = Server.CreateObject("ADODB.connection")
CX.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("banco_de_dados.mdb")
Set rs = CX.Execute("Select * from tabela")
%>
<%Set listar = Server.CreateObject("ADODB.Recordset")
sql = "Select * from tabela"
listar.open sql, CX, 3,3
%>
<%while not listar.eof%>
<a href="index.asp">VOLTAR</a></div>
<center>
<table width="75%" border="0" cellspacing="0">
<tr bgcolor="#003333">
<td>
<div align="center"><font color="#FFFF00"><strong><font face="Arial, Helvetica, sans-serif">Nome</font></strong></font></div></td>
<td>
<div align="center"><font color="#FFFF00"><strong><font face="Arial, Helvetica, sans-serif">E-mail</font></strong></font></div></td>
<td>
<div align="center"><font color="#FFFF00"><strong><font face="Arial, Helvetica, sans-serif">Titulo</font></strong></font></div></td>

</tr>
<tr bgcolor="#999999">
<td><strong><font color="#CCCCCC" face="Verdana, Arial, Helvetica, sans-serif"><%=Response.Write(listar.fields("nome"))%></font></strong></td>
<td><strong><font color="#CCCCCC" face="Verdana, Arial, Helvetica, sans-serif"><%=Response.Write(listar.fields("email"))%></font></strong></td>
<td><strong><font color="#CCCCCC" face="Verdana, Arial, Helvetica, sans-serif"><%=Response.Write(listar.fields("titulo"))%></font></strong></td>
</tr>
<tr>
<td bgcolor="#003333">
<div align="center"><font color="#FFFF00"><strong><font face="Arial, Helvetica, sans-serif">Mensagem</font></strong></font></div></td>
</tr>
<tr>
<td bgcolor="#999999"><strong><font color="#CCCCCC" face="Verdana, Arial, Helvetica, sans-serif"><%=Response.Write(listar.fields("mensagem"))%></font></strong></td>
</tr>

<br>
<%listar.movenext
wend
%>
</table>
</center>

<p align="center">&nbsp; </p>
</body>
</html>
Não importa onde vc vá, vc sempre estará lá!!!

* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3

#2 Well

Well

    ....

  • Usuários
  • 132 posts
  • Sexo:Masculino

Posted 18/06/2004, 14:37

Case "excluir"

Kara num tenhu certeza, mas achu q isso vai te ajudar
kria um kampo kom id das mensagens


id = request.querystring("id")
Sql="DELETE * FROM Tabela WHERE id="&id&""
Conexao.Execute(Sql) %>
Mensagem deletada com sucesso!<BR>


e use este link p/ exkluir
<%=rs("Nome")%><a href="nomepagina.ASP?acao=deletar&id=<%=rs("id")%>">Excluir Mensagem</a><BR>
<% rs.MoveNext
Wend
End If %>

Espero q tenha ajudado

weLL
.

#3 japasc

japasc

    Turista

  • Usuários
  • 58 posts
  • Sexo:Não informado
  • Localidade:Taió

Posted 18/06/2004, 15:00

O campo "id" pode ser o campo "cod" que eu criei na tabela? é do tipo auto numeração...

Falow
Não importa onde vc vá, vc sempre estará lá!!!

* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3

#4 Dinho Z.

Dinho Z.

    Rock'n'Roll !!! Yeah !!!

  • Usuários
  • 755 posts
  • Sexo:Não informado
  • Localidade:Santo André - SP

Posted 18/06/2004, 15:05

Sim...

Através deste cod é que vc vai apagar o registro que vc quer...
Dinho

Ajude a proibir os "jabás" nas rádios brasileiras.
Mas, afinal, o que é o "jabá"?!? acesse Rock Brasil
Acesse Fórum SOS Designers
Coluna de JavaScript/CSS do Upmasters

#5 japasc

japasc

    Turista

  • Usuários
  • 58 posts
  • Sexo:Não informado
  • Localidade:Taió

Posted 18/06/2004, 16:44

BLZ

vou tentar quando chegar em casa hj..

Falow
Não importa onde vc vá, vc sempre estará lá!!!

* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3

#6 Well

Well

    ....

  • Usuários
  • 132 posts
  • Sexo:Masculino

Posted 18/06/2004, 17:57

B) bleza.

kualker koisa... c naum der certo, posta ae, q a gente tenta ajudar..

Case "excluir"

Kara num tenhu certeza, mas achu q isso vai te ajudar
kria um kampo kom id das mensagens


id = request.querystring("id")
Sql="DELETE * FROM Tabela WHERE cod="&cod&""
Conexao.Execute(Sql) %>
Mensagem deletada com sucesso!<BR>


e use este link p/ exkluir
<%=rs("Nome")%><a href="nomepagina.ASP?acao=excluir&cod=<%=rs("cod")%>">Excluir Mensagem</a><BR>
<% rs.MoveNext
Wend
End If %>


flw kara
.

#7 japasc

japasc

    Turista

  • Usuários
  • 58 posts
  • Sexo:Não informado
  • Localidade:Taió

Posted 22/06/2004, 16:51

Desculpe a demora para postar estava com problemas com a internet, eu gostaria de informar que o seu código funcionou, muito o brigado pela sua ajuda.

Falow...
Não importa onde vc vá, vc sempre estará lá!!!

* assinatura editada. leia as regras: não é permitido uso de fonte maior que 3
Voltar para ASP


0 user(s) are reading this topic

0 membro(s), 0 visitante(s) e 0 membros anônimo(s)

  1. Fórum WMO
  2. → Desenvolvimento
  3. → ASP
  4. Privacy Policy
  5. Regras ·
IPB Skin By Virteq