Publicado em 12 de mar.

Como excluir registros"

ola

tenhu um sistema de um boletim online, tenhu 12 tabelas dentro do bd, dentro do bd os alunos sao identificados por um ID, tipo la dentro tem o ID dele e na frente as notas cadastradas, quando eu fo excluir eu preciso exlui o ID e todos os dados q estao a frente do seu nome, tipow criei uma page q seleciona na tabela de login, o ID doi aluno e o nome dele, dai eu escolho o aluno e clico num checkbox q manda o id pa otra page e ali ela tem q executa a exclus'ao do id em todas as tables

abaixo esta o codigo

pagina de selecao de alunos

Option Explicit

Response.Expires = 0

Dim objConn, objRs, strQuery

Dim strConnection

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

objConn.Open "DBQ=" & Server.MapPath("./dados/dados.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

strQuery = "SELECT * FROM admin"

Set ObjRs = objConn.Execute(strQuery)

<html>

<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">

<head>

<title>Exclusão</title>

</head>

<body bgcolor="#FFFFFF">

<div align="center" style="width: 756; height: 119">

<table width="710" border="0" cellspacing="0" cellpadding="0" height="1">

<tr>

<td width="448" valign="top" height="136">

<table border="0" cellpadding="0" cellspacing="0" width="740">

<tr bgcolor="ffffff">

<td colspan="3">

<table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr>

<td width="14%" bgcolor="#f5f5f5">

<div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="form_inclusao.asp" class="menu">Incluir</a></font></b></font></div></td>

<td width="19%" bgcolor="#f5f5f5">

<div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC">Excluir</font></b></font></div></td>

<td width="34%" bgcolor="#f5f5f5">

<div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="procura.asp" class="menu">Pesquisar</a></font></b></font></div></td>

<td width="33%" bgcolor="#f5f5f5">

<div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div></td>

</tr>

</table>

 

</td>

</tr>

<tr>

<td colspan="3">

<table width="736" border="0" cellspacing="0" cellpadding="0" height="18">

<tr>

<td width="734" height="1" align="center" bgcolor="#FFFFE6">

<font face="Verdana, Arial, Helvetica, sans-serif" color="#000099" size="3"><b><br>

</b></font><font size="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">::

Exclusão de Alunos::</font></b></font></td>

</tr>

</table>

<form method="GET" action="action_excluir.asp">

<table width="736" border="0" cellspacing="0" cellpadding="0" height="1">

<tr>

<td height="1" align="center" width="734">

<table border="0" width="403" height="63" cellpadding="2">

<tr bgcolor="#FF6600">

<td width="59" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Nº:</font></b>

</font></td>

<td width="439" height="1" align="center"> <font size="1" color="FFFFFF"><b><font face="Verdana">Nome:</font></b>

</font></td>

<td width="90" height="1" align="center"> <font size="1" color="FFFFFF">

<input type="submit" name="Submit" value="Excluir">

</font></td>

</tr>

<%While Not objRS.EOF %>

<tr bgcolor="#FFFFE6">

<td width="59" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">

<%Response.write objRS("login")%>

</font> </b></font></div></td>

<td width="439" height="1" align="center"> <div align="left"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">

<%Response.write objRS("nome")%>

</font> </b></font></div></td>

<td width="90" height="1" align="center"> <div align="center"><font size="1"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#000000">

<input type="checkbox" name="checkbox" value="<%=objRS(0)%>">

</font> </b></font></div></td>

</tr>

objRS.MoveNext

Wend

objRs.close

objConn.close

Set objRs = Nothing

Set objConn = Nothing

</table>

</td>

</tr>

</table>

</form>

</td>

</tr>

</table>

</td>

</tr>

</table>

</div>

</body>

</html>

 

<<<<<<<<<<<<<<<<<<<<<<<<aqui o codigo a ser executado>>>>>>>>>

Option Explicit

Response.Expires = 0

Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id

id = Request.QueryString("checkbox")

On error Resume Next

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

objConn.Open "DBQ=" & Server.MapPath("contato.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"

<html>

<head>

<LINK REL=stylesheet HREF="file:///D|/exe/liks_etc.css" TYPE="text/css">

<title>Tela de Exclusão - ::ASPBRASIL::</title>

</head>

<body bgcolor="#FFFFFF">

<table width="100%" border="0" cellspacing="0" cellpadding="0">

<tr>

<td>

if err = 0 and id <> "" then

array_id = split(id,",")

For i=0 to ubound(array_id)

sql_id = sql_id & "admin.login = " & Trim(array_id(i)) & " OR "

sql_id = left(sql_id,(len(sql_id)-4))

stringSQL = "DELETE * FROM admin WHERE "&sql_id&""

objConn.Execute(stringSQL)

objConn.close

Set objConn = Nothing

end

<table width="100%" border="0" cellspacing="2" cellpadding="2">

<tr align="center">

<td bgcolor="#f5f5f5" width="30%">

<div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="file:///D|/exe/form_inclusao.asp" class="menu">Incluir</a></font></b></font></div>

</td>

<td bgcolor="#f5f5f5" width="30%">

<div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2"><a href="file:///D|/exe/form_exclui.asp" class="menu">Excluir</a></font></b></font></div>

</td>

<td bgcolor="#f5f5f5" width="35%">

<div align="center"><font color="#000099"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2" color="#CCCCCC"><a href="file:///D|/exe/escolhe_pra_auterar.asp" class="menu">Alterar</a></font></b></font></div>

</td>

</tr>

</table>

<table border="0" width="100%" height="8" cellpadding="2" align="center">

<tr bgcolor="#0099FF">

<td colspan="7" height="1" align="center"> <font size="2" color="FFFFFF"><b><font face="Verdana, Arial, Helvetica, sans-serif">Seus

dados foram excluidos com sucesso!</font></b></font> </td>

</tr>

</table>

 

</td>

</tr>

</table>

</body>

</html>

me ajudem ae browns

valews

--------------------

program nome;

var nome

var nome2

begin

nome:=luiz;

nome2:=antonio;

writeln ('O tempo as vezes é alheio a nossa vontade');

writeln ('so o q é bom dura tempo bastante pra se tornar');

writeln ('INESQUECIVEL');

writeln (nome+nome2);

end.

Discussão (1)

Entre ou cadastre-se para participar da discussão

Entrar Criar conta

Carregando comentários...