Listar Tdos Os Itens Duma Colunaa Na Buska Em Asp

William ** ASP · Março 13, 2007

:rolleyes: Boa Tarde!

Olha Galeraaa Prescizoo mtoo da ajuda d v6..

O que está acontecendoo é o seguintee

To Cum site para mostrar os produtos de uma empresa que estão no banco de dados do acces

só que o site tem que atualizar automaticamente de acordoo com o banco de dados u jeitoo que eu to fazendo é assim

por exemplo eu qroo faze uma buska di pneus da marca pirelli aro 17

aee o comandoo eu uso o seguinte

pesquisa.asp?grupo=aro17&linha=pirelli

Aii no codiigoo da pagina "pesquisa.asp" ondii é exibido o resultadoo é o seguinte

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

<%
Dim Conect, varCatProd, varLinhaProd, rsCategoria, strSQL, Numero_Registros

varCatProd = ""
If (Request("grupo") <> "") Then
   varCatProd = Request.QueryString("grupo")
End If

varLinhaProd = ""
If (Request("linha") <> "") Then
   varLinhaProd = Request.QueryString("linha")
End If

Call abre_conexao
strSQL = "SELECT * FROM TblistaPrecos WHERE grupo = '" & varCatProd & "' and linha = '" & varLinhaProd & "'" 

Set rsCategoria = Conect.Execute(strSQL)
Numero_Registros = 0

While (Not rsCategoria.EOF)
   Numero_Registros = Numero_Registros + 1
   rsCategoria.MoveNext
Wend

rsCategoria.Requery
%>

Euu gostariaa De Um Codigoo que listaseem todos as categorias existentes na coluna "Linha"

Sem repetir e que eu não percisace fazeer links manual

Ex:

- Pirelli

- Goodiar

- bs cowei

e dpois que listasem todoos, os itens já serião um linkees e que listassem tdoss as categorias que estivessem na coluna "grupo"

Ex:

pneus para Aro 14

pneus para Aro 15

pneus para Aro 16

Novamente esses viraria linkee e que listassem tdoss os produtos que estivessem na coluna.. Pliss

rike_0 · Março 13, 2007

faz a consulta asssim

strSQL = "SELECT distinct(linha) FROM TblistaPrecos group by linha"

quando você executar ele vai retornar um de cada sem repetir......

faz os links

<%

do while not objrs.eof

%>

<%

objrs.movenext

loop

%>

feito os links você testa se o parametro da pagina retornou alguma coisa depois usa isso pra fazer outra cnsulta do grupo

<%

strSQL="Select distinct(grupo) FROM TblistaPrecos where linha="&linha&" group by grupo"

%>

tendeu??? se quiser a gente tenta criar um código topdo pra isso que você precisa.... ^^V

Editado Março 13, 2007 por rike_0

William ** ASP · Março 14, 2007

Okeyy Tamoo chegandoo... ;)

strSQL = "SELECT distinct(linha) FROM TblistaPrecos group by linha"

Essi eu fiz e deu certoo listo todos da coluna "Linha"

Exemplo:

-Pirelli

-Goddear

-Bs Cowei

só na parte do link que eu não intendii

Tipo quando clicasse em pirelli eu gostaria que listasse todos os nomes que estivessem na coluna "Grupo" que na "Linha" Fosse Pirelli

Ai Apareceriam os resultados-

Pneus da marca pirelli:

- Aro 14

- Aro 15

- Aro 16

aii quando clicasse em aro 15 que listasse todos os Produtos que estivessem na coluna "nome_do_produto" que na "Linha" Fosse Pirelli, na coluna "Grupo" Fosse Aro 15

e Na coluna "Cor" com faixa branca.

não sei se estou sendo claro! Qualquer Coisa eu postoo de novo Mtoo Obrigadoo! :rolleyes:

rike_0 · Março 14, 2007

entaum.... tipo tenta isso aqui....

<%
'pega as variaveis pra saber que nivel você tá exibindo
linha=request.querystring("linha")
grupo=request.querystring("grupo")

