Conteo de Registros

[Fabu_dina]

Necesito depositar en una variable el numero de registros que cumpen una condicion en una db access el motivo es que despues hago un barrido de la db y en el ultimo registro tengo que hacer codigo diferente alguien me puede ayudar o suguerir alguna otra forma


Gracias

[Avelar]

¿Puedes explicar mejor? Tal vez poniendo una muestra de tu código.

¿Por qué tienes qué hacer un código distinto para el último registro?

Saludos

[Fabu_dina]

Lo que pasa es que al mostrar los registros se muestran de una forma y el ultimo requiero mostrarlo diferente

Aparte tengo un problema que si no se si me puedas ayudar mi db es demasiado grande y se da este error

Fuera de tiempo en la ejecucion del codigo

[Avelar]

Para que no te salga el error prueba asignándole a la conexión más tiempo para la ejecución de consultas.

Aún no entiendo el problema o lo que quieres hacer.

Saludos.

[Fabu_dina]

<div ID="mParent" class="parent">
<a name="ma" href="#" onClick="FolderExpand('m','top')">
<img name="mTree" src="images/topopen.gif" class="icon" align="absmiddle" border="0"><font
color="black" size="2" class="item">Catalogo General</font></a>
</div>

<div ID="mChild">
<%
blanco=""
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConString
' strsql="Select count(catalogName) from catalog"
' ultimo= Conn.Execute(strsql)
nivel=0
nivel_depto=0
' ultimo=0
' While Not rsDeptos.EOF
' ultimo=ultimo+1
' rsDeptos.MoveNext
' Wend
' rsDeptos.MoveFirst
strSQL = "SELECT * FROM catalogs Order By catalogNAME"
Set rsDeptos = Server.CreateObject("ADODB.Recordset")
rsDeptos.Open strSQL, Conn, adOpenStatic, adLockReadOnly, adCmdText
While Not rsDeptos.EOF
if rsDeptos("CatalogName")<>"" then
nivel=nivel+1
' if nivel<>ultimo then
if Not rsDeptos.EOF then
%>
<div ID="m<%=nivel%>Parent" class="parent"><a name="m<%=nivel%>a" href="#" onClick="FolderExpand('m<%=nivel%>')"><img name="m<%=nivel%>Tree" src="images/Tplus.gif" align="absmiddle" border="0"><img name="m<%=nivel%>Folder" src="images/foldericon.gif" class="icon" align="absmiddle" border="0"></a><font color="black" size="2" class="item"><input name="" type="checkbox" value="<%=rsDeptos("CatalogName")%>" <%if rsDeptos("shop_activo")="S" then%> checked<%end if%> onclick="javascript:switchAll(this.value,this.chec ked)"><%=rsDeptos("CatalogName")%></font></div>
<div ID="m<%=nivel%>Child" CLASS="child">
<% else%>
<div ID="m<%=nivel%>Parent" class="parent"><a name="m<%=nivel%>a" href="#" onClick="FolderExpand('m<%=nivel%>','last')"><img name="m<%=nivel%>Tree" src="images/Lplus.gif" align="absmiddle" border="0"><img name="m<%=nivel%>Folder" src="images/foldericon.gif" class="icon" align="absmiddle" border="0"></a><font color="black" size="2" class="item"><input name="" type="checkbox" value="<%=rsDeptos("CatalogName")%>" <%if rsDeptos("shop_activo")="S" then%> checked<%end if%> onclick="javascript:switchAll(this.value,this.chec ked)"><%=rsDeptos("CatalogName")%></font></div>
<div ID="m<%=nivel%>Child" CLASS="child">
<%
end if
Set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open ConString
strSQL1 = "SELECT distinct(DES_CAT_AR),* FROM products where productID>999 and catalogID='"& rsDeptos("CatalogName") &"' Order By DES_CAT_AR"
Set rsCategorias = Server.CreateObject("ADODB.Recordset")
rsCategorias.Open strSQL1, Conn1, adOpenStatic, adLockReadOnly, adCmdText

