Ir para conteúdo

POWERED BY:

Arquivado

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

Paulo Cézar Júnior

Não carrega as categorias do db no menu de lista.

Por , em ASP Clássico

Recommended Posts

Paulo Cézar Júnior    0

Paulo Cézar Júnior
Postado

Oi gente, tudo bem.

 

Preciso da ajuda de vocês nesse select, é o seguinte, quando carregar a página do meu site, vai ter um campo de formulário que vai fazer a busca e o outro, aonde abre um menu de lista com todas as categorias que eu quero selecionar pra fazer a busca.

 

Não sei o que acontece que não está pegando as categorias do banco de dados, aparece a lista em branco, apenas escrito todas as categorias.

 

também não dá erro...

 

veja como está a minha conexão com o DB:

 

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

objCategorias.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\informenet\banco\noticias.mdb"

objCategorias = "SELECT ID, categorias FROM categorias ORDER BY categorias ASC"

 

Aqui embaixo é aonde é os campos do formu para exibir as categorias...

 

<form name="form1" method="post" action="Busca.asp">

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

<tr>

<td width="144"><input name="Buscar" type="text" class="Form120x20" id="Buscar"></td>

<td width="5"> </td>

<td width="41"><select name="Categoria" size="1" class="Form120x20">

<%

 

Response.Write "<option selected value='0'>Todas categorias</option>"

 

While Not objCategorias.EOF

Response.Write "<option value='"& objCategorias("ID") &"'>"& objCategorias("categorias") &"</option>"

objCategorias.MoveNext

Wend

 

%>

</select></td>

<td width="13"> </td>

<td width="39"><input name="imageField" type="image" src="Images/BotBuscar.gif" width="43" height="19" border="0"></td>

</tr>

</table>

</form>

 

 

Alguém pode me ajudar.

 

Obrigado.

 

Abaixo código completo da página:

 

<link href="Estilos.css" rel="stylesheet" type="text/css"><%Function Horario ( Hoje )Dia = Day(date)mês = Month(date)Ano = Year(date)Hoje = Dia & " / " & mês  & " / " & AnoHorario = HojeEnd FunctionSet objCategorias = Server.CreateObject("ADODB.Connection")objCategorias.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=D:\web\localuser\infoweb\banco\noticias.mdb"objCategorias = "SELECT ID, categorias FROM categorias ORDER BY categorias ASC"%><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"><html><head><title>Documento sem título</title><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head><body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0"><table width="778" border="0" cellspacing="0" cellpadding="0">  <tr>	<td><table width="778" border="0" cellspacing="0" cellpadding="0">		<tr> 		  <td><table width="777" border="0" cellspacing="0" cellpadding="0">			  <tr> 				<td width="20"><img src="images/img_topo_01.gif" width="20" height="8"></td>				<td width="756"><img src="images/img_topo_02.gif" width="728" height="8"></td>				<td width="10"><img src="images/img_topo_03.gif" width="30" height="8"></td>			  </tr>			  <tr> 				<td><img src="images/img_topo_04.gif" width="20" height="90"></td>				<td><img src="images/img_topo_05.gif" width="728" height="90"></td>				<td><img src="images/img_topo_06.gif" width="30" height="90"></td>			  </tr>			  <tr> 				<td><img src="images/img_topo_07.gif" width="20" height="9"></td>				<td><img src="images/img_topo_08.gif" width="728" height="9"></td>				<td><img src="images/img_topo_09.gif" width="30" height="9"></td>			  </tr>			</table></td>		</tr>		<tr> 		  <td><table width="778" border="0" cellspacing="0" cellpadding="0">			  <tr> 				<td width="389"><img src="images/img_topo_10.gif" width="389" height="49"></td>				<td width="291"><img src="images/img_topo_11.gif" width="263" height="49"></td>				<td width="98"><img src="images/img_topo_12.gif" width="126" height="49"></td>			  </tr>			  <tr> 				<td><img src="images/img_topo_13.gif" width="389" height="25"></td>				<td background="images/img_topo_14.gif"><font color="#FFFFFF">Hoje 				  é dia:</font> 				  <% = Horario ( Hoje ) %>				</td>				<td><img src="images/img_topo_15.gif" width="126" height="25"></td>			  </tr>			  <tr> 				<td><img src="images/img_topo_16.gif" width="389" height="14"></td>				<td><img src="images/img_topo_17.gif" width="263" height="14"></td>				<td><img src="images/img_topo_18.gif" width="126" height="14"></td>			  </tr>			</table></td>		</tr>		<tr> 		  <td><table width="778" border="0" cellspacing="0" cellpadding="0">			  <tr> 				<td width="300"><img src="images/img_topo_20.gif" width="291" height="29"></td>				<td width="202"><form name="form1" method="post" action="Busca.asp">					<table width="242" border="0" cellspacing="0" cellpadding="0">					  <tr> 						<td width="144"><input name="Buscar" type="text" class="Form120x20" id="Buscar"></td>						<td width="5"> </td>						<td width="41"><select name="Categoria" size="1" class="Form120x20">														<%										Response.Write "<option selected value='0'>Todas categorias</option>"				While Not objCategorias.EOF			Response.Write "<option value='"& objCategorias("ID") &"'>"& objCategorias("categorias") &"</option>"		objCategorias.MoveNext		Wend				%>								</select></td>						<td width="13"> </td>						<td width="39"><input name="imageField" type="image" src="Images/BotBuscar.gif" width="43" height="19" border="0"></td>					  </tr>					</table>				  </form></td>				<td width="164"> </td>				<td width="112"> </td>			  </tr>			</table></td>		</tr>	  </table></td>  </tr></table></body></html>