strSQL = "SELECT distinct(linha) FROM TblistaPrecos group by linha"
set objLinha=objConn.Execute(strSQL)
if not objLinha.EOF then
    do while not objLinha.EOF
        %>
        <a href="sua_pagina.asp?linha=<%=objLinha("linha")%>">- <%=objLinha("linha")%></a>
        <%
        'testa se tem valor na variavel linha se tiver é que 
        'foi clicado no link entaum tem de exibir os grupos de dentro da linha
        if linha=objLinha("linha") then
            'faz a segunda consulta no banoc agora com o parametro linha para chamar os grupos
            strSQL2="Select distinct(grupo) from TblistaPrecos where linha="&linha&" group by grupo"
            set objGrupo=objConn.Execute(strSQL2)
            if not objGrupo.EOF then
                %>Pneus da Marca <%=linha%><%
                do while not objGrupo.EOF
                    'gera os links para os grupos
                    %>
                    <a href="sua_pagina.asp?linha=<%=objLinha("linha")%>&grupo=<%=objGrupo("grupo")%>">--<%=objGrupo("grupo")%></a>
                    <%
                    'testa se alguém clicou em algum link do grupo
                    if grupo=objGrupo("grupo") then
                        'se clicou faz a terceira consulta no banco e traz o nome_do_produto
                        strSQL3="Select nome_do_produto from TblistaPrecos where linha="&linha&" and grupo="&grupo&" order by nome_do_produto"
                        set objNP=objConn.Execute(strSQL3)
                        if not objNP.EOF then
                        %>Pneus da Marca <%=linha%> e <%=grupo%><%
                            do while not objNP.EOF
                                %>
                                ---<%=objNP("nome_do_produto")%><br />
                                <%
                                objNP.movenext
                            loop
                        end if
                        objNP.close()
                        set objNP=Nothing
                    end if
                    objGrupo.Movenext
                loop
            end if
            objGrupo.close()
            set objGrupo=nothing
        end if
    objLinha.movenext
    loop
end if
objLiha.close()
set objLinha=nothing
%>

isso vai retornar alguma coisa assim

-Pirelli

-Goddear

-Bs Cowei

se clicar em pirelli

-Pirelli

Penus da Marca Pirelli

--aro 14

--aro 15

-Goddear

-Bs Cowei

se clicar em aro 14

-Pirelli

--aro 14

Pneus da Marca Pirelli e aro14

---branco

---preto

---azul

--aro 15

-Goddear

-Bs Cowei

acho que é isso né........

ve se você acha algum erro e me avisa que a gente tenta de novo!!! ^^V

William ** ASP · Março 14, 2007

não Assim Qdoo Clica em Pirelli os resultados tem que exibir em outra pag

Tipoo só to prescisandoo do link""

Tipo Antes eu usava esse:

pesquisa.asp?grupo=PEÇAS PARA ARADO&linha=TRATORES MASSEY FERGUSON

só que como agora é dinamicoo prescisaa ser assim

pesquisa.asp?grupo=<%= rsCategoria("grupo")%>&linha= distinct(linha) EU SEI QUE ISSO EM VERMELHO Está erradoo mais eu tentei assim.

Queriaa Saber como que eu faço pra colocar nu lugar ondi está em vermelho pra listar todos os itens da coluna "linha" sem repetir

Editado Março 14, 2007 por William ** ASP

rike_0 · Março 14, 2007

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa está.......................

entaum faz assim

<%

'página 1

'gera os primerios menus com as marcas

strSQL = "SELECT distinct(linha) FROM TblistaPrecos group by linha"

set objLinha=objConn.Execute(strSQL)

if not objLinha.EOF

do while not objLinha.EOF

%>

<%

'beleza agora você tem o link para a próxima página onde você vai pegar a linha

objLinha.movenext

loop

end if

objLiha.close()

set objLinha=nothing

%>

<%

'página2.asp

'aqui você pega a informação passada

