Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

JBNC

Excluir registro do banco em access

Por , em ASP Clássico

Recommended Posts

JBNC    0

JBNC
Postado

Fala pessoal,

Tenho um select em asp para excluir um registro do banco. Ao selecionar o um dos nome do select e clicar no botão CONSULTAR ele abre um outro arquivo em ASP que mostra o registro em questão antes de excluir. Existe neste arquivo o botão de EXCLUIR e de CANCELAR. O problema que assim que eu clico no botão de EXCLUIR ele simplesmente não apagado o registro.

Segue abaixo os codigos dos dois arquivos que fazem o processo de exclusão:

 

excluir.asp

 

<html>
<head>
<title>.: SISTEMA DE TREINAMENTO :.</title>
<LINK rel="stylesheet" href="_css/vlog.css" type="text/css">
 <script language="JavaScript">
	function Consultar()
   {
	 document.acao.action="_inc/exclusao.asp";
	 document.acao.submit();
   }
   function Cancelar()
   {
	 document.acao.action="treinamento.asp";
	 document.acao.submit();
   }
  </script>
</head>
<body>
<table width="100%" height="100%" bgcolor="#858585" cellpadding="0" cellspacing="0" border="0">
	<tr><td colspan="3" height="*"></td></tr>
	<tr>
		<td></td>
		<td height="200" width="350" background="_img/fnd0004.gif" align="center">
			<table class="titulo" border="0">
				<tr align="center" >
					<td colspan="2" height="20">
						EXCLUIR TRIPULANTE
					</td>
				</tr>
				<tr align="center" >
					<td colspan="2" height="25">
						Selecione o nome do tripulante.
					</td>
				</tr>
<%
' ----- Criação da conexão do Banco de dados com o ASP -----	
	SET strConexao=Server.createobject("ADODB.CONNECTION")
	strConexao.Provider="Microsoft.Jet.OLEDB.4.0"
	strConexao.Open "C:/inetpub/wwwroot/Projeto_SCT/server_bd/Lista Trip.mdb"
	Set RS = server.CreateObject("ADODB.Recordset") 
%>				<tr align="right">
						<form action="_inc/consulta.asp" method="post" class="titulo" name="acao">
							<td height="40">
							<select name="fr_nome" onChange="BuscaProdutos()" class="titulo6">
							<option>-Selecione o nome-</option>
							<% 
							sql ="SELECT * FROM Tripulacao order by NomeCompleto"
							set RS = strConexao.execute(sql)	
							Do Until RS.EOF
								Response.Write "<option value='"&RS("NomeCompleto")&"'>"&RS("NomeCompleto")&"</option>"
								RS.moveNext
							loop
							%>
							</select>
							<br>
							<input type="submit"  onClick="Consultar()" value="Consultar" class="btntipo" name="consultar">
							<input type="submit" onclick="Cancelar()" value="Cancelar" class="btntipo" name="cancelar">							

							</td>
<%
	RS.close
	strConexao.close
%>

						</form>
				</tr>
			</table>
		</td>
		<td></td>
	</tr>
	<tr><td colspan="3" height="*"></td></tr>
</table>
</body>
</html>

exclusão.asp

 

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>.: SISTEMA DE TREINAMENTO :.</title>
<LINK rel="stylesheet" href="../_css/vlog.css" type="text/css">
 <script language="JavaScript">
   function Excluir()
   {
<%
	SET strConexao=Server.createobject("ADODB.CONNECTION")
	strConexao.Provider="Microsoft.Jet.OLEDB.4.0"
	strConexao.Open "C:/inetpub/wwwroot/Projeto_SCT/server_bd/Lista Trip.mdb"
	Set RS = server.CreateObject("ADODB.Recordset") 
	sql ="SELECT * FROM Tripulacao order by NomeCompleto"
	set RS = strConexao.execute(sql)	 
	Do While not RS.Eof
		if var_temp=RS.Fields("CodANAC")then	  
			sql3 ="Delete FROM Cursos where CodANAC = '" &var_temp& "'"
			strConexao.execute(sql3)
		end if
	RS.MoveNext
	Loop
	Do While not RS.Eof
		if var_nome=RS.Fields("NomeCompleto")then	  
			sql4 ="Delete FROM Tripulacao where NomeCompleto ='" &var_nome& "'"
			strConexao.execute(sql4)
		end if
	RS.MoveNext
	Loop
	RS.close
	strConexao.close
%>
	}
   function Cancelar()
   {
	 document.acao.action="..\index.htm";
	 document.acao.submit();
   }
  </script>