Compartilhar este post

Link para o post
Compartilhar em outros sites

Cesão    1

Cesão
Postado

Eu nao sei se eh soh isso, mas eh que eu faço de um jeito diferente... tenta isso...

 

use uma conexao assim:

<%caminho=left(Server.mappath(Request.ServerVariables("PATH_INFO")),InstrRev(Server.mappath(Request.ServerVariables("PATH_INFO")),"\"))	Set conexao = Server.CreateObject("ADODB.Connection")	conexao.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&caminho&"D:\web\localuser\informenet\banco\noticias.mdb"	conexao.open%>

a conexao vai ser soh uma.. padrao p todas as paginas.. preferivelmente, salve este codigo (apenas este codigo) em uma pagina chamada conexao.asp e depois de apenas include em todas as paginas:

<!--#include file="conexao.asp"-->

 

assim, cada vez que você precisar mudar a conexao, irá mudar apenas na pagina conexao.asp

coloque esse include em cima do <html> do começo da pagina em todas as paginas que você for usar algo relacionado ao banco de dados.

 

dai o RecordSet você seta embaixo do select como está mostrado ai embaixo...

 

no select use assim:

 

SQL = "SELECT * FROM categorias ORDER BY categorias"Set objCategorias = conexao.execute(SQL)
(no select acima, confira se os campos estão com os nomes certos iguais do DB e talz..)

 

dai no loop faça assim

 

<form name="form1" method="post" action="Busca.asp"><table width="242" border="0" cellspacing="0" cellpadding="0"><tr> <td width="144"><input name="Buscar" type="text" class="Form120x20" id="Buscar"></td><td width="5"> </td><td width="41"><select name="Categoria" size="1" class="Form120x20"><option selected value='0'>Todas categorias</option><%Do while not objCategorias.EOF%><option value="<%=objCategorias("ID")%>"><%=objCategorias("categorias")%></option>"<%objCategorias.MoveNextLoop%>%> </select></td><td width="13"> </td><td width="39"><input name="imageField" type="image" src="Images/BotBuscar.gif" width="43" height="19" border="0"></td></tr></table></form>

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