criacaoi7 0 Denunciar post Postado Junho 2, 2008 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
hargon 64 Denunciar post Postado Junho 2, 2008 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
criacaoi7 0 Denunciar post Postado Junho 2, 2008 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
hargon 64 Denunciar post Postado Junho 2, 2008 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
criacaoi7 0 Denunciar post Postado Junho 3, 2008 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
hargon 64 Denunciar post Postado Junho 3, 2008 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
criacaoi7 0 Denunciar post Postado Junho 3, 2008 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
hargon 64 Denunciar post Postado Junho 3, 2008 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
criacaoi7 0 Denunciar post Postado Junho 3, 2008 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
hargon 64 Denunciar post Postado Junho 3, 2008 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
criacaoi7 0 Denunciar post Postado Junho 3, 2008 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
hargon 64 Denunciar post Postado Junho 3, 2008 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
criacaoi7 0 Denunciar post Postado Junho 4, 2008 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
hargon 64 Denunciar post Postado Junho 4, 2008 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
criacaoi7 0 Denunciar post Postado Junho 4, 2008 hargon na tabela cadastro_escolas existe o campo id_escola Era essa a sua dúvida? Obrigado. Jr. Compartilhar este post Link para o post Compartilhar em outros sites
hargon 64 Denunciar post Postado Junho 4, 2008 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
criacaoi7 0 Denunciar post Postado Junho 4, 2008 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
hargon 64 Denunciar post Postado Junho 4, 2008 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
criacaoi7 0 Denunciar post Postado Junho 4, 2008 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
hargon 64 Denunciar post Postado Junho 4, 2008 É 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