Usuário com melhor resposta
Imprimir resultado em mais de uma linha

Pergunta
-
Bom dia pessoal,
Tenho a seguinte tabela no banco de dados:
teste.mdbCodigo 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,
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, 3Dim 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
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
-
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>
-
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, 3Dim 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
%>
-
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, 3Dim 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
-
-
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, 3Dim 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
-