Listagem em duas colunas

kania · Novembro 11, 2004

Pessaol, como faço para listar resultados de um BD dentro de uma tabela mas em duas colunas. tenho um BD que tem 117 registro até o momento, queria saber como faço para dividr ele para que seja listado em 2 ou até 3 colunas dentro de uma tabela se for ocaso, no exemplo abixo o cara usou 3 colunas.

Ai vai um EX.: CLIQUE AQUI, aqui esta com imagens, mas acredito que deve ser igual para texo.

eu fiz assim, mas não aparece nada, nehum registro.

<-------INICIO DO CÓDIGO-------->

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>

<%

Dim RsBairro

Dim RsBairro_numRows

Set RsBairro = Server.CreateObject("ADODB.Recordset")

RsBairro.ActiveConnection = MM_conBairro_STRING

RsBairro.Source = "SELECT * FROM CategoriaServicos ORDER BY categoria ASC"

RsBairro.CursorType = 0

RsBairro.CursorLocation = 2

RsBairro.LockType = 1

RsBairro.Open()

RsBairro_numRows = 0

if (RsBairro.eof) then

%>

Não tem nada pra listar

<%

else

total = RsBairro.recordcount

x = 0

do while x < total

categoria = RsBairro("categoria")

%>

<tr>

<td height="18" align="center"><font size="1" face="Verdana">Escolha a Catgeoria</font></td>

</tr>

<tr>

</tr>

<tr>

</tr>

</table>

<%

x = x + 1

RsBairro.movenext

loop

end if

RsBairro.close

%>

<-------FIM DO CÓDIGO-------->

se alguem souber... http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Mário Monteiro · Novembro 11, 2004

você terá que mudar a montagem da tabela utilizando um contador auxiliar pra contar o numero de colunas a ser usadas

kania · Novembro 11, 2004

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Pois é, e como eu faço isto ? :wacko:

:blink:

Mário Monteiro · Novembro 11, 2004

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Pois é, e como eu faço isto ? :wacko:

:blink:

Cara ta ai um exemplo

na variavel colunas poe o numero de colunas que você quer

a sua tabela você poe onde ta indicado que mostrará o conteudo dela

no lugar de vazio poe algo indicando que não tinha nada pra ser exibido lá ou simplesmente

[tr][/tr][tr][/tr]

ASP

<%

total = RsBairro.recordcount

Colunas = 3

%>

<table>

<%

X = 1

Y = 0

WHILE X <= total

%>

<%IF Y = 0 THEN%><tr><%END IF%>

<%IF X < total THEN%>

<td>sua tabela aqui</td>

<%ELSE%>

<td>sua tabela aqui</td>

<%FOR I = total mod Colunas TO Colunas - 1%>

<td>vazio</td>

<%NEXT%>

<%END IF%>

<%IF Y = Colunas THEN%></tr><%END IF%>

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

WEND

%>

</table>

kania · Novembro 11, 2004

Fera é assim, cheguei amontar um script que deu certo, é este que esta abaixo:

observe que ele tem apenas 2 colunas.

CÓDIGO QUE DEU CERTO

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT"%>

<%

Dim RsBairro

Dim RsBairro_numRows

Set RsBairro = Server.CreateObject("ADODB.Recordset")

RsBairro.ActiveConnection = MM_conBairro_STRING

RsBairro.Source = "SELECT * FROM CategoriaServicos ORDER BY categoria ASC"

RsBairro.CursorType = 0

RsBairro.CursorLocation = 2

RsBairro.LockType = 1

RsBairro.Open()

RsBairro_numRows = 0

%>

<%

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<%

Do while NOT Rsbairro.EOF

ColNum = 1

Do while ColNum < 4

%>

<tr>

</a>

<%

if NOT Rsbairro.EOF then

Rsbairro.MoveNext

end if

ColNum = ColNum + 1

if NOT Rsbairro.EOF then

%>

</div>

</a>

<%

end if

ColNum = ColNum + 1

Loop

%>

<%

