Jump to content


Photo

Exibir Dados Do Bd Em 2 Colunas E Paginação Numerica


  • Faça o login para participar
8 replies to this topic

#1 cerburus

cerburus

    12 Horas

  • Usuários
  • 163 posts
  • Sexo:Não informado

Posted 08/04/2007, 03:46

Galera! 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!

#2 cerburus

cerburus

    12 Horas

  • Usuários
  • 163 posts
  • Sexo:Não informado

Posted 19/04/2007, 09:07

Galera! 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!

BA


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 Newbay

Newbay

    Normal

  • Usuários
  • 106 posts
  • Sexo:Não informado

Posted 19/04/2007, 10:08

ei, ve se esse link te ajudá
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 Humberto - S.O.S.

Humberto - S.O.S.

    ...

  • Banidos
  • PipPipPipPipPip
  • 463 posts
  • Sexo:Masculino
  • Localidade:São Bernardo do Campo - SP

Posted 19/04/2007, 14:05

Falae colega,

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 cerburus

cerburus

    12 Horas

  • Usuários
  • 163 posts
  • Sexo:Não informado

Posted 23/04/2007, 11:48

coloquei essa paginação ta de boa
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 cerburus

cerburus

    12 Horas

  • Usuários
  • 163 posts
  • Sexo:Não informado

Posted 27/04/2007, 17:20

GALERA COMO TO PRECISANDO E TO SEM TEMPO


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 Sollos

Sollos

    Normal

  • Usuários
  • 61 posts
  • Sexo:Masculino
  • Localidade:NI/RJ

Posted 28/04/2007, 00:51

Dá uma olhada nesse código que postei:
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 cerburus

cerburus

    12 Horas

  • Usuários
  • 163 posts
  • Sexo:Não informado

Posted 30/04/2007, 15:30

BEM VAMOS NOVAMENTE!
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 Mochii

Mochii

    Normal

  • Usuários
  • 62 posts
  • Sexo:Masculino
  • Localidade:Mogi das Cruzes - SP

Posted 07/03/2008, 17:01

jah deve estar sendo meio tarde para responder, mas para quem estiver com o mesmo problema


<% 
'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>&nbsp;"

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)

IPB Skin By Virteq