[Resolvido] Apagar multiplos registros

flneves · Agosto 1, 2009

Salve salve rapaziada...

Segue mais uma dúvida que tenho:

Quero apagar múltiplos registros (usuários) do banco de dados, porém quero que quando carregue a página desabilite o check box do usuário que está conectado.

Uso Dreamweaver / Acess!!!

Deu pra entender??

Segue código:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
// *** Logout the current user.
MM_Logout = String(Request.ServerVariables("URL")) + "?MM_Logoutnow=1";
if (String(Request("MM_Logoutnow"))=="1") {
 Session.Contents.Remove("MM_Username");
 Session.Contents.Remove("MM_UserAuthorization");
 var MM_logoutRedirectPage = "../index.asp";
 // redirect with URL parameters (remove the "MM_Logoutnow" query param).
 if (MM_logoutRedirectPage == "") MM_logoutRedirectPage = String(Request.ServerVariables("URL"));
 if (String(MM_logoutRedirectPage).indexOf("?") == -1 && Request.QueryString != "") {
   var MM_newQS = "?";
   for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {
     if (String(items.item()) != "MM_Logoutnow") {
       if (MM_newQS.length > 1) MM_newQS += "&";
       MM_newQS += items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));
     }
   }
   if (MM_newQS.length > 1) MM_logoutRedirectPage += MM_newQS;
 }
 Response.Redirect(MM_logoutRedirectPage);
}
%>
<%
// *** Restrict Access To Page: Grant or deny access to this page
var MM_authorizedUsers="proprietario";
var MM_authFailedURL="../index.asp";
var MM_grantAccess=false;
if (String(Session("MM_Username")) != "undefined") {
 if (false || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) {
   MM_grantAccess = true;
 }
}
if (!MM_grantAccess) {
 var MM_qsChar = "?";
 if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&";
 var MM_referrer = Request.ServerVariables("URL");
 if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString());
 MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer);
 Response.Redirect(MM_authFailedURL);
}
%>
<!--#include file="../../Connections/con_fvsj.asp" -->
<%
// *** Edit Operations: declare variables

// set the form action variable
var MM_editAction = Request.ServerVariables("SCRIPT_NAME");
if (Request.QueryString) {
 MM_editAction += "?" + Server.HTMLEncode(Request.QueryString);
}

// boolean to abort record edit
var MM_abortEdit = false;
%>
<%
// *** Delete Record: construct a sql delete statement and execute it

if (String(Request("MM_delete")) == "a_usuario" &&
   String(Request("MM_recordId")) != "undefined") {

 if (!MM_abortEdit) {
   // execute the delete
   var MM_editCmd = Server.CreateObject ("ADODB.Command");
   MM_editCmd.ActiveConnection = MM_con_fvsj_STRING;
   MM_editCmd.CommandText = "DELETE FROM adm WHERE cod = ?"
   MM_editCmd.Prepared = true;
   MM_editCmd.Parameters.Append(MM_editCmd.CreateParameter("param1", 5, 1, -1, Request.Form("MM_recordId"))); // adDouble
   MM_editCmd.Execute();
   MM_editCmd.ActiveConnection.Close();

   // append the query string to the redirect URL
   var MM_editRedirectUrl = "../ent.asp";
   if (MM_editRedirectUrl && Request.QueryString && Request.QueryString.Count > 0) {
     MM_editRedirectUrl += ((MM_editRedirectUrl.indexOf('?') == -1) ? "?" : "&") + Request.QueryString;
   }
   Response.Redirect(MM_editRedirectUrl)
 }
}
%>
<%
var a_usuario_cmd = Server.CreateObject ("ADODB.Command");
a_usuario_cmd.ActiveConnection = MM_con_fvsj_STRING;
a_usuario_cmd.CommandText = "SELECT * FROM adm";
a_usuario_cmd.Prepared = true;

var a_usuario = a_usuario_cmd.Execute();
var a_usuario_numRows = 0;
%>
<%
var Repeat1__numRows = 10;
var Repeat1__index = 0;
a_usuario_numRows += Repeat1__numRows;
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http-~~-//www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>xxxx</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<script type="text/ecmascript">
<!--
   window.history.forward();
-->
</script>
<table border="0" width="100%" cellspacing="0" cellpadding="0" height="5">
 <tr>
   <td width="100%" height="29"><font size="5" face="Impact" color="#333333">Sistema Administrativo -
