none
Imprimir resultado em mais de uma linha RRS feed

  • Pergunta

  •  

    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,

    terça-feira, 17 de junho de 2008 12:44

Respostas

  • 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

    quinta-feira, 26 de junho de 2008 16:34

Todas as Respostas

  • 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

          

     

    terça-feira, 17 de junho de 2008 20:15
  • 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>

     

    terça-feira, 17 de junho de 2008 22:52
  • 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,
    quarta-feira, 25 de junho de 2008 14:57
  • 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

    quarta-feira, 25 de junho de 2008 15:05
  • 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?

    quinta-feira, 26 de junho de 2008 13:51
  • 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

    quinta-feira, 26 de junho de 2008 16:34
  • Muito obrigado Estevam...

     

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

    quinta-feira, 26 de junho de 2008 16:44