Ir para conteúdo

Arquivado

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

criacaoi7

Criar página para exibir dados.

Recommended Posts

hargon fiz a mudança, mas está dando um erro na linha 35, informando que falta um end if...

 

Na linha 35 eu tenho apenas tabelas.

 

Vou postar como ficou meu código pra você ver.

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id
id = Request.QueryString("checkbox")
'Caso ocorra algum erro os precessos não são interrompidos 
'e é passado para a próxima linha de comando
On error Resume Next
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=" & Server.MapPath("cidades.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}","username","password"
'Deletando registro da tabela contato onde esta a id
	%>
<html>
<head>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<title>::Cidades::</title>
</head>
<body bgcolor="#FFFFFF">
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <tr> 
		<td>
<% 
  stringSQL = "DELETE * FROM cadastro_escola WHERE id_escola = "&id_escola
			objConn.Execute(stringSQL)
			objConn.close
			Set objConn = Nothing		  
%>			  
				  <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="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="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="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>
		<%else%>
			  <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Ocorreu algum erro!<br>Nenhum dado foi excluido!</b><br><a href="java script:history.back(-1)">Volta</a></font></div>
		<%End if%>
		</td>
	  </tr>
	</table>
	</body>
	</html>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Agora fiquei perdido no seu código. Lá no final você tem um ELSE e um END IF mas não tem um IF.

<%else%>
			  <div align="center"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">Ocorreu algum erro!<br>Nenhum dado foi excluido!</b><br><a href="java script:history.back(-1)">Volta</a></font></div>
		<%End if%>

Ou cria o IF ou remove essas linhas.

 

Esse último código postado não tem nada haver com o código que comentamos antes. Ele não tem nem o request.querystring("id_pagina"), ou você alterou isso?

Compartilhar este post


Link para o post
Compartilhar em outros sites

hargon postei errado, foi mau... fiz confusão com os códigos.

 

O código está assim e está dando o erro de end if.

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id_escola
id_escola = request.querystring("id_escola")
'Caso ocorra algum erro os precessos não são interrompidos 
'e é passado para a próxima linha de comando
'On error Resume Next
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=c:\web\olimpiadaconsespcombr\database\BD_DADOS.mdb;Driver={Microsoft Access Driver (*.mdb)}"
'Deletando registro da tabela contato onde esta a id
	%>
<html>
<head>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<title>::Cidades::</title>
</head>
<body bgcolor="#FFFFFF">
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <tr> 
		<td>
<% 
		if err = 0 and id_escola <> "" then
			stringSQL = "DELETE * FROM cadastro_escola WHERE id_escola = "&id_escola
			objConn.Execute(stringSQL)
			objConn.close
			Set objConn = Nothing
%>			  
				  <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="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="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="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>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Você tem um if err = 0 and id_escola <> "" then mas não tem um end if... põe um end if no final do código aí.

 

De preferência dentro da última </td>.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Hargon fiz a alteração.

 

O erro agora é este:

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

 

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id_escola ='.

 

/cidades/excluir_escola.asp, line 25

 

Na linha 25 eu tenho isso:

objConn.Execute(stringSQL)

 

<% 
			stringSQL = "DELETE * FROM cadastro_escola WHERE id_escola = "&id_escola
			objConn.Execute(stringSQL)
			objConn.close
			Set objConn = Nothing
%>

Notei que na página anterior a exclusão, aonde eu vou clicar no ícone pra deletar a escola, na barra de endereço do navegador está assim:

 

http://www.olimpiadaconsesp.com.br/cidades/excluir_adm.asp?id_cidade=4973

 

Então eu clico no ícone pra deletar e da o erro que escrevi acima e na barra do navegador aparece isso:

 

http://www.olimpiadaconsesp.com.br/cidades/excluir_escola.asp?p=2

Compartilhar este post


Link para o post
Compartilhar em outros sites

Esse erro que o ocorreu é porque id_escola está vazio.

 

