Erro - AbsolutePage

[patyeugenia 0]

:(

Estou com um código de paginação e acredito que está correto, mas está dando erro na linha:

 

regProdLoja.AbsolutePage=intpagina

 

Acredito que o problema seja no AbsolutePage. Abaixo está a mensagem que aparece no navegado:

 

ADODB.Recordset (0x800A0CB3)

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.

/teste.asp, line 32

 

 

Por favor gente, me ajudem!!

 

Muito Obrigada!

 

PAty http://forum.imasters.com.br/public/style_emoticons/default/kiss.gif

[Salgado 4]

Mostre como está a criação de seu RecordSet.

[patyeugenia 0]

Mostre como está a criação de seu RecordSet.

<{POST_SNAPBACK}>

 

Está assim:

 

 

 

<%

Set regProdLoja = Server.CreateObject("ADODB.RecordSet")

regProdLoja.PageSize = 3

 

Call SelectProdLoja(regProdLoja)

 

If Not regProdLoja.EOF Then

 

 

IF Request.QueryString("pagina")="" then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))<1 then

intpagina=1

ELSE

IF cint(Request.QueryString("pagina"))> regProdLoja.PageCount then

intpagina=regProdLoja.PageCount

ELSE

intpagina=Request.QueryString("pagina")

END IF

END IF

END IF

 

regProdLoja.AbsolutePage=intpagina '---------------- > aqui esta o erro

 

intrec=0

 

%>

<table width="45%" border="0">

<%

While intrec < regProdLoja.PageSize and Not regProdLoja.EOF

%>

<tr>

<%

Dim n

colNum = 4

n = 0

Do while n < colNum and NOT regProdLoja.eof

%>

<td><div align="center"><img src="<%=regProdLoja("prd_url")%>" width="80" height="70"><br>

<span class="texto"><strong><%=regProdLoja("prd_nome")%></strong></span><br>

<span class="texto"><%=regProdLoja("prd_valor")%></span></div>

<div align="center"><br>

<a href="login.asp" class="texto">Comprar</a> <br>

</div></td>

<%

regProdLoja.Movenext

n = n + 1

loop

%>

</tr>

<%

intrec=intrec+1

IF regProdLoja.EOF then

response.write " "

END IF

 

Wend

 

'Vamos verificar se não é a página 1, para podermos colocar o link “anterior”.

IF intpagina > 1 then

%>

<a href="teste.asp?pagina=<%=intpagina-1%>">Anterior</a>

<%

END IF

 

'Se não estivermos no último registro contado, então é mostrado o link p/ a próxima página

IF strcomp(intpagina,regProdLoja.PageCount) <> 0 then

%>

<a href="teste.asp?pagina=<%=intpagina + 1%>">Próxima</a>

<%

END IF

%>

[Salgado 4]

Mostre o conteudo da FUNCTION ou SUB "SelectProdLoja()"

[patyeugenia 0]

Mostre o conteudo da FUNCTION ou SUB "SelectProdLoja()"

<{POST_SNAPBACK}>

 

Esse é o codigo:

 

Sub SelectProdLoja (byRef regProdLoja)

vSQL = "SELECT prd_id, prd_nome, prd_valor, prd_url, prd_qtd, prd_descricao, prd_loja FROM tbl_produto "

vSQL = vSQL & "WHERE prd_loja = " & 1

vSQL = vSQL & " Order by prd_nome"

regProdLoja.open vSQL, Conn

End Sub

[Salgado 4]

Troque sua linha:

ASP

1. regProdLoja.open vSQL, Conn
   

Por:

ASP

1. regProdLoja.open vSQL, Conn, 3, 3
   

[patyeugenia 0]

Troque sua linha:

ASP

[*]regProdLoja.open vSQL, Conn

Por:

ASP

[*]regProdLoja.open vSQL, Conn, 3, 3

<{POST_SNAPBACK}>

A PERGUNTA PODE SER BOBA, MAS POSSUO CONHECIMENTO RAZOÁVEL EM ASP, PQ COLOCA-SE O "3,3" ????

 

regProdLoja.open vSQL, Conn, 3, 3

 

 

vALEU!!

 

PATY

[Salgado 4]

Não é boba, esses numeros são para configurar o CursorType e o CursorLocation, e o Prof. Marcelo com certeza vai explicar melhor.

[Marcelo Barcellos 0]

O Tio Salgado pegou a mania de me chamar de Professor !!!! Heheh..

 

Bom....

 

O Recordset tem uma série de propriedades para que possamos utilizar suas funcionalidades, entre elas o Cursor Location, o Cursor Type e O Lock Type.

 

O Tio Salgado se referiu à Cursor Type e Cursor Location, entretanto, são, na verdade CursorType e LockType, e ainda, teria uma terceira opção que seriam os "Options" do Recordset.

 

O "3,3" que ele te passou sigifica que o recorset que você está abrindo tem seu cursor "OpenStatic" e "LockOptimistic", que significam, respectivamente:

 

1 - Siginifca que o Recordset será estático, e caso haja modificações nos valores do recordset após sua abertura, o recordset conterá apenas informações antigas, ou seja, desatualizadas.

 

2 - Signica que os valores alterados no Recordset terão influência nos valores do Banco de Dados, entretanto, toda a validação será feita no momento em que for feita a chamada do método UPDATE.

 

No Mais, as aula de ASP Avançado do BRClube estão caminhando e a próxima aula começaremos a falar de RECORSETS....

 

http://forum.brClube.net