paginação com vetor

[GicaLilica 0]

oi gente, tem como fazer paginacao por vetor?beijosGi

[Juliano.net 2]

Você quer armazenar os dados do banco em um vetor e paginá-lo? É isso?

[Marcelo Barcellos 0]

Gica...Voce pode utilizar o vetor para criar um recordset desconectado e depois paginar....Fica mais simples para trabalhar.

[ursolouco 0]

oi gente, tem como fazer paginacao por vetor?

beijos

Gi

<{POST_SNAPBACK}>

Veja se pode ajudar

 

Não esqueça o arquivo adovbs.inc.

 

ASP

[*]<%

 

[*] pagina = Request.QueryString("pagina")

 

[*] If(Not isNumeric(pagina)) Then Pagina = 1

 

[*] If(isNull(pagina)) Then Pagina = 1

 

[*] If(isEmpty(pagina)) Then Pagina = 1

 

[*]

 

[*] Call gPaginacao("SELECT * FROM tb_produtos", 20, 3, Pagina)

 

[*]

 

[*] Sub gPaginacao(SQL, numReg, numCol, Pagina)

 

[*] If(Not isNumeric(pagina)) Then Pagina = 1

 

[*] If(isNull(pagina)) Then Pagina = 1

 

[*] If(isEmpty(pagina)) Then Pagina = 1

 

[*] pagina = cint(pagina)

 

[*] 'strConn = "DRIVER=MySQL ODBC 3.51 Driver;UID=root;STMT=;OPTION=;SOCKET=;PORT=;PASSWORD=;SERVER=localhost;DATA

BASE=northwind;DESC=" 

 

[*] strConn = "DSN=localhost"

 

[*] Set conn = CreateObject("adodb.connection")

 

[*] conn.Open(strconn)

 

[*] Set Rs = Server.CreateObject("adodb.recordset")

 

[*] rs.ActiveConnection = conn

 

[*] rs.CursorType = adOpenStatic

 

[*] rs.CursorLocation = AdUseClient 

 

[*] rs.PageSize = numReg

 

[*] rs.Open SQL

 

[*] NumeroPaginas = rs.PageCount

 

[*] If(Pagina > 0) Then

 

[*] if(pagina > NumeroPaginas) then

 

[*] pagina = NumeroPaginas

 

[*] Else

 

[*] pagina = cint(pagina)

 

[*] end if 

 

[*] Else

 

[*] pagina = 1

 

[*] End if

 

[*] Rs.AbsolutePage = Cint(pagina)

 

[*] Vetor = rs.getrows()

 

[*] Response.Write "<table border='1' cellpadding='5' width='500' align='center'>"

 

[*] while(Z <= Ubound(Vetor, 2) And Z <= numReg)

 

[*] response.write "<tr>"

 

[*] For C= 1 To numCol

 

[*] if(Z <= ubound(Vetor, 2)) Then

 

[*] response.write "<td>"

 

[*] response.write vetor(12, (Z))

 

[*] response.write "</td>"

 

[*] Z = Z + 1

 

[*] else

 

[*] response.write "<td> "

 

[*] response.write "</td>"

 

[*] exit for

 

[*] End if

 

[*] Next

 

[*] response.write "</tr>"

 

[*] wend

 

[*] Response.Write("</table>")

 

[*]

 

[*] Response.Write "<table border='1' cellpadding='5' width='500' align='center'>"

 

[*] response.Write "<tr>"

 

[*] if(Pagina > 1)Then

 

[*] Call GerarLinkAnterior(Pagina)

 

[*] End if

 

[*]

 

[*] leftStart = Pagina - 5

 

[*] rightEnd = Pagina + 5

 

[*]

 

[*] For I = 1 To NumeroPaginas

 

[*] response.Write "<td align='center'"

 

[*] If(cint(pagina) = I) Then

 

[*] Response.Write " bgcolor='#F3F3F3'"

 

[*] End If

 

[*] response.Write ">"

 

[*] response.Write "<a href="""& Request.ServerVariables("SCRIPT_NAME") & "?pagina="&I&"" &""">"& I &"</a>"

 

[*] response.Write "</td>"

 

[*]

 

[*] Next

 

[*] Call GerarProximoLink(Pagina)

 

[*] response.Write "</tr>"

 

[*] Response.Write "</table>"

 

[*] rs.Close

 

[*] set rs = nothing 

 

[*] conn.Close()

 

[*] set conn = nothing

 

[*] End Sub

 

[*]

 

[*] Sub GerarProximoLink(Pagina)

 

[*] With Response

 

[*] .write "<td>"

 

[*] .write "<a href='"& Request.ServerVariables("SCRIPT_NAME")&"?pagina="&(Pagina + 1)&"'>"

 

[*] .write " >> "

 

[*] .write "</a>"

 

[*] .write "</td>"

 

[*] End With

 

[*] End Sub

 

[*]

 

[*] Sub GerarLinkAnterior(Pagina)

 

[*] With Response

 

[*] .write "<td>"

 

[*] .write "<a href='"& Request.ServerVariables("SCRIPT_NAME") &"?pagina="&(Pagina - 1)&"'>"

 

[*] .write " << "

 

[*] .write "</a>"

 

[*] .write "</td>"

 

[*] End With

 

[*] End Sub

 

[*]

 

[*]%>

 

Boa Sorte[]s

[GicaLilica 0]

Ola pessoal....entao,eu tenho que fzer um trabalho da facul pra paginar em asp,dai o professor deu ideia de fazer a consulta,colocar no vetor e travalhar com ele sabe.....eu usei um codigo que tem no artigo do imasters e deu erro numa linha que tem o codigoRs.AbsolutePage e esse comando é usado no script que colocaram acima :) eu to usndo o IIS..pq asera que ele nao aceita esse comando?dai nao da certo :( por isso pensei em fazer no vetor como meu professor falou :) bejin :P

[alphamek 2]

Acho que isso irá te ajudar.

 

Paginação por vetor.

 

Tá aqui no Fórum em Área de Scripts.

 

Abraços, http://forum.imasters.com.br/public/style_emoticons/default/bye1.gif