Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
E ai pessoal,
Estou precisando de uma ajuda para fazer uma paginação em asp.
Dei uma estudada e fiz uma página antes de ir para o projeto mesmo. Deu até certo com essa página, porém quando fui colocar no meu projeto deu um erro que não estou sabendo resolver, justamente nessa linha
rsDados.AbsolutePage = intpagina
A descrição do erro é essa:
"
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.
"
Se alguém puder me ajudar fico grato.
este erro pode ser causado pelos seguintes itens:
você estiver usando nomeado constantes (por exemplo adUseClient), mas se esqueceu de incluir Adovbs.inc
você tentou usar o NextRecordset() para processar vários conjuntos de resultados a partir de um provedor de acesso você tentou combinar as propriedades do lado do servidor de registros, por exemplo, cachesize, com um lado do cliente de registros (adUseClient) - certifique-se as propriedades que você está usando faz sentido para o tipo de conjunto de registros que você abriu
você tentou usar métodos avançados ou propriedades como bookmark, MovePrevious, ou AbsolutePage em objetos de registros padrão - certifique-se de definir o LockType correto e / ou CursorLocation (tem um post meu explicando sobre o LockType e cursortype)
você tentou recuperar a chave primária usando ADOX
você está tentando usar um objeto ADODB.Recordset com um tipo de bloqueio indevido com uma atualização ou addnew - usar um UPDATE ou INSERT em vez de um objeto Recordset
você está usando um objeto ADOX.Catalog (ou um dos vários outros objetos potenciais), e tentou fechá-lo. Tudo que você tem a fazer é definir um objeto catalog para nothing... ele não tem um método close().
E ai..
Xanburzum, valeu pelos toques que me deu. Vou procurar ajustar meu código para deixar mais padrão.
Fiz aqui e deu certo depois que fiz assim:
Set rsDados = Server.CreateObject("ADODB.RecordSet")
rsDados.CursorLocation = 3
rsDados.CursorType = 3
rsDados.Open SqlCertificado, cnn
De toda forma está resolvido.
Obrigado mesmo!!
Pessoal,
Estou ainda na tentativa.
Fiz aqui com base em uns tutoriais mas continua dando erro. Meu banco é sql server 2000.
O erro que dá é este.
"ADODB.Recordset erro '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. "
Se puderem me ajudar ficou muito grato.
<% 'Cria instância das classes Set obFerramentas = CreateObject("GarantiaEstendida.clsFerramentas") %> <% 'Verifica se o usuário efetuou a pesquisa If (Request.QueryString("stAcao") = "pesquisar") Then%>
<table width="100%" border="0">
<%
'Objeto connection
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.ConnectionString = "File Name="& Server.MapPath("conexao.udl") &";"
cnn.Open
'Cria os objetos recordset
Set rsDados = Server.CreateObject("ADODB.RecordSet")
Set RsBaseProduto = CreateObject("ADODB.RecordSet")
Set RsCliente = Server.CreateObject("ADODB.RecordSet")
Set rsUsu = Server.CreateObject("ADODB.RecordSet")
'Valida os dados informados
if CStr(Request.Form("edtProposta")) <> "" then
NumCertificado = Request.Form("edtProposta")
end if
if Trim(CStr(Request.Form("edtCpf"))) <> "" then
NumCpf = Trim(CStr(Request.Form("edtCpf")))
NumCpf = replace(NumCpf, ".","")
NumCpf = replace(NumCpf, "-","")
end if
'Resgata a versão da base de produto
%> <%
rsDados.AbsolutePage = intpagina
intrec = 0
'Laço para carregar os registros na tela
While intrec < rsDados.PageSize and Not rsDados.EOF
'Verifica se o seguro está cancelado ou não no sistema
If (IsNull(rsDados("dt_cancelamento"))) Then
boSeguroCancelado = True
Else
boSeguroCancelado = False
End If
stBgColor = obFerramentas.gridZebrado(stBgColor)
'Resgata os dados do cliente
%>
<%
RsCliente.Close
'Avança uma linha no RecordSet
rsDados.MoveNext
intrec = intrec + 1
if rsDados.EOF then
Response.Write " "
end if
Wend
'Loop do grid
'Loop
%>
<%
'Destroi o RecordSet
rsDados.Close
Set rsDados = Nothing
Set rsUsu = Nothing
'Fecha o if que verifica se retornou alguma linha
End if
%>
<% 'End If
' end if
%>
</form>