Verifique o link de deletar, ele tem que passar como parametro o id_escola e o código da esola. E pelo que você citou, está informado errado.

 

Corrija isso e posta o resultado.

Compartilhar este post


Link para o post
Compartilhar em outros sites

hargon examinei cada parte do código mas não consegui resolver.

 

Dei um response e verifiquei que realmente a ID_escola não está sendo passada para a página de exclusão. Mas no link do botão de exclusão aparece a ID.

 

Veja como está sendo passada a ID:

<a href="excluir_escola.asp?ID=<%= rsDados("id_escola") %>"><img border="0" alt="Excluir" src="Images/IcDelete.gif" /></a>

 

Nesta mesma página eu dei um response pra ver se aparecia a ID da escola e aparece, mas porque ela não envia???

 

Jr.

Compartilhar este post


Link para o post
Compartilhar em outros sites

excluir_escola.asp?ID=<%= rsDados("id_escola") %>

 

Você utiliza ID, e no request.querystring, você utiliza id_escola. É um ou outro.

 

Tente assim:

excluir_escola.asp?ID=<%= rsDados("id_escola") %>

Na outra página

id_escola = request.querystring("id")

Compartilhar este post


Link para o post
Compartilhar em outros sites

hargon fiz a alteração e retorna o mesmo erro:

 

Erro de tempo de execução do Microsoft VBScript erro '800a01f4'

 

Variável não definida: 'id'

 

/cidades/excluir_escola.asp, line 24

 

Na página de exclusão o código ta assim:

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id_escola
id_escola = request.querystring("id")
'Caso ocorra algum erro os precessos não são interrompidos 
'e é passado para a próxima linha de comando
'On error Resume Next
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=c:\web\olimpiadaconsespcombr\database\BD_DADOS.mdb;Driver={Microsoft Access Driver (*.mdb)}"
'Deletando registro da tabela contato onde esta a id
	%>
<html>
<head>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<title>::Cidades::</title>
</head>
<body bgcolor="#FFFFFF">
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <tr> 
		<td>
<% 
			stringSQL = "DELETE * FROM cadastro_escola WHERE id = "&id
			objConn.Execute(stringSQL)
			objConn.close
			Set objConn = Nothing
%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Aqui em cima você armazena em id_escola

id_escola = request.querystring("id")

 

Aqui embaixo você usa id?

stringSQL = "DELETE * FROM cadastro_escola WHERE id = "&id

 

 

Corrige aí...

stringSQL = "DELETE * FROM cadastro_escola WHERE id = "&id_escola

Faz só essa alteração e não meche em mais nada. Depois coloca o código para rodar e veja.

Compartilhar este post


Link para o post
Compartilhar em outros sites

hargon fiz as correções, inclusive do nome da tabela que estava errada, o correto é cadastro_escolas (escolas no plural).

 

Não consegui testar porque não sei se é minha conexão que tá com pau ou o servidor...

 

se puder testar e ver se agora deleta me fala... por favor.

 

http://www.olimpiadaconsesp.com.br/cidades/cidades_adm.asp

 

Vlw pelo esforço em ajudar.

 

Jr.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Deu erro de parâmetros insufientes... pelo visto você manteve ID, tanto na querystring, como na consulta...

 

Altera isso.

Compartilhar este post


Link para o post
Compartilhar em outros sites

hargon, boa noite

 

mais uma vez olhei tudo pra tentar descobrir o erro e não consegui.

Pelo que percebi o problema está acontecendo em passar a ID, de forma que esta ID não está sendo recebida pela página de exclusão. Vou repostar aqui o atual código dapágina que exibe as escolas de um determinada cidade para posterior exclusão.

 

Página que exibe as escolas (todas escolas de um x cidade)

Passando a id...

 

<a href="excluir_escola.asp?ID=<%=rsDados("id_escola")%>"><img border="0" alt="Excluir" src="Images/IcDelete.gif" /></a>