http-~~-//www.velassaojoao.com.br</font></td>
 </tr>
 <tr>
   <td width="100%" height="21">
     <p align="right"><font color="#C0C0C0">Bem
   Vindo 
   <%Response.Write(Session("MM_Username"))%>
   !      </font></td>
 </tr>
 <tr>
   <td width="100%" height="37" background="../../imagens/f_tab_adm.jpg" valign="middle">
     <p align="right"><font color="#333333"><img border="0" src="../../imagens/b_adm.jpg">
         <a href="../ent.asp">Inicial</a>  <img border="0" src="../../imagens/b_adm.jpg">
         <a href="e_usuario.asp">Editar usuário</a>      <img src="../../imagens/b_adm.jpg" width="8" height="8">  <a href="<%= MM_Logout %>">Sair</a>   </font></p>    </td>
 </tr>
</table>

<form ACTION="<%=MM_editAction%>" method="POST" name="a_usuario" id="a_usuario">
 <br>
<table width="304"  border="1" align="center" cellpadding="2" cellspacing="0" bordercolor="#333333" height="116">
 <tr>
   <td colspan="2" height="19"><div align="right" class="style1">Apagar Usuário </div></td>
 </tr>
 <tr bgcolor="#333333">
   <td colspan="2" height="12"> </td>
 </tr>
 <% while ((Repeat1__numRows-- != 0) && (!a_usuario.EOF)) { %>
   <tr>
       <td width="30"><div align="center">
           <input name="usuario" type="checkbox" id="usuario">
           </div></td>
     <td width="260" height="23"><input name="nome" type="text" id="nome" style="background-color: #000000; font-size: 10px; color: #FFCC00; font-family: Verdana; border: 1 solid #FFCC00" value="<%=(a_usuario.Fields.Item("login").Value)%>" size="40"></td>
   </tr>
   <%
 Repeat1__index++;
 a_usuario.MoveNext();
}
%>
<tr valign="middle">
   <td height="60" colspan="2"><div align="right">
     <input type="image" name="imageField" id="imageField" src="../../imagens/b_av2.png">
   </div></td>
 </tr>
</table>  


<input type="hidden" name="MM_delete" value="a_usuario">
<input type="hidden" name="MM_recordId" value="<%= a_usuario.Fields.Item("cod").Value %>">
</form>
</body>
</html>
<%
a_usuario.Close();
%>

André D. Molin · Agosto 1, 2009

Qual a tua dificuldade em fazer isso?

Agente pode tentar sanar suas duvidas e te guiar...

Ou tu quer pronto?

hargon · Agosto 1, 2009

E você sabe alguma coisa de ASP ou esta sendo "guiado" pelo Dreamweaver?

flneves · Agosto 1, 2009

E você sabe alguma coisa de ASP ou esta sendo "guiado" pelo Dreamweaver?

Totalmente guiado pelo Dreamweaver!!! Não sei como fazer a desabilitação dos campos .....

xanburzum · Agosto 1, 2009

você pode fazer com checkbox, recuperando os checkbox, dando um split nele, para recuperar individualmente e jogando dentro da SQL DELETE, k fará a exclusaun, e para desabilitar o checkbox do user antes você faz um SELECT no bd, para ver se for o user desabilita o check dele...

qtd_produtos = split(Request.Form("qtd_produtos"),",")

For i = 1 To Request.Form("produtos").Count

Response.write request.form("produtos")(i)&"<BR>" & request.form("qtd_produtos")(i)&"<BR>"
SQL =DELETE FROM produtos WHERE codigo='"&request.form("variavel")(i)&"'

flneves · Agosto 12, 2009

Continuando...

Ta dando o erro abaixo:

Microsoft JScript compilation error '800a03ec'

Expected ';'

/adm/parceria/deleta.asp, line 9

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

----^

O Código ta assim:

