Muestra cuantos resultados

[FedEx]

Quisiera saber como puedo hacer para cuando realizo una busqueda dentro de mi mdb me diga cuantos resultados hubo.
Gracias

[AlZuwaga]

objRecordset.RecordCount te devuelve la cantidad de registros

[_Brian_]

Sql="Select * from cosas"

ObjRecordSet.Open Sql, cn ,3,3
cuenta=objRecordset.RecordCount

[FedEx]

No logro que me quede lo que estoy buscando
La idea es que cuando realizo la busqueda me devuelva lo que estoy buscando mas el mensaje ("x"= encotrados)
Gracias
<%
'================================================= ===
'aca es donde realizo la busqueda en la base de datos
'================================================= ===
if request.form <> "" then
dim con,rs,sql
dim nombre

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

nombre = request.form("nombre")


sql = "SELECT * FROM Usuarios WHERE id > 0"


if nombre <> "" then sql = sql & " AND Nombre like '"&nombre&"%'"
%>


<table width="99%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="32%"><font size="2">Nombre</FONT></td>
<td width="25%"><font size="2">Tipo</td>
<td width="10%"><font size="2">Numero de reclamo</td>
<td width="15%"><font size="2">Fecha</td>
<td width="15%"><font size="2">Estado</td>
<td width="15%"><font size="2">Canal</td>
<td width="9%">.....</td>
<td width="9%">.....</td>
</tr>
<%
'================================================= =
'aca es donde muestra los resultados de la busqueda
'================================================= =
response.write ("<hr>")
response.write ("resultados:<br>")
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\fede\csc\reclamos\basededatos.mdb"
con.open
rs.open sql,con, adopenkeyset

dim i
do until rs.eof = true
i=i+1
%>

<table width="99%" border="0" >
<tr bgcolor="#EEEEEE">
<td width="32%"><font size="2"><% response.write(rs.fields("Apellido")& vbtab)
response.write(rs.fields("Nombre")) %></font></td>
<td width="25%"><font size="2"><%response.write(rs.fields("tipodereclamo "))%></font></td>
<td width="10%"><font size="2"><%response.write(rs.fields("ReclamoN"))%> </font></td>
<td width="15%"><font size="2"><%response.write(rs.fields("fecha"))%></font></td>
<td width="15%"><font size="2"><%response.write(rs.fields("estado"))%></font></td>
<td width="15%"><font size="2"><%response.write(rs.fields("canal"))%></font></td>
<td width="9%"><font size="2"><%response.write("<a href=""desc.asp?x=" & rs.fields("ID") & Chr(34) & "><img src=""../Imagines/ico_msgforo.gif"" width=""16"" height=""16"" border=""0""> </a>"&"<BR>")%></font></td>
<td width="9%"><font size="2"><%response.write("<a href=""imprime.asp?x=" & rs.fields("ID") & Chr(34) & "><img src=""../Imagines/imp.gif"" width=""16"" height=""16"" border=""0""> </a>"&"<BR>") %></font></td>
</tr>

</table>



<%

rs.movenext
loop

set con = nothing
set rs = nothing
end if
%>

[Myakire]

con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\fede\csc\reclamos\basededatos.mdb"
con.open
rs.open Sql, cn ,3,3

cuenta=rs.RecordCount

Con esta variable haces lo que tenas que hacer con el número de registros devueltos.

Saludos

[FedEx]

Gracias a todos todos!!!
Lo puse de la siguiente manera y funciono
con.connectionstring = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= C:\fede\csc\reclamos\basededatos.mdb"
con.open
rs.open Sql,con ,3,3
cuenta=rs.RecordCount
response.write ("resultados de la busqueda")&(cuenta)

[Tarecito]

yo hago lo mismo y me sale -1 .... alguien sabe x q??

[AlZuwaga]

es por como estás abriendo el recordset... ahora no recuerdo, pero aparentemente es como dicen arriba:


rs.open Sql,con,3,3

[Tarecito]

tengo esto:

RS.Open strsql, oConn,3,3
total = RS.RecordCount
.
.
.

<%=total%>

y sale -1 cuando debería dar 20

[AlZuwaga]

ok, intentá en vez de ,3,3 con ,1,2

[Tarecito]

nada... sigue dando el maldito -1 :~(

[Tarecito]

x siaca.. jejejeje... la BD es MySQL, n se si tenga q ver algo

[AlZuwaga]

Haberlo dicho antes :p
Ya vi que pusiste un mensaje en la FAQ de ASP, así que asumo lo solucionaste de esa manera

[Tarecito]

si gracias... pero aún faltan solucionar otros "detallitos" como el AbsolutePage :(