</head>
<body>
<%  

	DIM var_temp, RS, objConn, sql, sql2, strConexao,nome_compl,nome_gue,funcao,cargo,equi,data_admi,base,cod_anac,pla_pc,
nivel_ing,pass,crm,ccf,ifr,emer_ger,tai,recic,carre
	permissao = false
	SET strConexao=createobject("ADODB.CONNECTION")
	Set RS = CreateObject("ADODB.Recordset") 
	strConexao.Open "ConASP2"


	var_nome= Request.form("fr_nome")
	
%>

<%
sql ="SELECT * FROM Tripulacao"
set RS = strConexao.execute(sql)

	Response.Write ("<table width='100%' height='100%' bgcolor='#858585' cellpadding='0' cellspacing='0' border='0'>")
	response.write ("<tr><td colspan='4' height='*'></td></tr>")
	response.write "<td></td>"
	response.write ("<td height='400' width='553' background='../_img/fnd0003.gif' align='center' class='login'>")
	Response.write ("<table class='titulo2' border='0' width='90%'>")
	response.write ("<tr align='right'>")
	response.write ("<td height='40'> </td>")
%>
	<td colspan="4"' valign="bottom" class="titulo4">
	<form action="..\consultar.html" class="titulo" name=acao>
	<input type="submit"  onClick="Excluir()" value="Excluir" class="btntipo2">
	<input type="submit"  onClick="Cancelar()" value="Cancelar" class="btntipo2">
	
	</form>	
	</td>
<%
	Response.write "</tr>"
	Response.Write ("<td colspan='3'>INFORMAÇÕES DO TRIPULANTE</td>")
	Response.write "</tr>"
	RS.MoveFirst
	Do While not RS.Eof
	if var_nome=RS.Fields("NomeCompleto")then
		Response.write "<tr align='left'>"
		Response.Write "<td width='30%'>Nome Completo:</td>" & "<td class='titulo3' colspan='3'>" & RS("NomeCompleto")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Nome de Guerra:</td>" & "<td class='titulo3' colspan='3'>" & RS("NomeGuerra")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Função:</td>" & "<td class='titulo3' colspan='3'>" & RS("Func")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Cargo:</td>" & "<td class='titulo3' colspan='3'>" & RS("Cargo")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Equipamento:</td>" & "<td class='titulo3' colspan='3'>" & RS("Eqpto")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Data de Admissão:</td>" & "<td class='titulo3' colspan='3'>" & RS("DtAdmis")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>BASE:</td>" & "<td class='titulo3' colspan='3'>" & RS("Base")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Código ANAC:</td>" & "<td class='titulo3' colspan='3'>" & RS("CodANAC")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>PLA / PC:</td>" & "<td class='titulo3' colspan='3'>" & RS("PLA/PC")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>Nível de Inglês:</td>" & "<td class='titulo3' colspan='3'>" & RS("Nivel_Inglês")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td>N° do Passaporte:</td>" & "<td class='titulo3' colspan='3'>" & RS("Passaporte")& "</td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td colspan='2'></td>" 
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.Write "<td colspan='2'></td>" 
		Response.write "</tr>"
		response.write"</table>"
	var_temp = RS("CodANAC")
	permissao = true
	end if
	RS.MoveNext
	Loop
	if permissao=false then
		RS.close
		strConexao.close
		Response.Redirect("err2.asp")
	end if