linha=request.querystring("linha")

strSQL= "SELECT distinct(grupo) FROM TblistaPrecos where linha="&linha&" group by grupo"

set objGrupo=objConn.Execute(strSQL)

if not objGrupo.EOF

%>

Pneus da marca <%=linha%>

<%

do while not objGrupo.EOF

%>

<a href="pesquisa.asp?linha=<%=linha%>&grupo=<%=objGrupo("grupo")%>"><%=objGrupo("grupo")%></a><br />

<%

objGrupo.movenext

loop

end if

objGrupo.close()

set objGrupo=Nothing

%>

acho que agora deu o que você queria....

William ** ASP · Março 14, 2007

Xo Ve!

Ahh Tahh li varias vezes agora intendi! :rolleyes:

só que dá eroo hora que clica no link vo mandar o link das 2 pag pra v6 verificarem! ;)

ESSA é A PRIMEIRA PÁG:

<%

Dim Conect, varCatProd, varLinhaProd, rsCategoria, strSQL, Numero_Registros

varCatProd = ""

If (Request("grupo") <> "") Then

varCatProd = Request.QueryString("grupo")

End If

varLinhaProd = ""

If (Request("grupos_lista_grupo") <> "") Then

varLinhaProd = Request.QueryString("grupos_lista_grupo")

End If

Call abre_conexao

strSQL = "SELECT distinct(grupos_lista_grupo) FROM TblistaPrecos group by grupos_lista_grupo"

Set rsCategoria = Conect.Execute(strSQL)

Numero_Registros = 0

While (Not rsCategoria.EOF)

Numero_Registros = Numero_Registros + 1

rsCategoria.MoveNext

Wend

rsCategoria.Requery

%>

<html>

<head>

<title>Venturoso</title>

</head>

<tr>

<p align="left" style="margin-left: 15; margin-right: 0; margin-top: 10"><font color="#000000" face="Arial, Helvetica, sans-serif"><strong><a href="java script:history.go(-1)">Voltar</a></strong></font></p>

 Nome do Produto:</font> </strong></td>

</tr>

<%While (Not rsCategoria.EOF)%>

</tr>

<%

rsCategoria.MoveNext

Wend

%>

</table>

</form></tr>

</table>

</div>

</body>

</html>

<%

rsCategoria.Close

Call fecha_conexao

Set rsCategoria = Nothing

%>

ESSA é A SEGUNDA

<%

Dim Conect, varCatProd, varLinhaProd, rsCategoria, strSQL, Numero_Registros

varCatProd = ""

If (Request("linha") <> "") Then

varCatProd = Request.QueryString("linha")

End If

varLinhaProd = ""

If (Request("grupos_lista_grupo") <> "") Then

varLinhaProd = Request.QueryString("grupos_lista_grupo")

End If

Call abre_conexao

strSQL= "SELECT distinct(linha) FROM TblistaPrecos where grupos_lista_grupo" &varLinhaProd& " group by linha"

Set rsCategoria = Conect.Execute(strSQL)

Numero_Registros = 0

While (Not rsCategoria.EOF)

Numero_Registros = Numero_Registros + 1

rsCategoria.MoveNext

Wend

rsCategoria.Requery

%>

<html>

<head>

<title>Venturoso</title>

</head>

<tr>

<p align="left" style="margin-left: 15; margin-right: 0; margin-top: 10"><font color="#000000" face="Arial, Helvetica, sans-serif"><strong><a href="java script:history.go(-1)">Voltar</a></strong></font></p>

 Nome do Produto:</font> </strong></td>

</tr>

<%While (Not rsCategoria.EOF)%>

</tr>

<%

rsCategoria.MoveNext

Wend

%>

</table>

</form></tr>

</table>

</div>

</body>

</html>

<%

rsCategoria.Close

Call fecha_conexao

Set rsCategoria = Nothing

%>

Help! :o

Editado Março 14, 2007 por William ** ASP

rike_0 · Março 14, 2007

mano a pagina 1 chama a pagina 2???

