Ir para conteúdo

POWERED BY:

Arquivado

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

wilnet

Categoria com SubCategoria.

Por , em ASP Clássico

Recommended Posts

wilnet    92

wilnet
Postado

Olá galera, tenho um menu que me lista as Categorias no BD, e estou tentando fazer uma SubCategorias devido o menu lateral estar começando a ficar grande, em fim...

 

Meu BD tenho:

Uma tabela: Categorias

Campos: Id - Nome

 

Outra tabela: SubCategorias

Campos: Id - Nome - Categoria

 

A página que estou usando:

<body leftmargin="0" topmargin="0"><table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#e7e7ef">  <tr><td bgcolor="#0077bb"> 	  <div align="center"><strong><img src="imagem/categorias.gif" width="120" height="19"></strong></div></td>  </tr></table><table width=100% border=1 cellpadding="0" cellspacing="0" bordercolor="#336699" bgcolor="#0099ff">  <%Dim rsCatset rsCat = DB.Execute("select * from categorias ORDER BY nome")while not rsCat.EOF%>  <tr class="blateral" width=100%><td width=100% height="20"><font color="#ffffff"><b>» </b></font><a class=linkcat href="./lista.asp?lista=rsCat&cat_id=<%=rsCat("id")%>&cat_nome=<%=rsCat("nome")%>"><%=rsCat("nome")%></a> </td></tr><%rsCat.MoveNextWendrsCat.Closeset rsCat = Nothing%></table>
O que estou precisando é inserir neste código o Script para que meu MENU aparça a CATEGORIA, e que, ao clicar sobre ela, me mostre então as SubCategoria para ela.

 

Agradeço desde já o auxilio prestado.

Compartilhar este post

Link para o post
Compartilhar em outros sites

Elbrinner    0

Elbrinner
Postado

Basta você colocar o codigo da categoria na categoria e depois fazer um bucle usando o ID da categoria para mostrar todas as subcategorias que pertence a categoria.

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Desculpe meu querido, mas não consegui entender sua explicação.

Para ter uma idéia, eu já fucei de tudo pesquisei aqui no forum até achei uns exemplos, mas não estou conseguido distribuir o SCRIPT junto a esta minha pg.

 

Se não for pedir muiro, gostaria se alguem tiver a BOA vontade de inserir o código nesta minha pg que postei, ai vou testando e postando o resultado aqui até eu conseguir.

 

Agradeço mais uma vez a atenção de todos para tal ajuda.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

primeiramente......os daods estão todos em uma tabela ou as tabelas estão relacionadas?

 

Dependendo de como está a estrutura você deve fazer de uma forma

 

 

ops...desculpe, não tinha visto acima do codigo, já coloco um exemplo

 

 

 

 

abaixo um exemplo, basta adaptar para os campos que você tem na tabela e ao imprimir montar num table

 

<%if not rsCat.eof thendo while not rsCat.eofresponse.write(rsCat("categoria")&"<br>")set rsSubCat.db.execute("select * from SubCategorias where idDaTabelaCategoria="&rsCat("id")&"")if not rsSubCat.eof thendo while not rsSubCat.eofresponse.write(rsSubCat("subCategoria")&"<br>")rsSubCat.movenextloopend ifrsCat.movenextloopend if%>

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

jonathandj, me desculpe por não ter postado a resposta ainda, é que meu trampo é outro, serviço de web faço e me esforço a fazer nas poucas horas vagas que tenho.(é uma pena pra mim).

 

Tenho apenas noções básicas em ASP, e confesso que não entendi bem seu exemplo, tentei inserir na pg que postei acima, e só quebrei a cabeça.

 

Veja só, tenho um BD em Access com as tabelas:

 

Tabela: Categorias

Campos: Id - nome

 

Tabela: SubCategorias

Campos: Id - nome - categoria

 

A pg que segue, é a que uso normalmente e que funciona, só que me lista apenas as categorias porque ela busca apenas na tabela "Categorias", a outra tabela "SubCategorias" eu apenas as criei, mas não tem nenhum script para ela ainda, e é isso que estou precisando amigos.

 

Quero adcionar a esta pg abaixo, o script para lista as Categorias e que ao clicar nelas abre as SubCategorias.

 

Ex: Categoria "Automóveis" ao clicar nela irá abrir as SubCategorias "carros" , "AutoPeças" , "oficinas", etc.

 