Formulário:

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>
<%
// *** Logout the current user.
MM_Logout = String(Request.ServerVariables("URL")) + "?MM_Logoutnow=1";
if (String(Request("MM_Logoutnow"))=="1") {
  Session.Contents.Remove("MM_Username");
  Session.Contents.Remove("MM_UserAuthorization");
  var MM_logoutRedirectPage = "../index.asp";
  // redirect with URL parameters (remove the "MM_Logoutnow" query param).
  if (MM_logoutRedirectPage == "") MM_logoutRedirectPage = String(Request.ServerVariables("URL"));
  if (String(MM_logoutRedirectPage).indexOf("?") == -1 && Request.QueryString != "") {
    var MM_newQS = "?";
    for (var items=new Enumerator(Request.QueryString); !items.atEnd(); items.moveNext()) {
      if (String(items.item()) != "MM_Logoutnow") {
        if (MM_newQS.length > 1) MM_newQS += "&";
        MM_newQS += items.item() + "=" + Server.URLencode(Request.QueryString(items.item()));
      }
    }
    if (MM_newQS.length > 1) MM_logoutRedirectPage += MM_newQS;
  }
  Response.Redirect(MM_logoutRedirectPage);
}
%>
<%
// *** Restrict Access To Page: Grant or deny access to this page
var MM_authorizedUsers="";
var MM_authFailedURL="../index.asp";
var MM_grantAccess=false;
if (String(Session("MM_Username")) != "undefined") {
  if (true || (String(Session("MM_UserAuthorization"))=="") || (MM_authorizedUsers.indexOf(String(Session("MM_UserAuthorization"))) >=0)) {
    MM_grantAccess = true;
  }
}
if (!MM_grantAccess) {
  var MM_qsChar = "?";
  if (MM_authFailedURL.indexOf("?") >= 0) MM_qsChar = "&";
  var MM_referrer = Request.ServerVariables("URL");
  if (String(Request.QueryString()).length > 0) MM_referrer = MM_referrer + "?" + String(Request.QueryString());
  MM_authFailedURL = MM_authFailedURL + MM_qsChar + "accessdenied=" + Server.URLEncode(MM_referrer);
  Response.Redirect(MM_authFailedURL);
}
%>
<!--#include file="../../Connections/con_fvsj.asp" -->
<%
var parceria_cmd = Server.CreateObject ("ADODB.Command");
parceria_cmd.ActiveConnection = MM_con_fvsj_STRING;
parceria_cmd.CommandText = "SELECT * FROM parceria";
parceria_cmd.Prepared = true;

var parceria = parceria_cmd.Execute();
var parceria_numRows = 0;
%>
<%
var Repeat1__numRows = -1;
var Repeat1__index = 0;
parceria_numRows += Repeat1__numRows;
%>
<%
var usuario__MMColParam = "1";
if (String(Session("MM_Username")) != "undefined" && 
    String(Session("MM_Username")) != "") { 
  usuario__MMColParam = String(Session("MM_Username"));
}
%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
														