if NOT Rsbairro.EOF then

Rsbairro.MoveNext

end if

Loop

%>

</div></table>

</div>

<%

RsBairro.Close()

Set RsBairro = Nothing

%>

[/tr]

Ja neste código tentei colocar em 3 colunas e não sei porque ele da erro:

CÓDIGO QUE NÃO DEU CERTO

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT"%>

<%

Dim RsBairro

Dim RsBairro_numRows

Set RsBairro = Server.CreateObject("ADODB.Recordset")

RsBairro.ActiveConnection = MM_conBairro_STRING

RsBairro.Source = "SELECT * FROM CategoriaServicos ORDER BY categoria ASC"

RsBairro.CursorType = 0

RsBairro.CursorLocation = 2

RsBairro.LockType = 1

RsBairro.Open()

RsBairro_numRows = 0

%>

<%

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<%

Do while NOT Rsbairro.EOF

ColNum = 1

Do while ColNum < 4

%>

<tr>

</a>

<%

if NOT Rsbairro.EOF then

Rsbairro.MoveNext

end if

ColNum = ColNum + 1

if NOT Rsbairro.EOF then

%>

</div>

</a>

<%

if NOT Rsbairro.EOF then

Rsbairro.MoveNext

end if

ColNum = ColNum + 1

if NOT Rsbairro.EOF then

%>

</div>

</a>

<%

end if

ColNum = ColNum + 1

Loop

%>

<%

if NOT Rsbairro.EOF then

Rsbairro.MoveNext

end if

Loop

%>

</div></table>

</div>

<%

RsBairro.Close()

Set RsBairro = Nothing

%>

[/tr]

Ai eu não sei oque pode ser, porque com duas colunas ele funciona beleza, mas com ~3 não vai, não sei se estou colocando algum comando a mais ou a menos, o erro que esta dando é o seguinte:

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A040E)

'loop' sem 'do'

/categorias/TMPowvm571844.asp, line 64

Loop

Sabe deus oque esta ocorrendo. http://forum.imasters.com.br/public/style_emoticons/default/blush.gif :wacko:

kania · Novembro 11, 2004

:wacko:

Chiiii, eu falei que dava dando certo o código para 2 colunas mas

não ta dando muito certo naõ, agora que eu vi que o mesmo esta repetindo as categorias.

Vejam a imagem abaixo, foi retirada da lista de categorias, algumas das categorias eu marquei mas tem mais se vocês verem

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

Imagem Postada

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

Agora o problema aumentou, o porque que esta repetindo algumas categorias do BD ?

:wacko:

kania · Novembro 12, 2004

http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

Bom Quanto a questão de duplicar os nomes eu ja consegui resolver o problema estava entre a linha 28 e 33

ASP [/tr][tr]<%

Do while NOT Rsbairro.EOF

ColNum = 1

Do while ColNum < 3

%>

[/tr]

A linha 31 estava com nº 4 pq eu queria 3 colunas e esqueci de mudar a variavel para 3 para utilizar apenas 2 colunas, este foi resolvido, mas ainda estou empacado na questão de colocar mais 1 coluna, se alguem achar o erro antes que eu manda ai. :rolleyes:

Mário Monteiro · Novembro 12, 2004

cara te passei um codigo que você só precisa colocar o conteudo no lugar certo, ou seja , o que você quer que apareça poe onde tá escrito "sua tabela aqui" e muda o numero de colunas na variavel, não precisa fazer mais nada, pois funciona e ainda preenche as ultimas celas que ficariam sem conteudo.Testa lá...

<% AsP %> · Novembro 12, 2004