ultimo_cate=0
if rsCategorias.PageCount<>0 then
' While Not rsCategorias.EOF
' if rsCategorias("des_cat_ar")<>goya_categoria then
' goya_categoria=rsCategorias("des_cat_ar")
' ultimo_cate=ultimo_cate+1
' end if
' rsCategorias.MoveNext
' Wend
rsCategorias.MoveFirst
goya_categoria=""
nivel_depto=0
While Not rsCategorias.EOF
if rsCategorias("des_cat_ar")<>goya_categoria then
goya_categoria=rsCategorias("des_cat_ar")
nivel_depto=nivel_depto+1
'if nivel_depto<>ultimo_cate then
%>
<div ID="m<%=nivel%>_<%=nivel_depto%>Parent" class="parent"><a name="m<%=nivel%>_<%=nivel_depto%>a" href="#" onClick="FolderExpand('m<%=nivel%>_<%=nivel_depto% >')"><img src="images/I.gif" align="absmiddle" border="0"><img name="m<%=nivel%>_<%=nivel_depto%>Tree" src="images/Tplus.gif" align="absmiddle" border="0"><img name="m<%=nivel%>_<%=nivel_depto%>Folder" src="images/foldericon.gif" class="icon" align="absmiddle" border="0"></a><font color="black" size="2" class="item"><%=rsCategorias("DES_CAT_AR")%></font></div>
<div ID="m<%=nivel%>_<%=nivel_depto%>Child" CLASS="child">
<%'else%>
<!-- <div ID="m<%=nivel%>_<%=ultimo_cate%>Parent" class="parent"><a name="m<%=nivel%>_<%=ultimo_cate%>a" href="#" onClick="FolderExpand('m<%=nivel%>_<%=ultimo_cate% >','last')"><img src="images/I.gif" align="absmiddle" border="0"><img name="m<%=nivel%>_<%=ultimo_cate%>Tree" src="images/Tplus.gif" align="absmiddle" border="0"><img name="m<%=nivel%>_<%=ultimo_cate%>Folder" src="images/foldericon.gif" class="icon" align="absmiddle" border="0"></a><font color="black" size="2" class="item"><%=rsCategorias("DES_CAT_AR")%>_ultim a</font></div>
<div ID="m<%=nivel%>_<%=ultimo_cate%>Child" CLASS="child">-->
<%'end if%>
<%
' DESPLIEGA LAS MARCAS
Set Conn2 = Server.CreateObject("ADODB.Connection")
Conn2.Open ConString
strSQL2 = "SELECT distinct(DESC_MARCA),* FROM products where productID>999 and catalogID='"& rsDeptos("CatalogName") &"' and DES_CAT_AR='"& rsCategorias("Des_cat_ar") &"' Order By DESC_MARCA"
Set rsMarcas = Server.CreateObject("ADODB.Recordset")
rsMarcas.Open strSQL2, Conn2, adOpenStatic, adLockReadOnly, adCmdText
nivel_marca=0
ultimo_marca=0
rsMarcas.MoveFirst

if rsMarcas.PageCount<>0 then
' While Not rsMarcas.EOF
' if rsMarcas("DESC_MARCA")<>goya_marca then
' goya_marca=rsMarcas("DESC_MARCA")
' ultimo_marca=ultimo_marca+1
' end if
' rsMarcas.MoveNext
' Wend
goya_marca=""
rsMarcas.MoveFirst
While Not rsMarcas.EOF
if rsMarcas("DESC_MARCA")<>goya_marca then
nivel_marca=nivel_marca+1
goya_marca=rsMarcas("DESC_MARCA")
' if nivel_marca<>ultimo_marca then
if Not rsMarcas.EOF then
%>
<div ID="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca%>P arent" class="parent"><a name="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca% >a" href="#" onClick="FolderExpand('m<%=nivel%>_<%=nivel_depto% >_<%=nivel_marca%>')"><img src="images/I.gif" align="absmiddle" border="0"><img src="images/I.gif" align="absmiddle" border="0"><img name="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca% >Tree" src="images/Tplus.gif" align="absmiddle" border="0"><img name="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca% >Folder" src="images/foldericon.gif" class="icon" align="absmiddle" border="0"><font color="black" size="2" class="item"><%=rsMarcas("DESC_MARCA")%></font></a></div>
<div ID="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca%>C hild" CLASS="child">
<%else%>
<div ID="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca%>P arent" class="parent"><a name="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca% >a" href="#" onClick="FolderExpand('m<%=nivel%>_<%=nivel_depto% >_<%=nivel_marca%>','last')"><img src="images/I.gif" align="absmiddle" border="0"><img src="images/I.gif" align="absmiddle" border="0"><img src="images/Lplus.gif" name="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca% >Tree" width="19" height="20" border="0" align="absmiddle"><img name="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca% >Folder" src="images/foldericon.gif" class="icon" align="absmiddle" border="0"><font color="black" size="2" class="item"><%=rsMarcas("DESC_MARCA")%>_ultimo</font></a></div>
<div ID="m<%=nivel%>_<%=nivel_depto%>_<%=nivel_marca%>C hild" CLASS="child">
<%end if%>
<%
' DESPLIEGA LOS ARTICULOS
Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open ConString
strSQL3 = "SELECT distinct(productIMG),* FROM products where productID>999 and desc_marca='"&rsMarcas("DESC_MARCA")&"' and catalogID='"& rsDeptos("CatalogName") &"' and DES_CAT_AR='"& rsCategorias("Des_cat_ar") &"' Order By productIMG"
Set rsArticulos = Server.CreateObject("ADODB.Recordset")
rsArticulos.Open strSQL3, Conn3, adOpenStatic, adLockReadOnly, adCmdText
nivel_articulo=0
ultimo_articulo=0
rsArticulos.MoveFirst

