[Resolvido] Erro

[Matheus Brito 12]

Olá pessoal to com uma paginação so que na hora de exibir os registros do bd atraves do recordset ele da erro de tipos incompativeis, so que não sei porque se no banco ta tudo certinho o tipo de cada coisa.

 

codigo:

 

<%
StrProdutos = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("database") & "\banco.mdb"


classe = Request.Form("classes")
Response.Write classe
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open StrProdutos

  conn.CursorLocation = 3
  Set rs_produtos = Server.CreateObject("Adodb.RecordSet")
  rs_produtos.Pagesize = 10
  rs_produtos.Open "select * FROM teste WHERE CLASSE='"& classe & "'order by NIVEL",conn
  
  if(rs_produtos.eof)then
  response.Write("")
  else
  PaginaAtual = CInt(Request.Querystring("Pages"))
  
  If PaginaAtual = 0 Then
  PaginaAtual = 1 
  End If
  
  rs_produtos.AbsolutePage = PaginaAtual
  Num = rs_produtos.PageCount

  While Not rs_produtos.Eof And rs_produtos.AbsolutePage = PaginaAtual
  %>
 
 ID_Conta:<% Response.Write rs_produto("ID_CONTA")%><br>
 Nome Char: <%Response.Write RS_produto("NOME_CHAR")%><br>
 Level: <%Response.Write RS_produto("NIVEL")%><br>
 Itens: <%Response.Write RS_produto("ITENS")%><br>
 <%
 
rs_produtos.MoveNext : Wend
  Anterior = PaginaAtual - 1
  Proximo = PaginaAtual + 1

  If Anterior <= 0 Then
  Anterior = 1
  End If

  If Proximo > rs_produtos.PageCount Then
  Proximo = rs_produtos.PageCount
  End If
  %>
  
  <%
  i = 1
  While i <= rs_produtos.PageCount 

  If PaginaAtual = i Then
  Response.Write("["&i&"]  ")
  Else%>
  Selecione mais Páginas para ver mais registros:<%
  Response.Write("<a href=""teste1.asp?Pages="&i&""" class=""classFonte01"" title=""Página "&i&""">"&i&"</a>  ")
  End If
  i = i + 1 
  Wend
  End If
%>

Erro linha 30

 

linha 30:

ID_Conta:<% Response.Write rs_produto("ID_CONTA")%><br>

abs

[desisto 0]

nao seria

rs_produtos

 

[]s

[Matheus Brito 12]

nao seria

rs_produtos

 

[]s

 

ahuHAUhuahUAHuahUAH

 

verdade cara você foi na mosca, malz ai o topico desnecessário, a pressa faz a gnt errar detalhes minimos.

 

abs e vlw

[desisto 0]

isso acontece com todo mundo :)

sempre troco o nome do rs quando to fazendo mais de 1 funcao

 

abracos

[Matheus Brito 12]

So que me apareceu um segundo problema quando inserir 11 registros no banco pra testar ele nao ta paginando ou seja ta aparecendo os 10 registros e quando clico no link la em baixo pra mudar a pagina e mostra ou ultimo registro ele nao mostra.

 

abs

 

P.S vo ver aqui o topico ja foi coocado como resolvido qualquer coisa posto um novo mas acho que ja descobrir

[desisto 0]

eu ja usei essa paginacao com mdb, mas tem muito tempo e tive o mesmo problema

nao lembro mais como resolve

fico devendo

 

ja ja aparece alguem que saca essa

[Salgado 4]

Você tem que passar no link o dado que está sendo usado para "filtrar" a sua busca no banco de dados.

[Matheus Brito 12]

Você tem que passar no link o dado que está sendo usado para "filtrar" a sua busca no banco de dados.

Não entendi explica mais claro ai.

 

O parametro que to usando pra fazer a consulta é a variavel classe.

[Matheus Brito 12]

A grande questão ta na consulta se eu selecionar todos registros do dc sem utilizar um parametro como tou utilizando funciona beleza a paginação, porem preciso desse parametro e no caso quando se clica na pagina 2 eh como se ele nao soubesse mais quem eh parametro, talvez com session eu resolva, mas nao sei...

 

ajuda aew.

abs

[Salgado 4]

Passe de Request.Form para apenas Request. e passe no link o campo e a variável para a próxima página.

[Public2004 79]

Vai na dica do Salgado...

Veja um tópico semelhante:

http://forum.imasters.com.br/index.php?showtopic=305268

 

Abs.

[Matheus Brito 12]

Vai na dica do Salgado...

Veja um tópico semelhante:

http://forum.imasters.com.br/index.php?showtopic=305268

 

Abs.

Ola public eu entendi o que o salgado falou porem nao consegui aplicar aqui poderia demonstrar ai pra mim, através do meu exemplo.

abs

[Public2004 79]

Ok, aqui troque:

classe = Request.Form("classes")

por:

classe = Request("classes")

isto porque a primeira requisição é feita por Form, mas na paginação será por QueryString.

Depois inclua no link da paginação a variável "classe", ex:

Response.Write("<a href=""teste1.asp?Pages="&i&"&classes="&classe&""" class=""classFonte01"" title=""Página "&i&""">"&i&"</a>  ")

Abs.

[Matheus Brito 12]

Ok, aqui troque:

classe = Request.Form("classes")

por:

classe = Request("classes")

isto porque a primeira requisição é feita por Form, mas na paginação será por QueryString.

Depois inclua no link da paginação a variável "classe", ex:

Response.Write("<a href=""teste1.asp?Pages="&i&"&classes="&classe&""" class=""classFonte01"" title=""Página "&i&""">"&i&"</a>  ")

Abs.

 

Muito Obrigado Public 2004 e Salgado eu tava errando a sintaxe ai nao tva funfando enfim... vlw mesmo a ajuda aew.

abs