Exibir Dados Do Bd Em 2 Colunas E Paginação Numerica
#1
Posted 08/04/2007, 03:46
bem oq eu to querendo e
EXIBIR OS DADOS DE UMA TABELA DA SEGUINTE MANEIRA
2 COLUNAS
LIMITE DE EXIBIÇÃO DE 20 ITEMS
PAGINAÇÃO EM FORMA DE NUMEROS EX: 1, 2, 3, 4...
Acho q muitos deve ter isso pronto ai então quem puder me ajudar!
agradeço!
#2
Posted 19/04/2007, 09:07
BAGalera! to eu aqui de novo seguinte tentei de tudo aki e ta dando erro nao to acertando algo!
bem oq eu to querendo e
EXIBIR OS DADOS DE UMA TABELA DA SEGUINTE MANEIRA
2 COLUNAS
LIMITE DE EXIBIÇÃO DE 20 ITEMS
PAGINAÇÃO EM FORMA DE NUMEROS EX: 1, 2, 3, 4...
Acho q muitos deve ter isso pronto ai então quem puder me ajudar!
agradeço!
POW GENTE VAMO DA UMA FORÇA ME INDIQUEM PELO MENOS UMA PAGINAÇÃO QUE EXIBA O RESULTADO EM FORMA DE NUMEROS 1, 2, 3, ...
#3
Posted 19/04/2007, 10:08
http://www.imasters...._sem_misterios/
e tambem vc pode dar uma procurada no forum, tem bastante tópico sobre paginação
espero ter ajudado
#4
Posted 19/04/2007, 14:05
para exibir a repetição em duas colunas iremos usar a variavel classica I
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td>Minha tabela</td> </tr> <% i=1 While ... coloque aqui seu laço de repetição %> <td>COLOQUE AQUI OS DADOS</td> <% If i>=2 Then i=1 Response.Write("</tr><tr>") Else i=i+1 End If Wend ... Encerre sua repetição %> </table>
Use o exemplo acima e vai implementando com sua necessidade.
at+
#5
Posted 23/04/2007, 11:48
alguem poderia me dar dicas de como deixar ela em forma de numero
1 2 3 4 5
<%
'Efetuando a conexão com a base de dados criada -----------------------
Set Conn = Server.CreateObject("AdoDb.Connection")
Conn.provider="Microsoft.Jet.OLEDB.4.0"
Conn.connectionstring=Server.Mappath("/intranet/bd/bdsistema.mdb")
Conn.open
'--------------------------------------------------------------------------
'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo,
'pois vamos utilizar algumas funções deste objeto
Set RS = Server.CreateObject("adodb.recordset")
RS.PageSize = 2 'quantidade de registros por página. Você pode alterar sem conforme precise.
'Vamos fazer a busca na tabela contatos
SQL = "select * from eventos"
RS.Open SQL,Conn,3,3
'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor
'que zero, se é maior que o número total de páginas, etc.
IF RS.EOF then
Response.Write "nenhum registro encontrado"
Response.End 'paramos o programa
ELSE
'Definindo em qual pagina o visitante está
IF Request.QueryString("pagina")="" then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))<1 then
intpagina=1
ELSE
IF cint(Request.QueryString("pagina"))> RS.PageCount then
intpagina=RS.PageCount
ELSE
intpagina=Request.QueryString("pagina")
END IF
END IF
END IF
END IF
'Fim das verificações de exceções
'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta
RS.AbsolutePage=intpagina
' Inicia o contador que vai controlar os registros mostrados
intrec=0
'Enquanto o contador for menor que a quantidade de registros mostrados ou
' não for o final do arquivo
While intrec < RS.PageSize and not RS.EOF
%>
<%
'------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------
response.write RS("titulo") & " - " & RS("data") & " - " & RS("n_fotos") & "<BR>"
%>
<%
'---------------------------------------------------------------------------------------------
RS.MoveNext
' Acrescenta +1 ao contador
intrec=intrec+1
'Se for EOF (fim de arquivo), imprimir branco na tela
IF RS.EOF then
response.write " "
END IF
Wend 'fim do loop
'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.
IF intpagina > 1 then
%>
<a href="exibeevento.asp?pagina=<%=intpagina-1%>">Anterior</a>
<%
END IF
'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página
IF strcomp(intpagina,RS.PageCount) <> 0 then
%>
<a href="exibeevento.asp?pagina=<%=intpagina + 1%>">Próxima</a>
<%
END IF
%>
#6
Posted 27/04/2007, 17:20
PAGO ALGUEM PRA FAZER ISSO PRA MIM
ENTRA EM CONTATO
PRECISO URGENTE
EDENIS.OLIVEIRA@GMAIL.COM
OU ME ADD NO HOTMAIL: DENNIS_C_OLIVEIRA@HOTMAIL.COM
#7
Posted 28/04/2007, 00:51
http://www.codigofon...-banco-de-dados
e veja a sub ListaNumerada xxx, xxx e a parte de carregar a página atual ao abrir o RS
[]'s
#8
Posted 30/04/2007, 15:30
VOU DISPONIBILIZAR 100 REAIS POR ISSO! MAIS DO QUE ISSO NAO POSSO!
SERVIÇO:
PRECISO SIMPLESMENTE DE UM ARQUIVO QUE EXIBA AS FOTOS DE UMA PASTA, E FAÇA A PAGINAÇÃO DA MESMA NO FORMATO 1 2 3 4 5 E COM LIMITE DE 20 FOTOS POR PAGINA!
E A MESMA PRECISA PUXAR O ENDEREÇO DA PASTA VIA ACCESS COMO O RESTANTE DAS INFORMAÇÕES!
NAO PRECISO DE EDIÇÃO NEM ECLUSÃO ISSO EU JA TENHO! SOMENTE ADIÇÃO MESMO!
QUEM SE INTERESSAR RESPONDER!
OU ENVIAR EMAIL DIRETAMENTE PARA: CERBURUS@GMAIL.COM
#9
Posted 07/03/2008, 17:01
<% 'Efetuando a conexão com a base de dados criada ----------------------- Set Conn = Server.CreateObject("AdoDb.Connection") Conn.provider="Microsoft.Jet.OLEDB.4.0" Conn.connectionstring=Server.Mappath("/intranet/bd/bdsistema.mdb") Conn.open '-------------------------------------------------------------------------- 'Vamos criar o objeto Record Set -> neste caso é necessário declará-lo, 'pois vamos utilizar algumas funções deste objeto Set RS = Server.CreateObject("adodb.recordset") RS.PageSize = 2 'quantidade de registros por página. Você pode alterar sem conforme precise. 'Vamos fazer a busca na tabela contatos SQL = "select * from eventos" RS.Open SQL,Conn,3,3 'Vamos agora verificar exceções do tipo “fim de arquivo” (EOF), se a página atual é menor 'que zero, se é maior que o número total de páginas, etc. IF RS.EOF then Response.Write "nenhum registro encontrado" Response.End 'paramos o programa ELSE 'Definindo em qual pagina o visitante está IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RS.PageCount then intpagina=RS.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IF END IF 'Fim das verificações de exceções 'Usamos a propriedade AbsolutePage para dizer ao RS que página ele esta RS.AbsolutePage=intpagina ' Inicia o contador que vai controlar os registros mostrados intrec=0 'Enquanto o contador for menor que a quantidade de registros mostrados ou ' não for o final do arquivo While intrec < RS.PageSize and not RS.EOF %> <% '------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO ----------------------- response.write RS("titulo") & " - " & RS("data") & " - " & RS("n_fotos") & "<BR>" %> <% '--------------------------------------------------------------------------------------------- RS.MoveNext ' Acrescenta +1 ao contador intrec=intrec+1 'Se for EOF (fim de arquivo), imprimir branco na tela IF RS.EOF then response.write " " END IF Wend 'fim do loop 'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”. IF intpagina > 1 then %> <a href="exibeevento.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF%> <% 'Contar de 1 até a ultima pagina e exibir o numero da pagina com o link for i=1 to RS.PageCount response.Write "<a href=exibeevento.asp?pagina="&i&">"&i&"</a> " next %> <% 'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="exibeevento.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF %>
A parte com bastante espaço foi oq eu adicionei no código. O problema dele é que irá listar todos os números de 1 até o fim das páginas, sem intervalos de 10 em 10 numeros por exemplo. Se alguem souber!
1 user(s) are reading this topic
0 membro(s), 1 visitante(s) e 0 membros anônimo(s)