Contar numero de registros.

Hola
Primer declaras una variable TOTAL
dim total

Despues del SELECT * FROM XXX, pones esto:

If rs.EOF = FALSE then
total = 0
while not rs.EOF
total = total + 1
rs.MoveNext
wend
rs.MoveFirst
End If

Y despues en las paginas, pones algo asi:

<%
if total = 0 then
response.write "<center>No hay registros</center>"
else
Response.Write "<center>Cantidad de registros:" & total & "</center>"
end if
%>


FF
www.francofigun.com.ar
MSN:
Yahoo MSN:
"Jose A. Glez." wrote in message
news:

Hola a todos!!:

¿Alquien me podría facilitar un codigo que cuente el número de registros

que hay en

una base de datos Access??

Me sería de gran utilidad. gracias!!!



. . . . . . . . . . . . . .
Jose A. Glez. ·
. . .
Articulos, Actualizaciones, Programas...
http://www.worldseth.com (*.net)
. . . . . . . . . . . . . .

Gracias Franco!!!! ;-)




. . . . . . . . . . . . . .
Jose A. Glez. ·
. . .
Articulos, Actualizaciones, Programas...
http://www.worldseth.com (*.net)
. . . . . . . . . . . . . .

*** Franco Figún wrote/escribió (Mon, 12 Jul 2004 16:27:53 -0300):

Hola
Primer declaras una variable TOTAL
dim total

Despues del SELECT * FROM XXX, pones esto:

If rs.EOF = FALSE then
total = 0
while not rs.EOF
total = total + 1
rs.MoveNext
wend
rs.MoveFirst
End If

Funcionar funciona, claro, pero si en la base de datos tenemos 5000
registros con 30 campos cada uno estamos leyéndolos todos sólo para
contarlos, con lo que conseguiremos que la página vaya lentísima (eso, si
no la tumbamos directamente). Mejor:

SELECT COUNT(*) AS total FROM xxx

select count(x) as nombrevariables from nombretabla

Asi el nombrevariables te dira justo los registros la tabla.

Espero te sirva, un saludo.


"Jose A. Glez." escribió en el mensaje
news:

Hola a todos!!:

¿Alquien me podría facilitar un codigo que cuente el número de registros

que hay en

una base de datos Access??

Me sería de gran utilidad. gracias!!!



. . . . . . . . . . . . . .
Jose A. Glez. ·
. . .
Articulos, Actualizaciones, Programas...
http://www.worldseth.com (*.net)
. . . . . . . . . . . . . .