ola muito util este exemplo Mario, mas comigo esta dando um erro de VBS você pod me ajudar ... apenas setei a muinha conexaoo que acontece... ele aparece q na esta fazendo o loop.. você pod dar uma olhada.<%@LANGUAGE="VBSCRIPT"%><%Dim RsBairro,RsBairro_numRows Set RsBairro = Server.CreateObject("ADODB.Recordset") AbreConexao() RsBairro = conexao.execute("SELECT * FROM PRODUTO") Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function%> <div align="center"> <table border="0" cellspacing="3" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#000080"><% Do While Not Rsbairro.EOF ColNum = 1 Do while ColNum < 4%> <tr><TD ALIGN=center valign="top"> <div align="left"><a href="view.asp?<%= MM_keepBoth & MM_joinChar(MM_keepBoth) & "categoria=" & RsBairro.Fields.Item("categoria").Value %>"><font size="2" face="arial"><%=(RsBairro.Fields.Item("categoria").Value)%></font> <br></a> <% if NOT Rsbairro.EOF then Rsbairro.MoveNext end if ColNum = ColNum + 1 if NOT Rsbairro.EOF then %></div><TD ALIGN=center valign="top"> <div align="left"><a href="view.asp?<%= MM_keepBoth & MM_joinChar(MM_keepBoth) & "categoria=" & RsBairro.Fields.Item("categoria").Value %>"><font size="2" face="arial"><%=(RsBairro.Fields.Item("categoria").Value)%></font> <br></a> <% end ifColNum = ColNum + 1 Loop %><% if NOT Rsbairro.EOF then Rsbairro.MoveNext end if Loop %></div></table></div><%RsBairro.Close()Set RsBairro = Nothing%>ele da este erro Tipo de erro:Erro de tempo de execução do Microsoft VBScript (0x800A01B6)O objeto não dá suporte para a propriedade ou método: 'EOF'/mct/select.asp, line 25

Mário Monteiro · Novembro 12, 2004

cara não sei o que pode ser exatamente, mas tenat definir explicitamente os cursores de seu recordsettipo assimSet RsBairro = Server.CreateObject("ADODB.Recordset")RsBairro.ActiveConnection = MM_conBairro_STRINGRsBairro.Source = "SELECT * FROM CategoriaServicos ORDER BY categoria ASC"RsBairro.CursorType = 0RsBairro.CursorLocation = 2RsBairro.LockType = 1RsBairro.Open()e testa

kania · Novembro 12, 2004

Fera na verdade ja ahavia tentado usar o código que me passou, porem ele não estva dando certo, ele retorna a pagina em branco, abaixo o código que você mandou adaptado, de uma olhada, sera que eu fiz alguma coisa de errado nele ?

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT"%>

<%

Dim RsBairro

Dim RsBairro_numRows

Set RsBairro = Server.CreateObject("ADODB.Recordset")

RsBairro.ActiveConnection = MM_conBairro_STRING

RsBairro.Source = "SELECT * FROM CategoriaServicos ORDER BY categoria ASC"

RsBairro.CursorType = 0

RsBairro.CursorLocation = 2

RsBairro.LockType = 1

RsBairro.Open()

RsBairro_numRows = 0

%>

<%

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<%

total = RsBairro.recordcount

Colunas = 3

%>

<%

X = 1

Y = 0

WHILE X <= total

%>

<%IF Y = 0 THEN%>

<%END IF%>

<%IF X < total THEN%>

</a> </td>

<%ELSE%>

<td>

</a><a href="ver.asp?<%= MM_keepBoth & MM_joinChar(MM_keepBoth) & "categoria=" & RsBairro.Fields.Item("categoria").Value %>"><font size="2" face="arial"><%=(RsBairro.Fields.Item("categoria").Value)%></font></a>

</td>

<%FOR I = total mod Colunas TO Colunas - 1%>

<td>vazio</td>

<%NEXT%>

<%END IF%>

<%IF Y = Colunas THEN%></tr><%END IF%>

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

WEND

%>

</table>

<%

RsBairro.Close()

Set RsBairro = Nothing

%>

[/tr]

Ja este aqui foi um código que eu fiz com 2 colunas que funcionou, porem eu verifiquei que mesmo em 2 colunas ficou muito extenço pela quantidade de registro que eu coloquei no BD (117), mas se eu colocar mais uma coluna na tabela dentro deste mesmo código ele retorna erro.

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT"%>

<%