se sim onde você passa o parametro linha uqe você pega na pagina 2???

William ** ASP · Março 14, 2007

mano a pagina 1 chama a pagina 2???
se sim onde você passa o parametro linha uqe você pega na pagina 2???

Akyy

Eu Acho que é isso que c está perg num é?

rike_0 · Março 14, 2007

mano a pagina 1 chama a pagina 2???
se sim onde você passa o parametro linha uqe você pega na pagina 2???
Akyy
<td width="512" height="44" bgcolor="#FFFFFF" class="texto"><strong>  <a href="resultado.asp?grupos_lista_grupo=<%=rsCategoria("grupos_lista_grupo")%>"><%=rsCategoria("grupos_lista_grupo")%></a></strong></td>
Eu Acho que é isso que c está perg num é?

entaum cara... o nome que você tem que colcoar no request é esse aqui grupos_lista_grupo e não linha como tá lá na outra página entendeu??

William ** ASP · Março 14, 2007

não

você Num Pode Faze As Modificação nu codigoo e posta o certo já?? :huh:

rike_0 · Março 14, 2007

tenta assim entaum.........

-------------------------------------------------------------------------------------

ESSA é A PRIMEIRA PÁG:

<%

Dim Conect, varCatProd, varLinhaProd, rsCategoria, strSQL, Numero_Registros

varCatProd = ""

If (Request("grupo") <> "") Then

varCatProd = Request.QueryString("grupo")

End If

varLinhaProd = ""

If (Request("grupos_lista_grupo") <> "") Then

varLinhaProd = Request.QueryString("grupos_lista_grupo")

End If

Call abre_conexao

strSQL = "SELECT distinct(grupos_lista_grupo) FROM TblistaPrecos group by grupos_lista_grupo"

Set rsCategoria = Conect.Execute(strSQL)

Numero_Registros = 0

While (Not rsCategoria.EOF)

Numero_Registros = Numero_Registros + 1

rsCategoria.MoveNext

Wend

rsCategoria.Requery

%>

<html>

<head>

<title>Venturoso</title>

</head>

<tr>

<p align="left" style="margin-left: 15; margin-right: 0; margin-top: 10"><font color="#000000" face="Arial, Helvetica, sans-serif"><strong><a href="java script:history.go(-1)">Voltar</a></strong></font></p>

 Nome do Produto:</font> </strong></td>

</tr>

<%While (Not rsCategoria.EOF)%>

</tr>

<%

rsCategoria.MoveNext

Wend

%>

</table>

</form></tr>

</table>

</div>

</body>

</html>

<%

rsCategoria.Close

Call fecha_conexao

Set rsCategoria = Nothing

%>

ESSA é A SEGUNDA

---------------------------------------------------------------------------------

<%

Dim Conect, varCatProd, varLinhaProd, rsCategoria, strSQL, Numero_Registros

'num precisa disso aqui porque lá em baixo você vai redirecionar pra terceira e última página.... que vai fazer a consulta usando linah e grupo......

'varCatProd = ""

'If (Request("linha") <> "") Then

'varCatProd = Request.QueryString("linha")

'End If

'disso precisa porque isso foi passado pelo link.....

varLinhaProd = ""

If (Request("grupos_lista_grupo") <> "") Then

varLinhaProd = Request.QueryString("grupos_lista_grupo")

End If

Call abre_conexao

'tava faltando um igual aqui................................................V

strSQL= "SELECT distinct(linha) FROM TblistaPrecos where grupos_lista_grupo=" &varLinhaProd& " group by linha"

Set rsCategoria = Conect.Execute(strSQL)

Numero_Registros = 0

While (Not rsCategoria.EOF)

Numero_Registros = Numero_Registros + 1

rsCategoria.MoveNext

Wend

rsCategoria.Requery

%>

<html>

<head>

<title>Venturoso</title>

</head>

<tr>

