o loop nunca foi tão dificicl

[meirelles 0]

SAUDAÇÕES GALERA!

 

TENHU UMA TABELA CLASSE E OUTRA TABELA CATEGORIA

 

EU FAÇO UM LOOP PRA TRAZER TODAS AS CLASSES, EXIBINDO EM COLUNAS DE 3 : VEJA BAIXO

 

<%SQL = "SELECT CLASSE FROM TBCLASSE"SET RS = CONN.EXECUTE(SQL)If rs.EOF ThenResponse.Write "Nenhum registro encontrado."Else%><table border=0 width=100% align=center cellpadding="3" cellspacing="3"> <tr> <%Dim contador contador = 1 maxcol = 3	'<------------------ numero de registros por colunasDO While Not rs.EOF and x < rs.PageSize x = x + 1 if contador <= maxcol then %> <td ALIGN=CENTER><font size="2" color="#996600" face="Verdana, Arial, Helvetica, sans-serif"><b><%RESPONSE.WRITE RS("CLASSE")%></font></td><%contador = contador + 1else%> </tr> <tr> <td ALIGN=CENTER><font size="2" color="#996600" face="Verdana, Arial, Helvetica, sans-serif"><b><%RESPONSE.WRITE RS("CLASSE")%></font></td> <% contador = 2 end if rs.movenext loop 'completa as colunas do while contador <= maxcol %> <%contador = contador + 1 loopEND IF%> </tr> </table>

AGORA EU QUERO FAZER O SEGUINTE, CADA CLASSE TEM SUAS CATEGORIAS, TERIA QUE MOSTRAR ABAIXO DE CLASSE SUAS DETERMINDAS CATEGORIAS. MINHA DUVIDA É A SEGUINTE: COMO ENCAIXAR UM LOOP DENTRO DO LOOP QUE JÁ EXISTE, É POSSIVEL, COMO FUNCIONA ESSA LOGICA?

 

VALEW GALERA!!!

[explore 3]

Relaciona a tabela Categoria com a Classe em seu Select!

[meirelles 0]

relacionado está, mas como eu faço pra mostrar os dados, é esse o problema, tipo, eu quero ao mesmo tempo fazer um loop mostrando todas as classes e abaixo de classe mostrando suas categorias, issu é q eu não sei fazer!!!

[mx loco 1]

No caso o relacionamento teria que ser feito direto no teu SQL.ficando assim.SELECT * FROM TBCLASSE,TBCATEGORIA Where TBCLASSE.CAMPORELACIONADO=TBCATEGORIA.CAMPORELACIONADO.Onde campo relacionado, é o campo de relacionamento entre as duas tabelas.

[meirelles 0]

TD BEM, PODERIA FAZER TMB USANDO INNER JOIN, MAS É O SEGUINTE, NO CASO, EU TENHU UMA CLASSE E VÁRIAS CATEGORIASCLASSE CARRO * CATEGORIA CORSA * CATEGORIA VECTRA * CATEGORIA CELTADESTA FORMA ACIMA QUE EU QUERO EXIBIR, MAS NADA ME VEM A MENTE DE COMO POSSO FAZER ISSU!

[mx loco 1]

você esta querendo mostrar os registros em colunas e linhas?

[meirelles 0]

COMO NO PRIMEIRO POSTEU COLOCO 3 COLUNAS E LINHAS SÃO DE ACORDO COM O NUMEROS DE REGISTROSA EXIBIÇÃO FICA ASSIM:-----------------------------CLASSE 1 * CATEGORIA A * CATEGORIA B * CATEGORIA C * CATEGORIA D------------------------------E ASSIM POR DIANTE , DIVIDIDO EM 3 COLUNAS!

[explore 3]

Cara entaum tenta usar o UNION e depois manda Mostrar!Tipo:SQL = "SELECT CLASSE_CARRO, CLASSE_MOTO FROM TBCLASSE UNION SELECT CATEGORIA_CARRO, CATEGORIA_MOTO FROM TBCATEGORIA"Depois manda listar dentro do loop:<%RESPONSE.WRITE (RS("CLASSE_CARRO") & " <br>")RESPONSE.WRITE (RS("CATEGORIA_CARRO") & " <hr>")RESPONSE.WRITE (RS("CLASSE_MOTO") & " <br>")RESPONSE.WRITE (RS("CATEGORIA_MOTO") & " <hr>")%>

[mx loco 1]

Cara, testa ai pra ver se funfa, altere de acordo com a necessidade.Obs.: naum testei, mas v se intende a logica.

