Paginaçao com postgresql

[Elbrinner 0]

Tenho uma paginaçao a qual uso a muito tempo mas sempre com sql server e access.Estou tentando usar ela com postgresql mas não estou conseguindo, não está retornando resultado nenhum. A paginaçao com postgresql tem que ser feita de outra forma?obrigado

[marcelinho 0]

Que eu saiba não, mas como você está fazendo ela?

[jrcardozo 4]

com mysql 4 tive um problema com paginação, resolvi setando o cursor location da conexão para 3

[Elbrinner 0]

Estou fazendo assim:

 

pagina = 1 If Request.QueryString("p") <> "" Then pagina = CInt(Request.QueryString("p")) registros = 50	 'Seta o número de registros por pagina Function Zeros(strNum)    ZeroAEsquerda = "0"    IF strNum >= 10 Then ZeroAEsquerda = ""    Zeros = ZeroAEsquerda & strNum End Function '-------------------------------------------------- ' SUBROTINA: MOSTRA ROTINA DE CONTAGEM DE PÁGINAS '-------------------------------------------------- Sub ContaPaginas(pMostra)    If pagina > 1 Then 	  response.write " <a href = "& strURL &"?p="& pagina-1 &"&campo=" & 1 & ">"	   	  response.write "<< Anterior</a> "    End If    IF pMostra = 1 Then 	  For I = 1 To PageCount 		 If I = pagina Then 			response.write I			  Else 			response.write " <a href = "& strURL &"?p="& I &"&campo=" & 1 & ">" 			response.write I &"</a> " 		  End If 	  Next    End IF    If pagina < PageCount Then 	  response.write "| " 	  response.write " <a href = "& strURL &"?p="& pagina+1 &"&campo=" & 1 & ">"   	  response.write "Próxima >> </a> "    End If End Sub '-------------------------------------------------- ' FIM DA SUBROTINA '-------------------------------------------------- Set conn = Server.CreateObject("ADODB.Connection")conn.ConnectionString = "DRIVER={PostGreSQL};"_& "SERVER=pgsql;"_ & " DATABASE=usuario& "UID=emfriburgo;PWD=senha; OPTION=3"conn.Openset RS = Server.Createobject("AdoDB.RecordSet") set RS.ActiveConnection = conn RS.cursortype = 3 RS.pagesize = registros SQL =  "SELECT nome , id , referencia , mini , foto FROM produto where id_empresa = "&session("eu")&" order by id desc"RS.Open SQL,Conn,3,3PageCount = RS.PageCount If pagina > PageCount Then pagina = PageCount If pagina < 1 Then pagina = 1 if RS.EOF then     response.write "<br><br><br><br><div align=center>Não exister produto cadastrado no sistema <br> </div>"    response.write "</font>" else RS.absolutepage = pagina %>	  </div>	  <table width="100%" align="right" cellspacing="1">				  <%col=1Do While Not RS.EOF And RS.AbsolutePage = pagina %>			  <%			  if cor = "#F0F0F0" then			  cor = "#C1E0FF"			  else			  cor = "#F0F0F0"			  end if			  '------------------- AQUI VEM TUDO O QUE SEÁ PAGINADO -----------------------%>  <tr>	<td width="5%" bgcolor="<%=cor%>" class="titulo"><%=rs("referencia")%></td>	<td width="85%" bgcolor="<%=cor%>"><%=rs("mini")%></td>	<td width="4%"  bgcolor="<%=cor%>"><div align="right"><a href="logado.asp?campo=14&id=<%=rs("id")%>"><img src="imagens/EDIT.GIF" alt="Modificar informações " width="16" height="15" border="0" /></a></div></td>	<td width="6%"  bgcolor="<%=cor%>"><div align="right"><a href="logado.asp?campo=13&id=<%=rs("id")%>"><img src="imagens/cesta_remover.gif" alt="Eliminar" width="20" height="20" border="0" /></a></div></td>  </tr>				 <%   '---------------------------------------------------------------------------------------------%>  <%RS.MoveNext Loop end if %></table>		   </td>  </tr></table><p align="center" class="cadastro_vermelho"><%Call ContaPaginas(1) 'colocando 0 mostra sem 1 2 3 ...RS.Close Conn.Close Set RS = Nothing Set Conn = Nothing

[jrcardozo 4]

tenteconn.cursorlocation = 3converta a session no sqlSQL = "SELECT nome , id , referencia , mini , foto FROM produto where id_empresa = "&cint(session("eu"))&" order by id desc"dá algum erro quando executa?

[Elbrinner 0]

Coloquei o conn.cursorlocation = 3 e agora funciona.obrigado