<body leftmargin="0" topmargin="0"><table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#e7e7ef">  <tr><td bgcolor="#0077bb"> 	  <div align="center"><strong><img src="imagem/categorias.gif" width="120" height="19"></strong></div></td>  </tr></table><table width=100% border=1 cellpadding="0" cellspacing="0" bordercolor="#336699" bgcolor="#0099ff">  <%Dim rsCatset rsCat = DB.Execute("select * from categorias ORDER BY nome")while not rsCat.EOF%>  <tr class="blateral" width=100%><td width=100% height="20"><font color="#ffffff"><b>» </b></font><a class=linkcat href="./lista.asp?lista=rsCat&cat_id=<%=rsCat("id")%>&cat_nome=<%=rsCat("nome")%>"><%=rsCat("nome")%></a> </td></tr><%rsCat.MoveNextWendrsCat.Closeset rsCat = Nothing%></table>
Tentem por favor me auxiliar dentro deste script, como insiro para que eu possa conseguir este resultado.

 

Gratos.

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Alguem me de um Help, pessoal por favor.Grato,

Compartilhar este post

Link para o post
Compartilhar em outros sites

Maykon Silva    0

Maykon Silva
Postado

Tente Usar esse:

<body leftmargin="0" topmargin="0"><table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="#e7e7ef">  <tr><td bgcolor="#0077bb"> 	  <div align="center"><strong><img src="imagem/categorias.gif" width="120" height="19"></strong></div></td>  </tr></table><table width=100% border=1 cellpadding="0" cellspacing="0" bordercolor="#336699" bgcolor="#0099ff">  <%Dim rsCatset rsCat = DB.Execute("select * from categorias ORDER BY nome")while not rsCat.EOF%>  <tr class="blateral" width=100%><td width=100% height="20"><font color="#ffffff"><b>» </b></font><a class=linkcat href="./lista.asp?lista=rsCat&cat_id=<%=rsCat("id")%>&cat_nome=<%=rsCat("nome")%>"><%=rsCat("nome")%></a> </td></tr><%Dim rsSubCatset rsSubCat = DB.Execute("select * from subcategorias where categoria = "&rsCat("id")&" order by nome")while not rsSubCat.EOF%>  <tr class="blateral" width=100%><td width=100% height="20"><font color="#ffffff"><b>» </b></font><a class=linkcat href="./lista.asp?lista=rsCat&cat_id=<%=rsCat("id")%>&subcat_id=<%=rsSubCat("id")%>"><%=rsSubCat("nome")%></a> </td></tr><%rsSubCat.MoveNextWendrsCat.MoveNextWendrsCat.Closeset rsCat = NothingrsSubCat.Closeset rsSubCat = Nothing%></table>

 

 

maykon.com

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Amigos, apresentou este erro:

 

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E07)[Microsoft][Driver ODBC para Microsoft Access] Tipo de dados imcompatível na expressão de critério.../site/bvertical.inc, line 17
Esta é a linha 17:

 

set rsSubCat = lojaDB.Execute("select * from SubCategorias where categoria  = "&rsCat("id")&" order by nome")
Veja o que fiz, onde está where categoria , "categoria" é o campo da tabela "SubCategoria", então da o erro acima.

 

Agora se eu colocar where categorias , "Categorias" é minha primeira tabela, ai da este erro

Tipo de erro:Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)[Microsoft][Driver ODBC para Microsoft Access] Parâmetros insuficientes. Eram esperados 1.../site/bvertical.inc, line 17
O que faço pode corrigir será que é fácil galera?

 

Grato.

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

Poxa galera de uma luz ai vai!!!Se estiver dificil de resolver é só postarem, pq fico aqui aguniado sem saber como resolver isso, e tb não tenho resposta me de um help vai..

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

o campo categoria da tabela subcategoria e o campo id da tabela categoria são de que tipos no banco?

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

O campo categoria da tabela subcategoria está como "texto"O campo id da tabela categorias está como "autoNumeração".Teve alguma idéia para solucionar amigo?

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

expica uma coisa..o campo categoria da tabela subcategoria está relacionado com o campo id da tabela categoria?se está o erro é pq o campo categoria deve ser do tipo numero

Compartilhar este post

Link para o post
Compartilhar em outros sites

wilnet    92

wilnet
Postado

o campo categoria da tabela subcategoria está relacionado com o campo id da tabela categoria?se está o erro é pq o campo categoria deve ser do tipo numero

Realmente, passei para numero e agora listou.Só que tem um outro problema, ele listo todos de uma só vez, as CATEGORIAS e as SubCategorias também, uma debaixo da outra, estranho né.O correto deveria ser o seguinte: Listar somente as Categorias, ai sim quando eu clicar em qualquer uma delas é que deveria abrir a subcategoria relacionada certo.Pode verificar o pq, por favor.Grato ++++++ uma vez.

Compartilhar este post

Link para o post
Compartilhar em outros sites

jrcardozo    4

jrcardozo
Postado

então deve ser feito um pouco diferente, agora estou de saida aqui no serviço, se tiver um tempo faço a noite e coloco a ideia aqui pra você

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