<p align="left" style="margin-left: 15; margin-right: 0; margin-top: 10"><font color="#000000" face="Arial, Helvetica, sans-serif"><strong><a href="java script:history.go(-1)">Voltar</a></strong></font></p>

 Nome do Produto:</font> </strong></td>

</tr>

<%While (Not rsCategoria.EOF)%>

<td width="512" height="44" bgcolor="#FFFFFF" class="texto"><strong>  <a href="resultado2.asp?grupos_lista_grupo=<%=rsCategoria("grupos_lista_grupo")%>&linha=<%=rsCategoria("linha")%>"></a><%=rsCategoria("linha")%></strong></td>

</tr>

<%

rsCategoria.MoveNext

Wend

%>

</table>

</form></tr>

</table>

</div>

</body>

</html>

<%

rsCategoria.Close

Call fecha_conexao

Set rsCategoria = Nothing

%>

William ** ASP · Março 14, 2007

Ebaa Aee Uma Esperançaa A Mais!

Masiii andaa deu problemaa Tipo na primeira pag tdoo okey! Mais Qdoo Exibe A Segunda aparece isso

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/maskot/resultado.asp, line 56

Ebaa Aee Uma Esperançaa A Mais!
Masiii andaa deu problemaa Tipo na primeira pag tdoo okey! Mais Qdoo Exibe A Segunda aparece isso
ADODB.Recordset error '800a0cc1'
Item cannot be found in the collection corresponding to the requested name or ordinal.
/maskot/resultado.asp, line 56

Aee o que tava erradoo era o link! tirei o link exibiuu tdos os Produtos :lol:

Mais Agora eu presciso do lik pra colokaa aqui pra aparecer já os resultados só que envolvendo 3 colunas!

Tipo grupos_lista_grupo, Linha, grupo

William ** ASP · Março 15, 2007

:P Melhor Reformulando a pergunta ""

Oh Eu Prescizoo do ultimoo Link!

Que liste todos os nome dos produtos existentes na coluna "pro_descr" Que pertença ao "grupo" "linha" e "grupos_lista_grupo" Passado intendeu/??

Mtoo Obrigaduu v6s istaumm me ajudaandoo mtoo²

Abrzz

rike_0 · Março 15, 2007

na última página você coloca o qrequest dos tres

grupo=request.querystring("grupo")

linha=request.querystring("linha")

grupos_lista_grupo=request.querystring("grupos_lista_grupo")

aí você monta a query

sql="Select pro_desc from sua_tab where grupo='"&grupo&"' and linha='"&linha&"' and grupos_lista_grupo='"&grupos_lista_grupo&"'"

tendeu???

William ** ASP · Março 15, 2007

Como fazer essa eu intendi ;)

Mas em uma pág antes dessa eu tenho que fazer um link certo?? :blink:

aii o que eu fiz ficou assim!

<a href="grupo.asp?grupos_lista_grupo=<%=rsCategoria("grupos_lista_grupo")%>&linha=<%=rsCategoria("linha")%>&grupo=<%=rsCategoria("grupo")%>">

só que quando vai exibir a pag que tem o link acima no lugar dele aparece isso

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/maskot/linha.asp, line 56

a select dessa pag (que está o link) que você passou está essa .

varLinhaProd = ""

If (Request("grupos_lista_grupo") <> "") Then

varLinhaProd = Request.QueryString("grupos_lista_grupo")

End If

Call abre_conexao

strSQL= "SELECT distinct(linha) FROM TblistaPrecos where grupos_lista_grupo=" &varLinhaProd& " group by linha"

Help-me

Ahhhh e se eu tira o link os produto aparece normal!

Vamus Ver c assim melhora a explicação!

aí Galera To Fikando Preocupado Com isuu

Ohh To Fazendoo um site com buska em bco de dados acces

a primeira pag realiza uma select exibindo os resultados da coluna "grupos_lista_grupo"

O Link de cada produto é essi <a href="grupo.asp?grupos_lista_grupo=<%=rsCategoria("grupos_lista_grupo")%>"><%=rsCategoria("grupos_lista_grupo")%></a>