Dim RsBairro

Dim RsBairro_numRows

Set RsBairro = Server.CreateObject("ADODB.Recordset")

RsBairro.ActiveConnection = MM_conBairro_STRING

RsBairro.Source = "SELECT * FROM CategoriaServicos ORDER BY categoria ASC"

RsBairro.CursorType = 0

RsBairro.CursorLocation = 2

RsBairro.LockType = 1

RsBairro.Open()

RsBairro_numRows = 0

%>

<%

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<%

Do while NOT Rsbairro.EOF

ColNum = 1

Do while ColNum < 3

%>

<tr>

</a>

<%

if NOT Rsbairro.EOF then

Rsbairro.MoveNext

end if

ColNum = ColNum + 1

if NOT Rsbairro.EOF then

%>

</div>

</a>

<%

end if

ColNum = ColNum + 1

Loop

%>

<%

if NOT Rsbairro.EOF then

Rsbairro.MoveNext

end if

Loop

%>

</div></table>

</div>

<%

RsBairro.Close()

Set RsBairro = Nothing

%>

[/tr]

Vou ficar tentando em cima do seu código por enquanto até eu ver onde é que eu estou errando, pq só pode ser alguma variavel que eu estou informando incorretamente. :wacko:

Mário Monteiro · Novembro 12, 2004

que erro ta dando no codigo que te passei??estranho mesmo só vi que você ta fechando a tag <a> sem abrir na segunda vez</a><a href="ver.asp?<%= MM_keepBoth & MM_joinChar(MM_keepBoth) & "categoria=" & RsBairro.Fields.Item("categoria").Value %>"><font size="2" face="arial"><%=(RsBairro.Fields.Item("categoria").Value)%></font></a>

kania · Novembro 12, 2004

Na verdade ele não traz erro nenhum na pagina somente não aparece nada, a pagina fica em branca como se não tivesse nenhum registro para exibir.

Fiz a correção que mencionmou sobre a tag <a>, de uma olhada no código.

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT"%>

<%

Dim RsBairro

Dim RsBairro_numRows

Set RsBairro = Server.CreateObject("ADODB.Recordset")

RsBairro.ActiveConnection = MM_conBairro_STRING

RsBairro.Source = "SELECT * FROM CategoriaServicos ORDER BY categoria ASC"

RsBairro.CursorType = 0

RsBairro.CursorLocation = 2

RsBairro.LockType = 1

RsBairro.Open()

RsBairro_numRows = 0

%>

<%

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<%

total = RsBairro.recordcount

Colunas = 3

%>

<%

X = 1

Y = 0

WHILE X <= total

%>

<%IF Y = 0 THEN%>

<%END IF%>

<%IF X < total THEN%>

<td>

</td>

<%ELSE%>

<td>

</td>

<%FOR I = total mod Colunas TO Colunas - 1%>

<td>vazio</td>

<%NEXT%>

<%END IF%>

<%IF Y = Colunas THEN%></tr><%END IF%>

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

WEND

%>

</table>

<%

RsBairro.Close()

Set RsBairro = Nothing

%>

[/tr]

Salgado · Novembro 12, 2004

Manda exibir o código fonte, às vezes o erro está escrito dentro de uma TAG HTML mal formatada.

kania · Novembro 12, 2004

O pior de tudo é que u ja fiz isto, e não consegui achar o erro http://forum.imasters.com.br/public/style_emoticons/default/blush.gif

Mário Monteiro · Novembro 12, 2004

cara em vez de mandar escrever tudo aquilo manda escrever só o valor do bd, pra ver se rola...

kania · Novembro 12, 2004

Olha para que seja mais facio de entender eu coloquei as paginas no meu servidor deem um olhada nos links

Pagina com o código do marioufpa para 3 colunas que fica em branco: Ver

Pagina com o código que eu fiz que funciona somente com 2 colunas: Ver abrindo a pagina clique na categoria Decoração

Pagina com o código que eu fiz que não funciona com 3 colunas apesar de ser o mesmo código da pagina acima só que com 3 colunas ao inves de 2: Ver

