ADODB.Recordset erro '800a0cb3'

[Maycon 0]

Alterei de servidor e passou a dar este erro em meu código, o mesmo utiliza paginação.

Utilizo banco de dados SQL SERVER

 

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.

 

Alguém já passou por isto ?

 

<%

'...

 

    Pag = Request.QueryString("Pag") ' Pagina que deseja exibir

    VarPag = 15

 

    if Trim(pag) = "" then

            pag = 1

    Else

            pag = int(pag)

    End If

 

    Set Conn = Server.CreateObject("ADODB.Connection")

    Conn.CursorLocation = 3

    Set Conn = Banco

 

    Set RsRegistro = Server.CreateObject("ADODB.Recordset")

 

    SqlBase = "SELECT * FROM TABELA Where CodCliente = 1"

 

    Set RsRegistro = conn.Execute(SqlBase)

 

    RsRegistro.CacheSize = VarPag

    RsRegistro.PageSize = VarPag

 

    if Not(RsRegistro.Eof And RsRegistro.Bof) Then

        RsRegistro.AbsolutePage = pag

    End if

%>

[asp.net 0]

Cara uma pergunta bem simples, o seu novo provedor dá suporte para SQLServer? O caminho da base está correta?

[Maycon 0]

Sim, inclusive só dá erro na paginação, executo outras pesquisas sem problemas ...

[alphamek 2]

Tenta modificar está linha colocando seu cursor em Dinamico e Otimista. Desde você utilizar : Set RsRegistro = conn.Execute(SqlBase) utiliza assim : RsRegistro.Open SqlBase, Conn, 3, 3 Melhore o serviço do seu cursor no servidor. Posta aqui se tiver mais erros. Abraços,

[asp.net 0]

A linha em vermelho é onde dá o erro?

[Maycon 0]

Isto, exatamente !!! :lol: Agora uma curiosidade, porque no outro servidor aceitava ???

[alphamek 2]

Mais você mudo a linha do RecordSet... aquela que eu falei.

[alphamek 2]

Deu certo ou não ? Ou o erro continua...