Blzz A Select da Segundaaa Pág é essa

strSQL= "SELECT distinct(grupo) FROM TblistaPrecos where grupos_lista_grupo=" &varLinhaProd& " group by grupo"

Se Fosse só ateh aqui a pag estaria tdoo beim porque funciona e exibe todos os grupos cerinhos.

ai que pinta o problema. Em Cima desses resultados eu gostaria de fazer outra select Para listar os produtos da coluna "linha" relacionados com a primeira i a segunda passados que o visitante escolheu

aii to usando essi link:

<a href="linha.asp?grupos_lista_grupo=<%=rsCategoria("grupos_lista_grupo")%>&grupo=<%=rsCategoria("grupo")%>"><%=rsCategoria("linha")%></a>

Para ir pra uma "3" pág que a select seria:

strSQL= "SELECT distinct(linha) FROM TblistaPrecos WHERE grupos_lista_grupo = '" & varLinhaProd & "' and grupo = '" & varCatProd & "'"

só que nem dá pra mim saber porque logo na "2º" Página quando eu coloko o link que está em verde e já exibe o seguinte erro

ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/maskot/grupo.asp, line 48

Se Eu não Colokoo o link exibe todos os grupos certinho!

Help-Me

Editado Março 15, 2007 por William ** ASP

rike_0 · Março 15, 2007

algum campo tá com nome errado.... e ele num achando o campo no banco de dados... confira o nome dos campos.. tipo ve se existe um cmapo linha mesmo e um campo grupo e por ai vai.....

William ** ASP · Março 15, 2007

não não, Exitem Todos Sim

E o que eu to axando estranho tbeim é que pra exibir o resultadoo uso:

<%=rsCategoria("linha")%>

ai no resultado fica o que está no banco tipo

Linha aro 15

Mais c eu coloca pra exibir a marca junto <%=rsCategoria("grupos_lista_grupo")%> dá o mesmo erro!

fica Assim

Linha aro 15 ADODB.Recordset error '800a0cc1'

Item cannot be found in the collection corresponding to the requested name or ordinal.

/maskot/linha.asp, line 51

E só Exibe o primeiro resultado

Sera que na select num tem que coloka alguma coisa pra lê as outras colunas?

Editado Março 15, 2007 por William ** ASP

rike_0 · Março 15, 2007

tem sim... no select você coloca os nomes de todos os campso que você precisa...... nem me liguei nisso ó...

William ** ASP · Março 16, 2007

Ahh não "/

está dandoo vontade de abandonaa já!

Ohhh

A Primeira pág que faz o select da coluna "grupos_lista_grupo" está okey

A Segunda que lista todos os itens da coluna"grupos" relacionados com a coluna "grupos_lista_grupo" que o visitante selecionou tbeim está okey!

aí o link que chamaria a terceira ficou assim:

<a href="linha.asp?grupos_lista_grupo=<%=rsCategoria("grupos_lista_grupo")%>&grupo=<%=rsCategoria("grupo")%>">

A Select da terceira pagina:

varLinhaProd = ""

If (Request("grupos_lista_grupo") <> "") Then

varLinhaProd = Request.QueryString("grupos_lista_grupo")

End If

varCatProd = ""

If (Request("grupo") <> "") Then

varCatProd = Request.QueryString("grupo")

End If

Call abre_conexao

strSQL= "SELECT distinct(linha), grupos_lista_grupo, grupo FROM TblistaPrecos where grupos_lista_grupo='"&varLinhaProd&"' and grupo='"&varCatProd&"'"

Pelo Amor di Deus, o que está errado com isso!

William ** ASP · Março 19, 2007

Help-Me

Entrar

Listar Tdos Os Itens Duma Colunaa Na Buska Em Asp

Pergunta

Link para o comentário

Compartilhar em outros sites

20 respostass a esta questão

Posts Recomendados

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Link para o comentário

Compartilhar em outros sites

Participe da discussão

Estatísticas dos Fóruns