cantidad de registros

FedEx · #1 (**permalink**) 12/07/2004, 08:11

Necesito que me muestre cuantos registros con "X" características hay en mi base.
Hice lo siguiente, pero siempre me da -1, lo cual me parece que es porque esta mal el recordcount
Les dejo el código que se me ocurrio.
Gracias!!
<%
dim con,rs,sql

set con = server.createobject("ADODB.Connection")
set rs = server.createobject("ADODB.Recordset")

sql = "SELECT * FROM coti WHERE dolar='actua' and ver='ver' and nover='nover' "

con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath(".\base.mdb")
con.open
rs.open sql,con
resultado=rs.RecordCount
response.write ("Total de registros:")&vbtab&(resultado)
%>

mamon · #2 (**permalink**) 12/07/2004, 08:59

<%
dim con,rs,sql

set con = server.createobject("ADODB.Connection")
sql = "SELECT count(*) as numero FROM coti WHERE dolar='actua' and ver='ver' and nover='nover' "

con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &Server.MapPath(".\base.mdb")
con.open con.connectionstring

set rs = con.execute(sql)

response.write ("Total de registros:")&vbtab&(rs("numero"))
%>

mamon · #3 (**permalink**) 12/07/2004, 09:01

bueno no sé si he puesto bien lo de conectarte a tu BD, eso es lo demenos.. lo que si de de estar es el valor de "sql" y set rs = con.execute(sql)

yo siempre abro las tablas asi, y es casi universal eso... lo importante es el count(*) as numero, y para mostrarlo es asi: rs("numero")... si quieres no pones "numero" y pones otra cosa, eso es lo demenos

FedEx · #4 (**permalink**) 12/07/2004, 09:06

Muchisimas Gracias!!!
Funciono perfecto

AlZuwaga · #5 (**permalink**) 12/07/2004, 10:10

lo del problema del -1 en el recordcuont es por cómo abrís el recordset.
Ahora no recuerdo exactamente qué parámetros lleva, pero intentá abrirlo así:

rs.open sql,con,3,3

Martincho · #6 (**permalink**) 30/08/2004, 12:10

Ya probe de abrir el record set con todos los tipos de cursores, pero la propiedad RecordCount sigue devolviendome -1.
Estoy trabajando sobre windowsxp con VB6 y mysql.
Yo supongo que puede tener algo que ver con la conexion, la que estoy usando es esta: DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=abacosoft; UID=root; PWD=; OPTION=16384

Si alguien sabe cual es el problema, voy a estar muy agradecido.
Saludos.-

Martincho · #7 (**permalink**) 06/09/2004, 14:17

Saludos.

mamon · #8 (**permalink**) 06/09/2004, 14:23

debes poner rs.open sql,con,3,1

JosephFley · #9 (**permalink**) 06/09/2004, 14:58

[QUOTE=Martincho]trabajando sobre windowsxp con VB6 y mysql.
Yo supongo que puede tener algo que ver con la conexion, la que estoy usando es esta: DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost; DATABASE=abacosoft; UID=root; PWD=; OPTION=16384QUOTE]

Saludos,

Tu base de datos es Mysql?, entonces no le des más vuelta al asunto el Driver ODBC de Mysql no permite esta opcion, ni tampoco PageSize, AbsolutePage y algunas otras...

Creo que en Mysql.com hay un workaround para sacarlo pero no recuerdo donde...

Martincho · #10 (**permalink**) 07/09/2004, 18:42

Muchas Gracias. Suponía que podía ser algo asi, por eso decidí usar SELECT COUNT(*) en una función llamada Contar("nombre_tabla","condicion").
Saludos.

mamon · #11 (**permalink**) 07/09/2004, 22:02

OK, este lo cree yo.. si me funciona y espero q les funcione a Uds. Es para mostrar 10 numeros como máximo. si queremos mostrar 9 paginas.. cada numero que vean le bajan una unidad, si quieren mostrar 8, le bajan 2 unidades.. y así sucesivamente.
<%
'cant_paginas = a la cantidad de páginas que se crean x la paginacion
'pagina_actual = a la página en que estamos

if cant_paginas > 10 then
xcant = pagina_actual + 9
if xcant > cant_paginas then xcant = cant_paginas
xpagina = pagina_actual
if xcant - xpagina < 12 then xpagina = xpagina - ((10) - (xcant - xpagina + 1))
else
xcant = cant_paginas
xpagina = 1
end if
For I = xpagina To xcant
response.write(I)
Next
%>