Check Box

Maio 21, 2004

Tenho um formulario e constaria de excluir linhas de dados pelo ID

Mas não faço a menor ideia de como funciona!!!

tentei dar um response.write (request.form("checkbox") mas não escreveu nada!!!

por favor me ajudem

Muito obrigado.

dipreza · Maio 21, 2004

você deve definir o valor do checkbox

Assim:

<INPUT TYPE='checkbox' NAME='Email' VALUE='Excluir'>

Mais Duvidas grite !!!

ursolouco · Maio 21, 2004

Tutorial Deletando multiplos registros de um mdb via checkbox!

Maio 21, 2004

O problema é que eu já tenho um form na pagina

eu insiro os dados na pagina e exibo na mesma!

da uma olhada : http://bb.1asphost.com/vipsite/orc.asp

dipreza · Maio 21, 2004

CArinha,

Uma vez eu fiz isso, foi meio na raça. ...... da uma olhada e modifique !!!

T+

<% If Session("Usuario") = "" then 
response.write "<center><TABLE CLASS='noprint' WIDTH='247' BGCOLOR='#FFFFFF' CELLSPACING='0' CELLPADDING='0' STYLE='border: 1px solid #000000' BACKGROUND='Img/fundo.jpg'><TR><TD HEIGHT='59' COLSPAN='2'><DIV ALIGN='CENTER'><P><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#000099'>Voce sera redirecionado para<BR> pagina principal !!!!</FONT></P></DIV></TD></TR> </TABLE></center><META HTTP-EQUIV='refresh' CONTENT='1;URL=default.asp'>"
 else %> 
 <!--#include file ="conexao.asp"--> 
<htmL>
<head>
<TITLE>Fim Caixa</TITLE> <script language="JavaScript">
<!--
function PopUp(URL,Name,Props)
{
  window.open(URL,Name,Props);
}
//-->

<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script> 
<style>
body {
	background-color: #FFFFFF;
	scrollbar-3dlight-color: #CEEDFF;
	scrollbar-arrow-color: #00599F;
	scrollbar-darkshadow-color: #D5EFFF;
	scrollbar-face-color: #E1F1FF;
	scrollbar-highlight-color: #FFFFFF;
	scrollbar-shadow-color: #DEE3E7;
	scrollbar-track-color: #FFFFFF;
}
</style>
</head>
<body leftMargin=2 topMargin=2 marginheight="0" marginwidth="0">
<DIV ID="Layer1" STYLE="position:absolute; width:200px; height:26px; z-index:1; left: 252px; top: -2px"><form name="Form"><CENTER> 
<INPUT NAME="MESSAGE" SIZE="35"  VALUE="         Aguarde! Processando . . ." BORDER="0"  STYLE="background-color: transparent; background-repeat: repeat; background-attachment: scroll; border: medium none transparent; background-position: 0%"
  CLASS="mensagem"></CENTER></form></DIV><form method=get action="fimcaixa.asp" name="Emendas"> 
<TABLE BGCOLOR="#0066FF" HEIGHT="9" WIDTH="716" CELLPADDING="0" CELLSPACING="1"> 
<TR> <TD HEIGHT="2"><TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0"><TR><TD BACKGROUND="Img/fundo-barra2.jpg" HEIGHT="4" WIDTH="74%"><FONT COLOR="#FFFFFF">.<FONT COLOR="#0066FF" SIZE="2"><%= Ano%></FONT></FONT></TD>
            <TD BACKGROUND="Img/fundo-barra2.jpg" HEIGHT="4" WIDTH="26%"><FONT SIZE="2"><B></B></FONT></TD>
          </TR><TR style="border-top: 1px dotted"><TD HEIGHT="2" BACKGROUND="Img/resto.jpg" style="border-top: 1px dotted" COLSPAN="2"> 
<%
if request.querystring("action") <> "" then
	Response.Flush
	response.write "<center><font color=#ffffff>.......</font><font size=4 face=arial><B>EXCLUINDO . . . </b></font></center>"
  Set objConexao = Server.CreateObject("ADODB.Connection")
  objConexao.Open DB

	Dim XX
	Ultimo = Request.querystring("ultimo")

  For XX = 0 to Ultimo
   IF Request.querystring(""& XX &"") <> "" Then
  	Caixa = Request.querystring(""& XX &"") 
  	sql_update = "UPDATE Caixa SET ano='', prazo='', dpto='', prateleira='0', cliente='', ov='', outro='', descricao='', retirado=0, vaga=1 WHERE caixa = "& Caixa &""
  	objConexao.Execute sql_update
  	'response.write CAIxa & "-" & sql_delete & "<BR>"
   End if
  Next
  'response.end
  objConexao.Close
  set objConexao = Nothing

	response.write "<meta http-equiv='refresh' content='0;URL=fimcaixa.asp'>"

ElseIf request.querystring("action") = "" then
	Response.Flush
	Set objConexao = Server.CreateObject("ADODB.Connection")
	objConexao.Open DB

	' abrindo conexão e SQL
	Set objRS = Server.CreateObject("ADODB.Recordset")

	objrs.Cursortype = 3
	strSQL = "SELECT * FROM Caixa WHERE "
    	
   For iANO = 1 to 1 Step -1
  	if Month(now()) <> 1 then
    For MesAtual = Month(now()) to 1 step -1
    	MesAtualXX = Right("00"& MesAtual,2) &"/"& Right("00"& Year(now()), 2)
    	strSQL = strSQL & "prazo = '"& MesAtualXX &"' OR "
    Next
  	end if
  	varANOfim = Right("00"& Year(now())-iANO, 2)	
  	For iMes = 12 to 1 step -1
    varMESfim = Right("00"& iMES,2)
    Exato = varMESfim &"/"& varANOfim
    strSQL = strSQL & "prazo = '"& Exato &"' OR "
  	Next
  Next

	strSQL = strSQL & "prazo = '"& Ano &"' ORDER BY Caixa"

	objRS.Open strSQL,objConexao


	if objrs.eof then 
  response.write "<center>Nenhuma Caixa para retirar"
  Set objrs = nothing 
  Set objConexao = nothing 
	else  
        
  response.write "<TABLE WIDTH='716' BORDER='0' BGCOLOR='#FFFFFF'><TR BGCOLOR='#0099FF'><TD WIDTH='3%'><DIV ALIGN='CENTER'><B><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#FFFFFF'>OV</FONT></B></DIV></TD><TD WIDTH='12%'><DIV ALIGN='CENTER'><B><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#FFFFFF'>Numero</FONT></B></DIV></TD><TD WIDTH='9%'><DIV ALIGN='CENTER'><B><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#FFFFFF'>Cliente</FONT></B></DIV></TD><TD WIDTH='9%' BGCOLOR='#0087E1'> <DIV ALIGN='CENTER'><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'><B>Numero Caixa </B></FONT></DIV></TD><TD WIDTH='9%' BGCOLOR='#0087E1'><DIV ALIGN='CENTER'><B><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif' COLOR='#FFFFFF'>Prateleira</FONT></B></DIV></TD><TD WIDTH='12%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'>Ano Emiss&atilde;o </FONT></B></DIV></TD><TD WIDTH='11%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'>Prazo CEDOC</FONT></B></DIV></TD><TD WIDTH='11%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'>DPTO</FONT></B></DIV></TD><TD WIDTH='24%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'>Descri&ccedil;&atilde;o</FONT></B></DIV></TD><TD WIDTH='24%'><DIV ALIGN='CENTER'><B><FONT COLOR='#FFFFFF' SIZE='2' FACE='Arial, Helvetica, sans-serif'><DIV ALIGN='RIGHT'><INPUT TYPE='submit' NAME='action' VALUE='Excluir'></DIV></FONT></B></DIV></TD></TR>"
  DIM CONTA
  CONTA = 0
      While not objRS.EOF
  	If not objRS.eof then
    response.write "<TR BGCOLOR='#EAF7FF'><TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write ObjRS("ov")
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write ObjRS("outro")
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write ObjRS("cliente")
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%' BGCOLOR='#DAEBFE'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write Right("00000" & ObjRS("caixa"),5)
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%' BGCOLOR='#DAEBFE'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write ObjRS("prateleira")
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write ObjRS("ano")
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write ObjRS("prazo")
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write ObjRS("dpto")
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    response.write ObjRS("descricao")
    response.write "</FONT></DIV></TD>"
    response.write "<TD WIDTH='3%'><DIV ALIGN='CENTER'><FONT SIZE='2' FACE='Arial, Helvetica, sans-serif'>"
    CONTA = CONTA + 1
    response.write "<INPUT TYPE='checkbox' NAME='"& CONTA &"' VALUE='"& ObjRs("Caixa") &"'>"
    response.write "</FONT></DIV></TD>"
    
    objRS.MoveNext
    Rowcount=Rowcount+1
  	End If	
      Wend
  response.write "</TR></TABLE>"
  CONTA = CONTA + 1

	' define ultimo valor
	response.write "<INPUT TYPE='hidden' NAME='ultimo' VALUE='"& CONTA &"'>"

	Set objrs = nothing 
	Set objConexao = nothing 
	%></TD></TR></TABLE></TD></TR> </TABLE><TABLE WIDTH="716" BORDER="0" CELLPADDING="0" HEIGHT="22"><TR><TD WIDTH="92%">&nbsp;</TD><TD WIDTH="8%"><DIV ALIGN='RIGHT'><INPUT TYPE='submit' NAME='action' VALUE='Excluir'></DIV></TD></TR></TABLE><P>&nbsp;</P></form><P>
<% end if 
end if %>

<P><script>
document.forms["Form"].MESSAGE.value = ''; 
</script> 
</body>
</html>
<% END IF %>

--Not Found-- · Maio 21, 2004

Vo testa e depois se tiver alguma duvida eu posto denovo.

Bicicleta · Maio 21, 2004

Pra excluir dados usando checkbox é mole...

você coloca o nome do checkbox e o value com o ID do registro, dai qd você postar o formulário, os dados vão ser passados assim:

www.site.com.br/excluir.asp?id=1,2,4,10,18

Dai você usa a SQL pra excluir:

sql = "DELETE * FROM tabela WHERE id IN ("& Request.QueryString("id") &")"

[]s

dipreza · Maio 21, 2004

Haha é mesmo, na época eu não conhecia o IN hehehe fiz da forma mais dificil..

MAis é isso ae ..... valeu amigo Bicicleta

T+

--Not Found-- · Junho 3, 2004

Eu num to conseguindo fazer o loop para pegar o id.

se num fizer um loop a url fica assim www.site.com.br/excluir.asp?id=.

vocês podem me ajudar??

desculpe a ignorancia e falta de cultura!!!

dark0 · Junho 3, 2004

você já tentou alguma coisa?

você teria que montar um sql que faz um select.. depois fazer um loop e passar por toda a tabela..

um ex:

sql = "select * from tabela"

set rs = conexao.execute(sql)

if rs.eof = true then

response.write "Tabela vazia"

else

do while not rs.eof

'comandos dentro do loop

response.write rs("id")

rs.movenext

loop

end if

a rotina acima, mostraria todos os IDS da tabela

mas é só um exemplo

ate mais

Entrar

Check Box

Pergunta

Guest - --Not Found-- -

Link para o comentário

Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

dipreza

Link para o comentário

Compartilhar em outros sites

ursolouco

Link para o comentário

Compartilhar em outros sites

Guest - --Not Found-- -

Link para o comentário

Compartilhar em outros sites

dipreza

Link para o comentário

Compartilhar em outros sites

--Not Found--

Link para o comentário

Compartilhar em outros sites

Bicicleta

Link para o comentário

Compartilhar em outros sites

dipreza

Link para o comentário

Compartilhar em outros sites

--Not Found--

Link para o comentário

Compartilhar em outros sites

dark0

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns

Navegação

Atividades