none
Paginação com colunas RRS feed

  • Pergunta

  • Boa tarde Pessoal,

    Estou desenvolvendo um site onde na página de produtos, já existe uma grande quantidade de registros. Para resolver isso, com ajuda do prof Google encontrei o link abaixo:

    http://forum.imasters.com.br/topic/388690-paginacao-em-asp-sem-limit-sql-e-absolutepage-asp/

    Essa páginação é o que eu preciso, então resolvi implantá-la. Antes de colocar pra rodar, fiz testes pra entender como funciona e fiquei muito contente com o resultado. Porém, ao colocar na minha página de produtos, me deparei com um problema. Coloco os produtos divididos em colunas (4 colunas por linha) e não estou conseguindo fazer funcionar direito. Provavelmente estou fazendo algo errado. Olhem como eu coloco os produtos em coluna:

     

    <table style="width: 100%">
    	<tr>
    	<td>
    		<table style="width: 100%; height: 100%;" cellpadding="0" cellspacing="10">
    		<%
    			' ## Retorna Produtos...
    			Set cmdRetornaProdutos = Server.CreateObject("ADODB.Command")
    			cmdRetornaProdutos.ActiveConnection = DataProdutos
    			if request("buscar") = "" then
    				if request("categoriaid") = "" then
    					cmdRetornaProdutos.CommandText = "Select * from TBProdutos where StatusProduto = 1"
    				else
    					cmdRetornaProdutos.CommandText = "Select * from TBProdutos where CategoriaProduto = " & request("categoriaid") & " and StatusProduto = 1"	
    				end if
    			else
    				cmdRetornaProdutos.CommandText = "Select * from TBProdutos where NomeProduto like '%" & request("Buscar") & "%' or DescricaoProduto like '%" & request("Buscar") & "%' or CodigoCatalogo = '" & request("Buscar") & "' and StatusProduto = 1"
    			end if
    			if request("filtro") = 1 then
    				cmdRetornaProdutos.CommandText = "Select * from TBProdutos where ProdutoPromo = 1 and StatusProduto = 1"
    			end if
    			cmdRetornaProdutos.CommandType = 1
    			Set rsRetornaProdutos = Server.CreateObject("ADODB.Recordset")
    			rsRetornaProdutos.Open cmdRetornaProdutos, , 3, 3
    
    			Coluna = 0
    
    			if rsRetornaProdutos.recordcount = 0 then
    			%>
    
    			<tr>
    				<td>
    					Que pena!<br/>
    					Nenhum resultado foi encontrado para a sua busca. Tente novamente ou navegue através das categorias acima.
    				</td>
    			</tr>
    
    			<%
    			end if
    			%>
    
    			<tr>
    			<td style="height: 100%" valign="top">
    				<table cellpadding="0" cellspacing="3" style="width: 100px">
    				<tr>
    				<%	
    					do while not rsRetornaProdutos.EOF
    					Coluna = Coluna + 1
    				%>
    				<td valign="top" align="left" class="auto-style2">
    						<%
    						Set Arquivo = Server.CreateObject("Scripting.FileSystemObject")
    						if Arquivo.FileExists( Server.MapPath("galerias\produtos\" & rsRetornaProdutos("CodigoProduto") & "\foto"&rsRetornaProdutos("FotoPrincipal")&".jpg") )Then
    						%>
    						<a href='exibe_produto.asp?produtoid=<% =rsRetornaProdutos("CodigoProduto") %>' title='Código: <% =rsRetornaProdutos("CodigoCatalogo") %>'>
    						<img src="galerias/produtos/<% =rsRetornaProdutos("CodigoProduto") %>/foto<% =rsRetornaProdutos("FotoPrincipal") %>.jpg" width="107" class="auto-style1" /></a>
    						<% else %>
    						<a href='exibe_produto.asp?produtoid=<% =rsRetornaProdutos("CodigoProduto") %>' title='Código: <% =rsRetornaProdutos("CodigoCatalogo") %>'>
    						<img src="img/semfoto.jpg" width="107" class="auto-style1" /></a>
    						<% end if %>
    					<p style="font-size:9pt" align="left">
    					<strong><% =rsRetornaProdutos("NomeProduto") %></strong><br /> 
    					<a style="text-decoration:none; color:black" href='exibe_produto.asp?produtoid=<% =rsRetornaProdutos("CodigoProduto") %>' title='Código: <% =rsRetornaProdutos("CodigoCatalogo") %>'>
    					<%
    					Set er = new RegExp
    					er.Pattern = "<[^>]*>"
    					er.Global = True
    					Response.Write er.Replace(left(rsRetornaProdutos("DescricaoProduto"),80) & "...", "")
    					%>
    					</a>
    					</p>
    				</td>
    				<td valign="top" align="center" style=" background-image:url('img/separacao_vitrine.gif'); background-repeat:no-repeat; width: 1px;" >&nbsp;</td>
    					<%
    						if Coluna = 7 then
    							response.write "</tr><tr>"
    							response.write "<td colspan=5>&nbsp;</td>"
    							response.write "</tr>"
    							Coluna = 0
    						end if
    						rsRetornaProdutos.movenext	
    						loop
    					%>
    				</tr>
    				</table>
    		</td>
    		</tr>
    		</table>
    	</td>
    	</tr>
    </table>
    

    O que devo fazer para integrar as duas soluções?


    Eder Pardeiro
    quarta-feira, 6 de abril de 2011 20:21

Respostas

  • Eder, desculpe, vai ter que voltar a variavel contador, declara ela:

    contador = 0

    No while coloca assim:

    do while not rsListaProdutos.EOF and contador  <= rsListaProdutos.PageSize
         contador = contador + 1

     


    Abraço

    Estevam

    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    • Marcado como Resposta Eder Pardeiro quinta-feira, 7 de abril de 2011 16:41
    quinta-feira, 7 de abril de 2011 16:33

Todas as Respostas

  • Eder, explique melhor que defeito esta ocorrendo.

    Em todo caso, veja que você inseriu o código abaixo, dentro da tag TR e você deverá criar as outras TRs fora dela.

    <%
    if Coluna = 7 then
    response.write "</tr><tr>"
    response.write "<td colspan=5>&nbsp;</td>"
    response.write "</tr>"
    Coluna = 0
    end if
    rsRetornaProdutos.movenext
    loop
    %>

     


    Abraço

    Estevam

    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    quarta-feira, 6 de abril de 2011 20:50
  • Na verdade não da erro... Quando coloco as duas soluções, ele exibe a paginação embaixo... normalmente... mas não importa a quantidade que eu setar la em cima.. ele mostra uma quantidade estranha de produtos, não é um numero preciso, as vezes ele mostra uma quantidade, as vezes outra... tá muito estranho...

    Olha como eu coloquei:

    			<table style="width: 100%">
    				<tr>
    					<td>
    					<table cellpadding="0" cellspacing="4" style="height: 100px; width: 151px;">
    				<tr>
    <%
    	' ## Retorna Produtos...
    	Set cmdListaProdutos = Server.CreateObject("ADODB.Command")
    	cmdListaProdutos.ActiveConnection = DataProdutos
    	if request.querystring("categoriaid") <> "" then
    		cmdListaProdutos.CommandText = "Select * from TBProdutos where StatusProduto = 1 and categoriaproduto = " & request("categoriaid") & " order by CodigoProduto desc"
    	else
    		cmdListaProdutos.CommandText = "Select * from TBProdutos where StatusProduto = 1 order by CodigoProduto desc"	
    	end if
    	cmdListaProdutos.CommandType = 1
    	Set rsListaProdutos = Server.CreateObject("ADODB.Recordset")
    	rsListaProdutos.Open cmdListaProdutos, , 3, 3
    	
    
    	registrosPagina = 5 'Registros por página
    	totalRegistros = rsListaProdutos.recordcount 'Total de registros no banco
    	
    	totalRegistroPagina = totalRegistros/registrosPagina 
    	
    	If (Int(totalRegistroPagina)-totalRegistroPagina < 0) then 
    		totalRegistroPagina = int(totalRegistroPagina) + 1
    	end if
    	
    	pagina = 1
    	
    	If Request.QueryString("pagina")<>"" Then 
    		pagina = CInt(Request.QueryString("pagina"))
    	end if
    	
    	inicio = ( pagina - 1 ) * registrosPagina 
    	final = registrosPagina + inicio 
    
    	contador = 0
    
    	
    	
    %>
    					
    					
    							<% Coluna = 0 %>
    							<%
    							
    							do while not rsListaProdutos.EOF 
    							contador = contador + 1
    							If contador>inicio Then 
    
    
    	  Dim objFS
        Set objFS = Server.CreateObject("Scripting.FileSystemObject")
        If Not objFS.FolderExists(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "") ) Then
        objFS.CreateFolder(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "") )
        Response.Write ""
        End if
    
        If Not objFS.FolderExists(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "/temp") ) Then
        objFS.CreateFolder(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "/temp") )
        Response.Write ""
        End if
    
        If Not objFS.FolderExists(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "/Miniaturas") ) Then
        objFS.CreateFolder(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "/Miniaturas") )
        Response.Write ""
        End if
    
        Set objFS = Nothing
    
    
    								' ## Retorna Categoria...
    								Set cmdCategoriaProduto = Server.CreateObject("ADODB.Command")
    								cmdCategoriaProduto.ActiveConnection = DataProdutos
    								cmdCategoriaProduto.CommandText = "Select * from TBCategorias where CodigoCategoria = " & rsListaProdutos("CategoriaProduto")
    								cmdCategoriaProduto.CommandType = 1
    								Set rsCategoriaProduto = Server.CreateObject("ADODB.Recordset")
    								rsCategoriaProduto.Open cmdCategoriaProduto, , 3, 3
    								
    								if rsCategoriaProduto("StatusCategoria") = 1 then
    								
    									
    							
    							Coluna = Coluna + 1
    							%>
    				
    					<td style="background-color: #FFFFFF;" class="auto-style61" valign="top">
    					<table style="width: 250px; height: 100%">
    						<tr>
    							<td style="height: 100%">
    							<table style="width: 100%; height: 100%">
    								<tr>
    									<td align="center" valign="top">
    <%
    ' Definimos as variaveis.
    Dim objFso, objArquivo
    Dim strCaminho
    
    ' Definindo a pasta onde vão ser listados os arquivos
    strCaminho = Server.MapPath("galerias/produtos/"&rsListaProdutos("CodigoProduto"))
    
    ' Instanciando o FSO
    Set objFso = Server.CreateObject("Scripting.FileSystemObject")
    ' Aqui setamos que pegamos arquivos somente de um diretório
    Set objArquivo = objFso.GetFolder(strCaminho)
    
    
    %>
    
    							
    <%
    if objArquivo.Files.Count <> 0 Then
    %>
    		<a title="<% =rsListaProdutos("NomeProduto") %>" href="exibe_produto.asp?produtoid=<% =rsListaProdutos("CodigoProduto") %>">
    		<img width="110" src="galerias\produtos\<% =rsListaProdutos("CodigoProduto") %>\foto<% =rsListaProdutos("FotoPrincipal") %>.jpg" class="auto-style3" align="top" /></a>
    <%
    else
    %>
    		<a href='exibe_produto.asp?produtoid=<% =rsListaProdutos("CodigoProduto") %>' title='<% =rsListaProdutos("NomeProduto") %>'>
    		<img border="0" src="img/semfoto.jpg" width="110" alt='<% =rsListaProdutos("NomeProduto") %>' longdesc='<% =rsListaProdutos("DescricaoProduto") %>' align="top" /></a><a title="<% =rsListaProdutos("NomeProduto") %>" href="#">
    <%
    end if
    %>
    
    
    <%										
    ' Liberando objetos da memória
    Set objArquivo = Nothing
    Set objFso = Nothing
    %>									
    									</td>
    									<td align="right" rowspan="3" valign="top">
    																			
    									</td>
    								</tr>
    								<tr>
    									<td style=" text-align:left; height: 100%" valign="top">
    						<% =rsListaProdutos("NomeProduto") %><br /><br />
    						<% if rsListaProdutos("ProdutoPromo") <> 3 then %>
    						<% if rsListaProdutos("ProdutoPromo") = 1 then %>
    								De:&nbsp;<font style="text-decoration:line-through" ><% =formatcurrency(rsListaProdutos("ValorProduto")) %></font><br />
    								Por:&nbsp;<font style="font-size:11pt; color:red"><% =formatcurrency(rsListaProdutos("ValorProduto") - rsListaProdutos("DescontoProduto")) %></font><br />
    								Economia:&nbsp;<% =formatcurrency(rsListaProdutos("DescontoProduto")) %>
    							<% else %>
    								Por:&nbsp;<% =formatcurrency(rsListaProdutos("ValorProduto") - rsListaProdutos("DescontoProduto")) %>
    							<% end if %>
    							<br />
    							<br />
    						<% end if %>
    									
    									</td>
    								</tr>
    								<tr>
    									<td valign="bottom" class="auto-style2">
    									<a href='exibe_produto.asp?produtoid=<% =rsListaProdutos("CodigoProduto") %>'>
    									<img height="22" src="img/detalhes.gif" width="76" class="auto-style1" /></a></td>
    								</tr>
    							</table>
    							</td>
    						</tr>
    					</table>
    					</td>
    							<%
    								if Coluna = 3 then
    								response.write "</tr><tr>"
    								Coluna = 0
    								end if
    							%>
    
    							<% 
    								end if
    								end if
    								rsListaProdutos.movenext
    								loop
    							%>
    					
    				</tr>
    			</table>
    					</td>
    				</tr>
    			</table>
    <div style="text-align:center">
     <%
     	if pagina >= 1 then
     	
     		if pagina > 1 then
     			response.Write "<a href=""produtos.asp?filtro="&request("filtro")&"&categoriaid="&request("categoriaid")&"&pagina="&(pagina-1)&""">Anterior</a>"
     		end if
     	
     	For i=1 to totalRegistroPagina
     		
     		If i=pagina Then
     			response.Write "<a href=""produtos.asp?filtro="&request("filtro")&"&categoriaid="&request("categoriaid")&"&pagina="&i&""">[ "&i&" ]</a>&nbsp;"
     		else
     			response.Write "<a href=""produtos.asp?filtro="&request("filtro")&"&categoriaid="&request("categoriaid")&"&pagina="&i&"""> "&i&" </a>&nbsp;"
     		end if
     		
     	next
    	 	If totalRegistroPagina>pagina Then
    	 		response.Write "<a href=""produtos.asp?filtro="&request("filtro")&"&categoriaid="&request("categoriaid")&"&pagina="&(pagina+1)&""">Pr&oacute;xima</a>"
    	 	end if
     	end if
     %>
     </div>
    
    

    No aguardo,


    Eder Pardeiro
    quarta-feira, 6 de abril de 2011 21:45
  • Eder,  infelzimente só olhando assim o código fica bem complicado saber o que extamente está ocorrendo ai! Você comentou que quantidade não estã batendo, mas você usa a variavel totalRegistros para mostrar esta quantidade?

     


    Abraço

    Estevam

    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    quarta-feira, 6 de abril de 2011 22:09
  • Sim... agora, por exemplo... eu coloquei 1 registro por página...

    ele está exibindo 48... e detalhe.. la em baixo onde aparecem os numeros das páginas, aparecem 48... como se fosse uma página para cada produto... conforme vou avançando as páginas, os registros se repitindo, porém vão diminuindo...

    Coloquei em um local temporário... http://www.zaupe.com.br/estevam/produtos.asp

    Se quiser baixar a página pra olhar o código: http://www.zaupe.com.br/estevam/produtos.zip

    fico no aguardo....


    Eder Pardei
    quarta-feira, 6 de abril de 2011 22:31
  • Eder, fiz algumas alterações e adições no código, como não consegui testar provavelmente ocorrerá algum erro. Adicionei PageSize e AbsolutePage no recordset se não a paginação não funcionaria e você teria que ficar controlando pela variável contador. Faças os testes.

    <%
    	' ## Retorna Produtos...
    	Set cmdListaProdutos = Server.CreateObject("ADODB.Command")
    	cmdListaProdutos.ActiveConnection = DataProdutos
    	
    	if request.querystring("categoriaid") <> "" then
    		cmdListaProdutos.CommandText = "Select * from TBProdutos where StatusProduto = 1 and categoriaproduto = " & request("categoriaid") & " order by CodigoProduto desc"
    	else
    		cmdListaProdutos.CommandText = "Select * from TBProdutos where StatusProduto = 1 order by CodigoProduto desc"	
    	end if
    	
    	cmdListaProdutos.CommandType = 1
    	Set rsListaProdutos = Server.CreateObject("ADODB.Recordset")
    	rsListaProdutos.Open cmdListaProdutos, , 3, 3
    	
    	registrosPagina = 10 'Registros por página
    	rsListaProdutos.PageSize = registrosPagina 'Marca quantos registros terão cada página no recordset
    	totalRegistros = rsListaProdutos.recordcount 'Total de registros no banco
    	
    	registrosRestantes = totalRegistros mod registrosPagina
    	totalPaginas = CInt(totalRegistros/registrosPagina)
    	if ( registrosRestantes < 5 ) Then totalPaginas = totalPaginas + 1 End If
    	
    	inicio = 1
    	final = totalPaginas
    	
    	pagina = Request.QueryString("pagina")
    	if ( pagina <> "" ) Then
    		If CInt(pagina) > 0 Then 
    			pagina = CInt(pagina)
    			if ( pagina > totalPaginas ) Then
    				pagina = totalPaginas
    			End If
    		else
    			pagina= 1
    		End If
    	else
    		pagina = 1
    	End If
    	
    	'Marca a pagina que esta o recodset
    	rsListaProdutos.AbsolutePage = pagina
    	
    	Coluna = 0
    								
    	do while not rsListaProdutos.EOF 
    		
    		Dim objFS
    		Set objFS = Server.CreateObject("Scripting.FileSystemObject")
    		If Not objFS.FolderExists(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "") ) Then
    			objFS.CreateFolder(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "") )
    			Response.Write ""
    		End if
    
    		If Not objFS.FolderExists(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "/temp") ) Then
    			objFS.CreateFolder(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "/temp") )
    			Response.Write ""
    		End if
    
    		If Not objFS.FolderExists(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "/Miniaturas") ) Then
    			objFS.CreateFolder(Server.MapPath("galerias/produtos/"& rsListaProdutos("CodigoProduto") & "/Miniaturas") )
    			Response.Write ""
    		End if
    
    		Set objFS = Nothing
    
    		' ## Retorna Categoria...
    		Set cmdCategoriaProduto = Server.CreateObject("ADODB.Command")
    		cmdCategoriaProduto.ActiveConnection = DataProdutos
    		cmdCategoriaProduto.CommandText = "Select * from TBCategorias where CodigoCategoria = " & rsListaProdutos("CategoriaProduto")
    		cmdCategoriaProduto.CommandType = 1
    		Set rsCategoriaProduto = Server.CreateObject("ADODB.Recordset")
    		rsCategoriaProduto.Open cmdCategoriaProduto, , 3, 3
    
    		if rsCategoriaProduto("StatusCategoria") = 1 then
    
    							Coluna = Coluna + 1
    							%>				
    					<td style="background-color: #FFFFFF;" class="auto-style61" valign="top">
    					<table style="width: 250px; height: 100%">
    						<tr>
    							<td style="height: 100%">
    							<table style="width: 100%; height: 100%">
    								<tr>
    									<td align="center" valign="top">
    <%
    ' Definimos as variaveis.
    Dim objFso, objArquivo
    Dim strCaminho
    
    ' Definindo a pasta onde vão ser listados os arquivos
    strCaminho = Server.MapPath("galerias/produtos/"&rsListaProdutos("CodigoProduto"))
    
    ' Instanciando o FSO
    Set objFso = Server.CreateObject("Scripting.FileSystemObject")
    ' Aqui setamos que pegamos arquivos somente de um diretório
    Set objArquivo = objFso.GetFolder(strCaminho)
    
    if objArquivo.Files.Count <> 0 Then
    %>
    		<a title="<% =rsListaProdutos("NomeProduto") %>" href="exibe_produto.asp?produtoid=<% =rsListaProdutos("CodigoProduto") %>">
    		<img width="110" src="galerias\produtos\<% =rsListaProdutos("CodigoProduto") %>\foto<% =rsListaProdutos("FotoPrincipal") %>.jpg" class="auto-style3" align="top" /></a>
    <%
    else
    %>
    		<a href='exibe_produto.asp?produtoid=<% =rsListaProdutos("CodigoProduto") %>' title='<% =rsListaProdutos("NomeProduto") %>'>
    		<img border="0" src="img/semfoto.jpg" width="110" alt='<% =rsListaProdutos("NomeProduto") %>' longdesc='<% =rsListaProdutos("DescricaoProduto") %>' align="top" /></a><a title="<% =rsListaProdutos("NomeProduto") %>" href="#">
    <%
    end if
    %>
    
    
    <%										
    ' Liberando objetos da memória
    Set objArquivo = Nothing
    Set objFso = Nothing
    %>									
    									</td>
    									<td align="right" rowspan="2" valign="top">
    									</td>
    								</tr>
    								<tr>
    									<td style=" text-align:left; height: 100%" valign="top">
    										<% =rsListaProdutos("NomeProduto") %><br /><br />
    										<% if rsListaProdutos("ProdutoPromo") <> 3 then %>
    										<% if rsListaProdutos("ProdutoPromo") = 1 then %>
    												De:&nbsp;<font style="text-decoration:line-through" ><% =formatcurrency(rsListaProdutos("ValorProduto")) %></font><br />
    												Por:&nbsp;<font style="font-size:11pt; color:red"><% =formatcurrency(rsListaProdutos("ValorProduto") - rsListaProdutos("DescontoProduto")) %></font><br />
    												Economia:&nbsp;<% =formatcurrency(rsListaProdutos("DescontoProduto")) %>
    											<% else %>
    												Por:&nbsp;<% =formatcurrency(rsListaProdutos("ValorProduto") - rsListaProdutos("DescontoProduto")) %>
    											<% end if %>
    											<br />
    											<br />
    										<% end if %>
    									</td>
    								</tr>
    								</table>
    							</td>
    						</tr>
    					</table>
    					</td>
    							<%
    								if Coluna = 3 then
    								response.write "</tr><tr>"
    								Coluna = 0
    								end if
    							%>
    
    							<% 
    								end if
    								end if
    								rsListaProdutos.movenext
    								loop
    							%>
    							</tr>
    						</table>
    					</td>
    				</tr>
    			</table>
    <div style="text-align:center">
     <%
     	if pagina >= 1 then
     		if pagina > 1 then
     			response.Write "<a href=""produtos.asp?filtro="&request("filtro")&"&categoriaid="&request("categoriaid")&"&pagina="&(pagina-1)&""">Anterior</a>"
     		end if 	
    		For i=1 to totalPaginas
    			If i=pagina Then
    				response.Write "<a href=""produtos.asp?filtro="&request("filtro")&"&categoriaid="&request("categoriaid")&"&pagina="&i&""">[ "&i&" ]</a>&nbsp;"
    			else
    				response.Write "<a href=""produtos.asp?filtro="&request("filtro")&"&categoriaid="&request("categoriaid")&"&pagina="&i&"""> "&i&" </a>&nbsp;"
    			end if
    		next
    	 	If pagina < totalPaginas Then
    	 		response.Write "<a href=""produtos.asp?filtro="&request("filtro")&"&categoriaid="&request("categoriaid")&"&pagina="&(pagina+1)&""">Pr&oacute;xima</a>"
    	 	end if
     	end if
     %>

     


    Abraço

    Estevam

    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    quinta-feira, 7 de abril de 2011 02:32
  • Xiii Estevam...

    O mesmo problema... ele exibe diversos registros na mesma página... muito alem do que foi definido na variavel registrosPagina


    Eder Pardeiro
    quinta-feira, 7 de abril de 2011 16:15
  • Eder, desculpe, vai ter que voltar a variavel contador, declara ela:

    contador = 0

    No while coloca assim:

    do while not rsListaProdutos.EOF and contador  <= rsListaProdutos.PageSize
         contador = contador + 1

     


    Abraço

    Estevam

    **** Se a reposta foi útil, então não esqueça de marca-lá. ***
    • Marcado como Resposta Eder Pardeiro quinta-feira, 7 de abril de 2011 16:41
    quinta-feira, 7 de abril de 2011 16:33
  • Valeu Estevam.... Muito obrigado, funcionou perfeitamente!!!
    Eder Pardeiro
    quinta-feira, 7 de abril de 2011 16:41