Página que faz a exclusão:

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id_escola
id_escola = request.querystring("id")
'Caso ocorra algum erro os precessos não são interrompidos 
'e é passado para a próxima linha de comando
'On error Resume Next
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=c:\web\olimpiadaconsespcombr\database\BD_DADOS.mdb;Driver={Microsoft Access Driver (*.mdb)}"
'Deletando registro da tabela contato onde esta a id
	%>
<html>
<head>
<LINK REL=stylesheet HREF="liks_etc.css" TYPE="text/css">
<title>::Cidades::</title>
</head>
<body bgcolor="#FFFFFF">
	<table width="100%" border="0" cellspacing="0" cellpadding="0">
	  <tr> 
		<td>
<% 
			stringSQL = "DELETE * FROM cadastro_escolas WHERE id = "&id_escola
			objConn.Execute(stringSQL)
			objConn.close
			Set objConn = Nothing
%>			  
				  <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="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="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="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>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Nessa consulta, o campo na tabela referente a escola, é ID ou ID_ESCOLA?

 

stringSQL = "DELETE * FROM cadastro_escolas WHERE id = "&id_escola

Compartilhar este post


Link para o post
Compartilhar em outros sites

Isso, então altera aí:

 

stringSQL = "DELETE * FROM cadastro_escolas WHERE id_escola = "&id_escola

Compartilhar este post


Link para o post
Compartilhar em outros sites

hargon retorna o erro de que está vazio,

 

Microsoft OLE DB Provider for ODBC Drivers erro '80040e14'

 

[Microsoft][Driver ODBC para Microsoft Access] Erro de sintaxe (operador faltando) na expressão de consulta 'id_escola ='.

 

/cidades/excluir_escola.asp, line 25

 

Olha como deixei o código:

 

<%
Option Explicit
Response.Expires = 0
Dim objConn, stringSQL, strConnection, array_id, i, sql_id, id_escola
id_escola = request.querystring("id_escola")
'Caso ocorra algum erro os precessos não são interrompidos 
'e é passado para a próxima linha de comando
'On error Resume Next
' Conectando com o banco de dados contato.mdb
Set objConn =  Server.CreateObject("ADODB.Connection")
objConn.Open "DBQ=c:\web\olimpiadaconsespcombr\database\BD_DADOS.mdb;Driver={Microsoft Access Driver (*.mdb)}"
'Deletando registro da tabela contato onde esta a id
	%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

Dê uma organizada no seu código... cada hora você posta um código diferente. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

 

Veja isso: id_escola = request.querystring("id_escola")

 

Na outra página você está passando ID ou ID_ESCOLA como parâmetro? Faça essa correção.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Hargon estou organziando geral agora, até eu me perco aqui... rs...

 

Vlw, agora deu certo...

eu estava passando ID ao invés de ID_Escola, é que um hora eu mudava um e esquecia de mudar o outro e vice-versa.

 

Na página que exibe os dados das escolas, como eu mostro o nome da cidade e estado também...

Eu tentei dar um rs "cidade", mas não deu certo, já que na tabela cadastro_escolas eu tenho id_cidade e o nome da cidade aparece na tabela cidades, nome cidade.

 

A página que exibe pra relembrar ta assim...

 

Resumo:

 

strDados = "SELECT * FROM Cadastro_Escolas WHERE id_cidade = " & id_cidade & " ORDER BY id_escola"
		rsDados.open strDados, conexao, 3, 3

RS

<%=rsDados("escola")%>
		<br>
		Endereço: 
		<%=rsDados("endereco")%>
		<br>
		complemento: 
		<%=rsDados("complemento")%>
		<br>
		CEP: 
		<%=rsDados("CEP")%>

Compartilhar este post


Link para o post
Compartilhar em outros sites

É só você pegar o id_cidade dentro do while e fazer uma consulta, na tabela cidades, para retornar o nome da cidade.

Compartilhar este post


Link para o post
Compartilhar em outros sites

×

Informação importante

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