2 replies to this topic

[Zyoncore]

Ae... meu problema é um seguinte...
estou transferindo o banco de dados de meu site,,
de access para mySql.... masa paginação sumiu, quando eu uso o access e funciona perfeitamente,,, esse codigo q eu usa no access
<%

sSQL = "SELECT torpedo.idTorpedo, torpedo.forIdUser, torpedo.data, torpedo.torpedoText, torpedo.hora, users.username, torpedo.forIdUser AS ForName FROM torpedo INNER JOIN users ON torpedo.sendidUser= users.IdUser WHERE torpedo.idCidade =" &Session("idCidade") & " ORDER BY torpedo.torpedoId DESC"

adOpenKeyset = 1
set torSet = Server.CreateObject("ADODB.RecordSet")
torSet.PageSize = 10
torSet.CacheSize = 10
torSet.Open sSQL, baladadb, adOpenKeyset
%>
... assim não tem erro nenhum,.. a consulta funciona perfeitamente em ambos banco de dados.. mas no mySql não funciona a paginação..
alguém pode me ajudar??

[cybermix]

no mysql voce pode fazer paginacao utilizando o "limit"

inicio = 0
final = 10
sql = "SELECT * FROM TABELA LIMIT "& inicio &", "&final
conexao.execute(sql)

[wozniak]

OLHA ISSO AE FAZ PARTE DA PAGINAÇÃO,

<%
strSQL = "select sum(1) As Total from bilhetes"

Set rs = Conn.Execute(strSQL)
      IF rs.EOF AND rs.BOF THEN 
         TotReg = 0 
      Else 
         TotReg = Rs("Total") 
         'response.write totreg 
      End If
Set Rsb = Server.CreateObject("adodb.recordset")

strSQL1 = "select * from bilhetes "

Set Rsb = Conn.Execute(strSQL1)

If TotReg = "" OR isNull(TotReg) Then TotReg = 0 

'' TOTAL DE REGISTROS A SER EXIBIDOS NA PÁGINA 
   TotRegPag = 10 

'' COMANDOS PARA DESCOBRIR O TOTAL DE PÁGINAS EXISTENTES 
   TotPag = TotReg / TotRegPag 
   IF inStr(1,TotReg / TotRegPag,",") THEN TotPag = Split(TotPag,",")(0)+1 

'' RECUPERO A PÁGINA ATUAL 
   Pagina = Cint(Request.QueryString("p")) 
   IF Pagina = "" THEN Pagina = 1 

'' CALCULOS PRA POSIÇÕES INICIO 
   Inicio = 0 
   IF Pagina > 1 THEN Inicio = (Pagina-1)*TotRegPag 

'' FIM COMANDOS 

strSQL1 = "select * from bilhetes Limit "& Inicio &","& TotRegPag

Set rsb = Conn.Execute(strSQL1)

%>

T+