Nesta ultima URL no servidor ele somente mostra ero 500 mas no meu servidor interno aqui ele da o seguinte erro

Tipo de erro:

Erro de compilação do Microsoft VBScript (0x800A040E)

'loop' sem 'do'

/categorias/TMPen8cs72p3r.asp, line 64

Loop

Mário Monteiro · Novembro 12, 2004

o primeiro e o segundo link apontam pro mesmo lugar

kania · Novembro 12, 2004

fiz oque falou, mandei exibir pura e simplesmente os registros, mas continua aparecendo a pagina em branco, em alguns testes que fiz mudando os blocos de comandos de lugar, verifiquei que quando coloquei o primeiro bloco de instrução logo abaixo da primeira linha da tabela, aparecia um restro ( ai tudo bem pq não mandado dar o loop) porem oque tinha abaixo dela não aparecia. sera que o código esta empedindo que os restros apareçam ?

Olha o código auterado

ASP [/tr][tr]<%@LANGUAGE="VBSCRIPT"%>

<%

Dim RsBairro

Dim RsBairro_numRows

Set RsBairro = Server.CreateObject("ADODB.Recordset")

RsBairro.ActiveConnection = MM_conBairro_STRING

RsBairro.Source = "SELECT * FROM CategoriaServicos ORDER BY categoria ASC"

RsBairro.CursorType = 0

RsBairro.CursorLocation = 2

RsBairro.LockType = 1

RsBairro.Open()

RsBairro_numRows = 0

%>

<%

If (RsBairro.EOF = 0) Then

%>

<%

Function MM_joinChar(firstItem)

If (firstItem <> "") Then

MM_joinChar = "&"

Else

MM_joinChar = ""

End If

End Function

%>

<%

total = RsBairro.recordcount

Colunas = 3

%>

<%

X = 1

Y = 0

WHILE X <= total

%>

<%IF Y = 0 THEN%>

<%END IF%>

<%IF X < total THEN%>

<td>

<%=(RsBairro.Fields.Item("categoria").Value)%>

</td>

<%ELSE%>

<td>

<%=(RsBairro.Fields.Item("categoria").Value)%>

</td>

<%FOR I = total mod Colunas TO Colunas - 1%>

<td>Sem registros para exibir</td>

<%NEXT%>

<%END IF%>

<%IF Y = Colunas THEN%></tr><%END IF%>

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

WEND

%>

</table>

<%

Else

%>

<font face="Arial, Helvetica, sans-serif"><strong>Sem registros para exibir</strong></font>

<%

End If

%>

<%

RsBairro.Close()

Set RsBairro = Nothing

%>

</div>

[/tr]

Mário Monteiro · Novembro 12, 2004

cara não sei o que ta acontecendo ai pra não dar certo mas este codigo funciona sim, eu fiz ele e teste muitas possibilidades, olha o codigo que testei:

[tr][/tr][tr][/tr]

ASP

<html>

<body>

<%

Registros = 133

Colunas = 3

%>

<table>

<%

X = 1

Y = 0

WHILE X <= Registros

%>

<%IF Y = 0 THEN%><tr><%END IF%>

<%IF X < Registros THEN%>

<%ELSE%>

<%FOR I = Registros mod Colunas TO Colunas - 1%>

<td>vazio</td>

<%NEXT%>

<%END IF%>

<%IF Y = Colunas THEN%></tr><%END IF%>

<%

X = X + 1

Y = Y + 1

IF Y = Colunas THEN

Y = 0

END IF

WEND

%>

</table>

</body>

</html>

ai você altera a quantidade de registros e a de colunas, com quaisquer quantidades funciona, testa este codigo na forma original...

Arquivado

Listagem em duas colunas

Recommended Posts

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

<% AsP %> 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Salgado 4

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179

Compartilhar este post

Link para o post

Compartilhar em outros sites

kania 0

Compartilhar este post

Link para o post

Compartilhar em outros sites

Mário Monteiro 179