Vida ou Morte

[rodrigofaria 0]

Colegas,Estava fazenda a paginação de meu site, seguindo a coluna do nosso companheiro Gustavo Faeli, quando me deparei com o seguinte erro:ADODB.Recordset error '800a0cb3' O conjunto de registros atual não oferece suporte para indicadores. Isso pode ser uma limitação do provedor ou do tipo de cursor selecionado. /imaia/TMP1e277lqc6v.asp, line 557 Bom, estou usando o Windows 98 e PWS. Será que esse é o problema? Segue os código de paginação:Dim ConBanco , RSConsultar , SQL , intpagina , contconst caminho="adlez.mdb"SET ConBanco = server.CreateObject ("ADODB.Connection")ConBanco.open("Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(caminho))SET RSConsultar = server.CreateObject ("ADODB.RecordSet")'Fazendo a paginação<%RSConsultar.PageSize = 20 SQL=" SELECT * FROM TblEsportes E , TblSite S "&_ " WHERE E.Site=S.CodSite ORDER BY ID DESC " SET RSConsultar = ConBanco.Execute (sql) if rsconsultar.eof then %><center><font size="1" face="Arial, Helvetica, sans-serif" color="#990000"> iMaia - Sistema de Divulgação de Conteúdo Online (aguarde...) </font><%ELSE IF Request.QueryString("pagina")="" then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))<1 then intpagina=1 ELSE IF cint(Request.QueryString("pagina"))> RSConsultar.PageCount then intpagina=RSConsultar.PageCount ELSE intpagina=Request.QueryString("pagina") END IF END IF END IFEND IFRSConsultar.AbsolutePage=intpaginacont = 1while cont < RSConsultar.PageSize AND NOT RSConsultar.eof' AQUI VEM TODOS OS REGISTRO QUE SERÃO PAGINADOS!!!<%rsconsultar.movenextcont = cont + 1IF RSConsultar.EOF then response.write " " END IFwendSET RSConsultar=NOTHING%>' Aqui irá Mostrar a paginação (próxima/anterior) --> <% IF intpagina > 1 then %> <a href="adlezesportes.asp?pagina=<%=intpagina-1%>">Anterior</a> <% END IF %>  <% IF strcomp(intpagina,RS.PageCount) <> 0 then %> <a href="adlezesportes.asp?pagina=<%=intpagina + 1%>">Próxima</a> <% END IF%>Valeu?rodrigofaria

[d.eleete 0]

Kra..ta com um monte de erro de tag <%...%> ta abrindo e abrindo e naum ta fechando.. ta estranho..

 

Maaaaaass... tente isso:

 

Embaixo de :

SET RSConsultar = ConBanco.Execute (sql)

Coloque:

RSConsultar.CursorLocation = adUseClient

RSConsultar.CursorType = adOpenStatic

[rodrigofaria 0]

Obrigado, d.eleete.A falha em abrir em fechar as "<%%>" é pq qu tive que tirar um monte de tags html pra postar aki, foi mal.Bom, deu o seguinte erro:ADODB.Recordset error '800a0e79' Operação não permitida quando o objeto está aberto. /imaia/adlezesportes.asp, line 535 O que é adUseClient e adOpenStatic ? Aqui no meu computz ele leu como variáveis não declaradas, era pra rolar isso?

[rodrigofaria 0]

Colquei o RSConsultar.CursorLocation = 3mesmo assim não deu certo....

[rodrigofaria 0]

Bom, tentei dessa forma:

 

RSConsultar.CursorLocation = 3

RSConsultar.CursorType = 3

RSConsultar.PageSize = 20

 

SQL=" SELECT * FROM TblEsportes E , TblSite S "&_

" WHERE E.Site=S.CodSite ORDER BY ID DESC "

 

SET RSConsultar = ConBanco.Execute (sql)

 

mesmo assim continua o erro:

 

ADODB.Recordset error '800a0cb3'

O conjunto de registros atual não oferece suporte para indicadores. Isso pode ser uma limitação do provedor ou do tipo de cursor selecionado

 

 

Alguém já passou por probla semelhante usando o Windows 98 e PWS? Bom, acredito que sim.

Me dêem um direção, por favor!

[d.eleete 0]

Hum.. serah q naum precisa do adovbs.inc ???

[rodrigofaria 0]

Não. Em outra matéria publicada por Fernando D´angelo, ele diz:...a propriedade CursorLocation do objeto connection é igual a adUseClient, ou se não quiser utilizar as constantes do arquivo adovbs.inc, use o número 3 ao invés de adUseClient. Na verdade, a constante adUseClient tem o valor 3 no arquivo adovbs.inc. Logo, tanto faz usar adUseClient ou 3, pois adUseClient = 3.Bom, acho que esse não é o problema. Alguém mais tem alguma sugestão? PELO MAOR DE DEUS!!!!!!!1

[rodrigofaria 0]

CONSEGUI!!!!!!!!!!!!!!

 

A RESPOSTA ESTÁ AQUI:

 

http://p2p.wrox.com/archive/access_asp/2002-11/41.asp

 

 

Por causa de um professor meu que me ensinou a abrir o RecordSet de uma maneira mais simplificada, acabou ficando faltando algumas diretrizes...

 

certo:

RSConsultar.Open SQL,ConBanco,3,3