• 0
Sign in to follow this  
ldrwebsite

Deletar Registro Usando Checkbox

Question

wink.gif Olá pessoal é o seguinte, to usando um sistema que lista de uma tabela todos os registros no qual o nùmero da lista é igual ao valor de uma variável. Vou criar um outro arquivo ASP que apaga os registros desta mesma tabela no qual o número da lista seja igual. Mas eu queria saber se na hora em que lista os itens cadastrados tem como na começo incluir para aparecer um checkbox para selecionar os itens que eu quero apagar (igual aos webmail) e embaixo eu colocaria um link chamando o arquivo para deletar "somente os itens selecionados com o checkbox". Mas como eu faço para relacionar o checkbox com cada linha da tabela, já que estou usando o comando WHILE para fazer loop? Veja o código:

<%

Dim objConn2, objRS2, strQuery2

Set objConn2=Server.CreateObject("ADODB.Connection")

objConn2.Open "DBQ=c:/listas/produtos.mdb;Driver={Microsoft Access Driver (*.mdb)}"

strQuery2="SELECT * FROM itens_lista WHERE num_lista='"&numero&"'"

Set objRS2=objConn2.Execute(strQuery2)

%>

<table border="1" cellspacing="0" style="border-collapse: collapse" bordercolor="#006699" width="650" cellpadding="2" id="AutoNumber2">

  <tr>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Número do desenho</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Descrição</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Quant.</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Material</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Bitola</font></td>

    <td bgcolor="#006699" align="center">

    <font face="Arial" size="2" color="#FFFFFF">Observações</font></td>

  </tr>

  <%while not objRS2.EOF%>

  <tr>

    <td align="center"><font face="Arial" size="1"><%=objRS2("num_des")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("descr_item")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("quant")%> <%=objRS2("unid")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("material")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("bitola")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("obs_item")%></font>&nbsp;</td>

  </tr>

  <%

  objRS2.MoveNext

  Wend

  objRS2.close

  objConn2.close

  Set objRS2=Nothing

  Set objConn2=Nothing

  %>

</table>

Se fosse para colocar o checkbox, ficaria assim a linha dos itens:

<%while not objRS2.EOF%>

  <tr>

    <td align="center"><font face="Arial" size="1"><input type="checkbox" name="" value="ON"> <%=objRS2("num_des")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("descr_item")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("quant")%> <%=objRS2("unid")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("material")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("bitola")%></font>&nbsp;</td>

    <td align="center"><font face="Arial" size="1"><%=objRS2("obs_item")%></font>&nbsp;</td>

  </tr>

Como eu faço para usar este método. Valeu galera!

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

Só um exemplo, que você pode adaptar.

chave = um campo que identifica unicamente o registro, por exemplo ID.

tela de impressão dos dados

<%
contador=0
while not tab.eof
contador = contador + 1
.
.
%>
<input type="checkbox" value="1" name="deleta<%=contador%>">
<input type="hidden" name="chave" value="<%= tab("chave")&contador %>">
<input type="hidden" name="chave<%=contador %>" value="<%= tab("chave")%>">
.
.
<%
tab.movenext
wend
%>
<input type="hidden" name="contador" value="<%= contador %>">
arquivo de exclusão
<%
contador = request.form("contador")

for i= 0 to contador
deleta = request.form("deleta" & i)
chave = request.form("chave" & i)

if deleta = 1 then
'***** rotina de deletar o registro *****
end if

next
%>

Share this post


Link to post
Share on other sites
  • 0
smile.gif Valeu andreia, eu já consegui fazer o que eu queria, usei um método parecido com o seu. Mesmo assim valeu pela dica. Abraços!

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this