<html>
<head>
<title>Sistema Administrativo - Velas São João</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css">
<!--
td {
	font-family: Verdana;
	font-size: 10px;
	color: #FFCC33;
	cursor: hand;
}
body {
	background-color: #000000;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style1 {
	font-size: 16px;
	font-weight: bold;
}
a:link {
	color: #333333;
	text-decoration: none;
}
a:visited {
	text-decoration: none;
	color: #333333;
}
a:hover {
	text-decoration: none;
	color: #333333;
}
a:active {
	text-decoration: none;
	color: #666666;
}
.style2 {font-size: 18px}
#leg_prioridade {
	position:absolute;
	left:852px;
	top:516px;
	width:165px;
	height:68px;
	z-index:1;
}
.style6 {
	font-size: 14px;
	font-weight: bold;
}
.style12 {color: #FFFFFF}
-->
</style>
</head>

<body>
<script type="text/ecmascript">
<!--
    window.history.forward();
-->
</script>
<table width="100%" height="5" border="0" cellpadding="0" cellspacing="0">
  
  <tr>
    <td width="100%" height="37" background="../../imagens/f_tab_adm.jpg" valign="middle">
    <p align="right"><font color="#333333"><img src="../../imagens/b_adm.jpg" alt="Página Inicial Velas São João" border="0">  <a href="../menu_principal.asp" target="_self">Inicial</a> <img src="../../imagens/b_adm.jpg" alt="Página Inicial Velas São João" border="0">  <a href="i_parceria.asp" target="_self">Inserir Parceira</a> <img src="../../imagens/b_adm.jpg" alt="Todas as velas São João" border="0">  <a href="t_parceria.asp" target="_self">Todos os parceiros</a>  <img src="../../imagens/b_adm.jpg" alt="Todas as Velas São João" width="8" height="8">  <a href="<%= MM_Logout %>" target="_top">Sair</a>   </font></p></td>
  </tr>
</table>
<br>
<form action="deleta.asp?ID<%=(parceria.Fields.Item("ID").Value)%>=" name="i_parceria" target="_self" id="i_parceria">
  <table width="346" border="2" align="center" cellpadding="2" cellspacing="0" bordercolor="#000000">
    <tr>
      <td width="380" colspan="4" bgcolor="#333333"><div align="center" class="style1">
          <div align="right" class="style2">Apagar Parceria </div>
      </div></td>
    </tr>
  </table>  
  
  <table width="339" border="2" align="center" cellpadding="2" cellspacing="0" bordercolor="#333333">
    <% while ((Repeat1__numRows-- != 0) && (!parceria.EOF)) { %>
      <tr>
        <td width="34" valign="middle" class="style6"><div align="center">
            <input name="parceria2" type="checkbox" id="parceria" value="<%=(parceria.Fields.Item("ID").Value)%>">
                </div></td>
        <td width="91" height="25" valign="middle" class="style6">Parceiro:</td>
        <td width="181" class="style1 style12"><%=(parceria.Fields.Item("parceiro").Value)%></td>
      </tr>
      <%
  Repeat1__index++;
  parceria.MoveNext();
}
%>

    </table>
  
  <br>
<table width="339" border="2" align="center" cellpadding="2" cellspacing="0" bordercolor="#333333">
    <tr>
      <td height="14" colspan="2" valign="middle"><div align="right">
        <input type="submit" name="Apagar" id="Apagar" value="Apagar">
      </div></td>
    </tr>
  </table>






</form>

</body>
</html>
<%
parceria.Close();
%>

Deleta.asp

<%@LANGUAGE="JAVASCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!--#include file="../../Connections/con_fvsj.asp" -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Untitled Document</title>
</head>
<%
[color="#FF0000"]Set conObj = Server.CreateObject("ADODB.Connection")[/color] - [color="#FF0000"]Linha 9[/color][b][/b]
conObj.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("fvsj_base.mdb") & ";"
id= Request.QueryString("ID")
sql = "DELETE FROM parceria WHERE ID=" & id
conObj.Execute(sql)
conObj.Close
Set conObj = nothing
Response.write "Os dados foram apagados com sucesso!"
response.write "<br><br>Clique aqui para voltar a página principal!<br>"
%>
<body>
</body>
</html>

xanburzum · Agosto 12, 2009

Isso normalmente significa que você deixou um caractere inválido no final de uma linha, por exemplo:

var str = "Foo.bar")

naun eskça k esta trabalhando com alinguagem Jscript

faça como mencionei

você pode fazer com checkbox, recuperando os checkbox, dando um split nele, para recuperar individualmente e jogando dentro da SQL DELETE,

flneves · Agosto 12, 2009

Xanburzao,

Cara eu tento te entender, mas sou novato e nao tenho muito conhecimento como você, estou estudando muito lendo demais mais ainda não tenho seu conhecimento. Desde quando postastes a 1 ajuda tenho tentado fechar esse código mais até o momento nao consegui... se puder ser mais claro!!!

Agradeço.

hargon · Agosto 12, 2009

flneves, você está misturando códigos de VBScript com JScript.

Acho melhor você trabalhar com apenas uma, principalmente por você dizer que ainda está aprendendo.

flneves · Junho 21, 2010

Já estudei muito desde então e ja aprendi como desenvolver meus sistemas. Já consegui resolver esse tópico, pode fechar!

xanburzum · Junho 22, 2010

legal, amigo...

parabéns

Arquivado

[Resolvido] Apagar multiplos registros

Recommended Posts

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

André D. Molin 15

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

hargon 64

Compartilhar este post

Link para o post

Compartilhar em outros sites

flneves 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

xanburzum 169

Compartilhar este post

Link para o post

Compartilhar em outros sites

PHP+Codeigniter - Dúvida em Relação a Teclas

Conexão mysql com outro domínio

[Resolvido] JavaScript - Exibir logo dentro da Tabela html

Fóruns

Tempo Real

Informação importante