<%'Selecionando a ClasseSQLClasse = "SELECT CLASSE FROM TBCLASSE"SET RSClasse = CONN.EXECUTE(SQLClasse)'Verifica se tem alguma classeIf RSClasse.EOF ThenResponse.Write "Nenhum registro encontrado."'caso tenha, mostra o resultado abaixoElse response.write "<table width=""310"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">" while NOT RSClasse.EOF response.write "<tr>" for i = 1 to 3 'numero de colunas if RSClasse.EOF = True then exit for end if response.Write "<td>"%> <table width="158" border="0" cellspacing="0" cellpadding="0"> <tr> <td><%=RSClasse("Classe")'Exibe a classe correspondente%></td> </tr><%'seleciona a categoria de acordo com o codigo da classeSQLCategoria = "SELECT CATEGORIA,CODCLASSE FROM TBCATEGORIA WHERE CODCLASSE="&RSClasse("CODCLASSE")SET RSCategoria = CONN.EXECUTE(SQLCategoria)While Not RSCategoria.eof'loop para exibir as categoria da classeWHILE NOT RSCategoria.EOF%> <tr> <td><%=RSCategoria("Categoria")%></td> </tr><%RSCategoria.movenextWend%> </table><% response.Write "</td>" RSClasse.MoveNext next response.write "</tr>" Wend response.write "</table>"%>

[meirelles 0]

caraca, q coisa loka, vou testar!!! mas num entendi nada huahauauha!!!!tá ficando sinistro heim cara haha!!!SAQUEI QUAL FOI SUA IDÉIA, FAZER DOIS RECORDSET COM NOMES DIFERENTES... SERIA ISSO?

[mx loco 1]

Kara testei aki com uma tabela minha aki rapidinho e vi que tinha alguns erros, tipo algo passando e algo faltando.ta ai logo abaixo com as correções e comentada.

<%'Selecionando a ClasseSQLClasse = "SELECT CLASSE FROM TBCLASSE"'executa a sql acimaSET RSClasse = CONN.EXECUTE(SQLClasse)'Verifica se tem alguma classeIf RSClasse.EOF Then'escreve mensagem caso nada seja encontradoResponse.Write "Nenhum registro encontrado."'caso tenha, mostra o resultado abaixoElse' escreve o cabacalho da tabela response.write "<table width=""310"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"'loop poara iniciar uma linha da tabela while NOT RSClasse.EOF response.write "<tr>"'loop para listas as colunas for i = 1 to 3 'numero de colunas'caso os registros cheguem ao fim, sai do loop if RSClasse.EOF = True then exit for end if'eswcreve uma coluna, ou celula response.Write "<td>"%><!-- tablea para listas os registros --> <table width="158" border="0" cellspacing="0" cellpadding="0"> <tr> <td><%=RSClasse("Classe")%></td> </tr><%'seleciona a categoria de acordo com o codigo da classeSQLCategoria = "SELECT CATEGORIA,CODCLASSE FROM TBCATEGORIA WHERE CODCLASSE="&RSClasse("CODCLASSE")'executa a sql acimaSET RSCategoria = CONN.EXECUTE(SQLCategoria)'loop para exibir as categoria da classeWHILE NOT RSCategoria.EOF%> <tr> <td><%=RSCategoria("Categoria")%></td> </tr><%RSCategoria.movenextWend%> </table><% response.Write "</td>" RSClasse.MoveNext next response.write "</tr>" Wend response.write "</table>"End If%>

Vamu v se agora sai... hehehe

[meirelles 0]

AE MLK, AGORA FOI, PARA COM ESSA POHHA DE PROGRAMAR UM POUKO HEIM, VAI TE DEIXAR MALUCO HUAHAUHA, FUNCIONOU AGORA DÁ PRA IMPLEMENTAR. SE LIGA, EU NUM SABIA Q O RECORDSET PODIA TER VARIOS NOMES, MEUS CODIGOS FICAVAM SEMPRE LIMITADOS, AGORA você ABRIU MINHA MENTE...TU TÁ MANDANDO MUITO BEM LK!!!PARABÉNS!GRATO!

[mx loco 1]

AE MLK, AGORA FOI, PARA COM ESSA POHHA DE PROGRAMAR UM POUKO HEIM, VAI TE DEIXAR MALUCO HUAHAUHA, FUNCIONOU AGORA DÁ PRA IMPLEMENTAR. SE LIGA, EU NUM SABIA Q O RECORDSET PODIA TER VARIOS NOMES, MEUS CODIGOS FICAVAM SEMPRE LIMITADOS, AGORA você ABRIU MINHA MENTE...TU TÁ MANDANDO MUITO BEM LK!!!PARABÉNS!GRATO!

thanks http://forum.imasters.com.br/public/style_emoticons/default/blush.gif fico timido hehehe.você pode definir quantos records sets que quiseres com nomes diferentes, geralmente se da o nome de acordo com o que você for pegar no BD. http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif Que bom que deu certo