Imprimir resultado em mais de uma linha

Question

 

Bom dia pessoal,

 

Tenho a seguinte tabela no banco de dados:
teste.mdb

Codigo	Nome
1	Joao
2	Maria
3	Pedro
4	Joaquim
5	Eder
6	Francisca
7	Ana
8	Claudia
9	Patricia
10	Aline
11	Carlos
12	Fernando
13	Luiz
14	Henrique
15	Joyce

 

Gostaria de que quando for imprimir dentro da tabela(html) ele dividisse em linhas, como mostro abaixo:

 

Nomes
Joao	Maria	Pedro	Joaquim	Eder
Francisca	Ana	Claudia	Patricia	Aline
Carlos	Fernando	Luiz	Henrique	Joyce

 

No exemplo, coloquei manualmente 5 nomes por linha, ficando assim 3 linhas.

 

Como posso fazer isso. Estou desenvolvendo em ASP com banco ACCESS.

 

Fico no aguardo,

Answer 1

Eder faça dois loops assim

 

<%

Dim ncoluna : ncoluna = 5

Dim cont : cont = 1

 

Do while no recordset.EOF

   Response.Write("<tr>Linha:")

        Do while cont <= ncoluna

              if not recordset.EOF then

         Response.Write("<td>" & recordset("valor") & "</td>")

                   recordset.movenext

              end         

        Loop

   Response.Write("</tr>">

   cont = 1

Loop

%>

 

Bom faça um teste pra ver o que ocorre, não teste então provavelmente deve ocorrer algum erro.

 

Abraços

 

Estevam

      

 

Answer 2

Faz assim cara:

 

Cria um divConteudo:

 

<div id="divConteudo">

<!--aqui vai o codigo asp-->

<%

Dim ncoluna : ncoluna = 5

Dim cont : cont = 1

 

Do while no recordset.EOF

        Do while cont <= ncoluna

              if not recordset.EOF then

         Response.Write("<div class='classItem'>" & recordset("valor") & "</div>")

                   recordset.movenext

              end         

        Loop

   cont = 1

Loop

%>

</div>

 

Aplique esse estilo na sua pagina:

 

<style type="text/css">
#divConteudo
{
 width: 500px; /*o divConteudo deve conter uma largura fixa que caiba (no meu caso 5 itens por linha)*/
}

.classItem
{
 width: 99px; /*cada div com o item deve conter uma largura fixa*/

 float: left; /*Toda vez que o div com item atingir a margem direita do divConteudo, o proximo div 

                  é automaticamente deslocado para a proxima linha, e assim por diante                 */

 vertical-align: top;

 text-align:left;
}

</style>

 

Answer 3

Bom dia Pessoal,

 

Desculpem pela demora, é que estou com um problema grave que coloquei em outro post... estava dando atenção à ele. mas como ninguém respondeu ainda... voltei aqui para testar.

Fiz os testes, mas não funcionou... não dá nenhum erro, mas também não mostra nada.

 

Olhem como eu fiz:

 

Code Snippet

<%

    '###Verifica o Fabricante do veículo.
    Set cmdVerificaFabrica = Server.CreateObject("ADODB.Command")
    cmdVerificaFabrica.ActiveConnection = DataVeiculos
    cmdVerificaFabrica.CommandText = "SELECT * FROM TBLModelos"
    cmdVerificaFabrica.CommandType = 1
    Set rsVerificaFabrica = Server.CreateObject("ADODB.Recordset")
    rsVerificaFabrica.Open cmdVerificaFabrica, , 3, 3 

Dim ncoluna : ncoluna = 5

Dim cont : cont = 1
 

Do while no rsVerificaFabrica.EOF

   Response.Write("<tr>")

        Do while cont <= ncoluna

              if not rsVerificaFabrica.EOF then

         Response.Write("<td>" & rsVerificaFabrica("NomeVersao") & "</td>")

                   rsVerificaFabrica.movenext

              end if    

        Loop

   Response.Write("</tr>")

   cont = 1

Loop

%>

 

 

Fico no aguardo,

Answer 4

Eder tente com esse:

 

Code Snippet

<%

    '###Verifica o Fabricante do veículo.
    Set cmdVerificaFabrica = Server.CreateObject("ADODB.Command")
    cmdVerificaFabrica.ActiveConnection = DataVeiculos
    cmdVerificaFabrica.CommandText = "SELECT * FROM TBLModelos"
    cmdVerificaFabrica.CommandType = 1
    Set rsVerificaFabrica = Server.CreateObject("ADODB.Recordset")
    rsVerificaFabrica.Open cmdVerificaFabrica, , 3, 3 

Dim ncoluna : ncoluna = 5

Dim cont : cont = 1
 

Do while not rsVerificaFabrica.EOF

   Response.Write("<tr>")

        Do while cont <= ncoluna

              if not rsVerificaFabrica.EOF then

                   Response.Write("<td>" & rsVerificaFabrica("NomeVersao") & "</td>")

                   rsVerificaFabrica.movenext

              end if    

        Loop

   Response.Write("</tr>")

   cont = 1

Loop

%>

 

 

Abraços

 

Estevam

Answer 5

Bom dia Estevam,

 

Tentei do jeito que você passou mas não rolou... ele entrou em loop... deixando a máquina com 100% de processamento.

 

Tem idéia do que possa ser?

Answer 6

Eder, tente com o código abaixo

 

Code Snippet

<%

    '###Verifica o Fabricante do veículo.
    Set cmdVerificaFabrica = Server.CreateObject("ADODB.Command")
    cmdVerificaFabrica.ActiveConnection = DataVeiculos
    cmdVerificaFabrica.CommandText = "SELECT * FROM TBLModelos"
    cmdVerificaFabrica.CommandType = 1
    Set rsVerificaFabrica = Server.CreateObject("ADODB.Recordset")
    rsVerificaFabrica.Open cmdVerificaFabrica, , 3, 3 

Dim ncoluna : ncoluna = 5

Dim cont : cont = 1
 

Do while not rsVerificaFabrica.EOF

   Response.Write("<tr>")

        Do while cont <= ncoluna

              if not rsVerificaFabrica.EOF then

                   Response.Write("<td>" & rsVerificaFabrica("NomeVersao") & "</td>")

                   rsVerificaFabrica.movenext             

              end if

              cont = cont + 1   

        Loop

   Response.Write("</tr>")

   cont = 1

Loop

%>

 

 

Abraços

 

Estevam

Answer 7

Muito obrigado Estevam...

 

Funcionou... do jeitinho que eu preciso... valeu!!!!!!!!!!!!!!!!