if rsArticulos.PageCount<>0 then
' While Not rsArticulos.EOF
' if rsArticulos("productIMG")<>goya_articulo then
' goya_articulo=rsArticulos("productIMG")
' ultimo_articulo=ultimo_articulo+1
' end if
' rsArticulos.MoveNext
' Wend
goya_articulo=""
rsArticulos.MoveFirst
While Not rsArticulos.EOF
' if rsArticulos("productIMG")<>goya_articulo then
nivel_articulo=nivel_articulo+1
goya_articulo=rsArticulos("productIMG")
' if nivel_articulo<>ultimo_articulo then
if Not rsArticulos.EOF then
%>
<img src="images/I.gif" align="absmiddle"><img src="images/I.gif" align="absmiddle"><img src="images/I.gif" align="absmiddle"><img src="images/T.gif" align="absmiddle"><img src="images/htmlicon.gif" align="absmiddle" class="icon"><a class="item" href="#"><%=rsArticulos("productIMG")%> / <%=rsArticulos("productName")%></a><br>
<%else%>
<img src="images/I.gif" align="absmiddle"><img src="images/I.gif" align="absmiddle"><img src="images/I.gif" align="absmiddle"><img src="images/L.gif" align="absmiddle"><img src="images/htmlicon.gif" align="absmiddle" class="icon"><a class="item" href="#">Document 3</a><br>
<img src="images/I.gif" align="absmiddle"><img src="images/I.gif" align="absmiddle"><img src="images/I.gif" align="absmiddle"><img src="images/L.gif" align="absmiddle"><img src="images/htmlicon.gif" align="absmiddle" class="icon"><a class="item" href="#"><%=rsArticulos("productIMG")%> / <%=rsArticulos("productName")%> /ultimo</a><br>
<%
end if
' end if
rsArticulos.MoveNext
wend
end if
rsArticulos.Close
Set rsArticulos = Nothing
Conn3.Close
set Conn3 = Nothing
%>
</div>
<%end if%>
<%
rsMarcas.MoveNext
Wend
end if
rsMarcas.Close
Set rsMarcas = Nothing
Conn2.Close
set Conn2 = Nothing

%>
</div>
<%end if%>
<%
rsCategorias.MoveNext
Wend
end if
rsCategorias.Close
Set rsCategorias = Nothing
Conn1.Close
set Conn1 = Nothing
%>
<!--</div>-->
</div>
<%
end if
rsDeptos.MoveNext
Wend
rsDeptos.Close
Set rsDeptos = Nothing
Conn.Close
set Conn = Nothing
%>

</div>

[Avelar]

¿Ya probaste con el rs.Count?

[Fabu_dina]

no lo he hecho mira si te fijas en el ciclo puse que: if Not rs.EOF hace algo y si no hace otro codigo pero el segundo nunca lo hace
ademas me hace muy tardado todo esto

[Avelar]

Verifica que la linea que contiene el .MoveNext se esté leyendo... yo no tengo buena legibilidad porque no tiene identación el código así como lo pegaste. De seguro es eso.

[Benjact]

Yo haria un "For i=0 to (rs.Count-1)" (ahora no se si tiene que ser i=0 o i=1, es probarlo) y los mostraría de la primera forma. Después del For ya estaría en el último registro (o sino justo después hago un rs.Movenext para estar en el último) y lo muestro con el nuevo código.

Haciendolo así evitaría tener que comprobar cada vez si es el penúltimo registro.

No se si te puedo ser de alguna ayuda.