sql2 ="SELECT * FROM Cursos"
set RS = strConexao.execute(sql2)
	Response.write "<table class='titulo2' border='0' width='90%'>"
	RS.MoveFirst
	Do While not RS.Eof
	if var_temp=RS.Fields("CodANAC")then
		Response.write "<tr align='left'>"
		Response.write "<td colspan='4'> VENCIMENTOS:</td>"
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.write "<td width='22.5%'>CRM:</td>"
		Response.Write "<td class='titulo3' width='22.5%'>" & RS("CRM")& "</td>" 
		response.write "<td width='22.5%'>CCF:</td>"
		response.write "<td class='titulo3' width='22.5%'>" & RS("CCF")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.write "<td width='22.5%'>IFR:</td>"
		Response.Write "<td class='titulo3' width='22.5%'>" & RS("IFR")& "</td>" 
		response.write "<td width='22.5%'>Emerg. Gerais:</td>"
		response.write "<td class='titulo3' width='22.5%'>" & RS("Emergências_Gerais")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.write "<td width='22.5%'>TAI:</td>"
		Response.Write "<td class='titulo3' width='22.5%'>" & RS("TAI")& "</td>" 
		response.write "<td width='22.5%'>Reciclagem:</td>"
		response.write "<td class='titulo3' width='22.5%'>" & RS("Reciclagem")& "</td>"
		Response.write "</tr>"
		Response.write "<tr align='left'>"
		Response.write "<td width='22.5%'>Carregamento:</td>"
		Response.Write "<td class='titulo3' width='22.5%'>" & RS("Carregamento")& "</td>" 
		Response.write "</tr>"
	end if
	RS.MoveNext
	Loop
	response.write"</table>"
	response.write"</td>"
	response.write"<td></td>"
response.write"</table>"

%>
</body>
</html>

Peço ajuda a vocês.

Muito obrigado e aguardo resposta.

 

Atenciosamente.

 

JBNC... :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Que erro esta apresentando?

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Prezado,

Ele ao clicar o botão ele simplesmente volta para a pagina de seleção.

Mas quando eu vou ver se apagou no banco, não apagou o registro que eu escolhir.

Muito obrigado e aguardo resposta.

 

JBNC.. :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

é porque seu codigo asp para excluir esta na funçaõ javascript

 

nao pode ser assim

 

precisa submeter o formulario na outra pagina recupera o dado a ser excluido e o faz

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Ok monteiro.

Tem como você postar um exemplo simples sobre isto?

Muito obrigado e aguardo resposta.

 

Atenciosamente.

 

JBNC.. :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Voce deve definir uma pagina para a action de seu form

 

e nela voce poe o codigo para exclusao

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Prezado Monteiro,

Fiz o que você falou, deu certo.

Mas infelizmente a minha idéia era primeiro mostrar o registro selecionado antes de excluir e depois que usuário ve-se ele clicava o botão de excluir e ai sim mostra-se uma mensagem que dizendo que foi excluido.

Você tem algum exemplo de como eu faço isto? Pois sei que quando eu seleciono o nome e depois submeto a outra pagina em ASP pega as variaveis que forma passadas pelo metodo "POST", e faço o processo de exclusão que deu certo.

Existe um meio de eu passar esta mesma variavel para uma outra pagina e assim trabalhando esta variaveis?

Muito obrigado e aguardo resposta.

 

Atenciosamente.

 

JBNC.. :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

Sim tem

 

Voce pode passar o valor por quantas paginas quiser e so exclua quando chegar a hora

 

Isso é voce que define na sua programação

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

como está a estrutura de suas paginas? do formulario esta indo para onde?

 

onde está excluindo?

 

Tem qeu ver o qeu quer que aconteça antes de começar a proramação em si

Compartilhar este post

Link para o post
Compartilhar em outros sites

JBNC    0

JBNC
Postado

Bom Monteiro,

1° - Tenho uma pagina excluir.asp em que existe um combo de seleção, ao qual seleciono um nome e depois clico no botão de Consultar para ir para a pagina exclusao.asp;

2° - Na pagina exclusao.asp ele amostra o Registro que eu quero ou não excluir. Caso eu queira eu clico no botão de excluir e (e ai que eu não consigo passar o parametro para a proxima pagina) e vai para pagina conf_exclusao.asp;

3° - Na pagina conf_exclusao.asp ele só amostra uma mensagem dizendo que foi excludo o registro e que e tem dos botões SIM ou NÃO em que o SIM eu volto para pagina excluir.asp ou o NÃO para a pagina index.html.

 

Muito obrigado pela força e aguardo resposta.

 

JBNC.. :)

Compartilhar este post

Link para o post
Compartilhar em outros sites

Mário Monteiro    179

Mário Monteiro
Postado

entao

 

Na excluir.asp voce terá apenas o formulario que terá como action exclusao.asp

 

Na exclusao.asp voce resgatará este valor e exibirá, ao mesmo tempo voce coloca em outro formulario e cria um campo hidden para incluir este valor ai no action deste form voce poe conf_exclusao.asp

 

Finalmente em conf_exclusao.asp voce resgata este valor e exclui o registro, mostra a mensagem de confirmação e os dois links que falou que gostaria

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito