Hola Expertos, tengo una consulta en SQL a una BD Acces:
SQL = "SELECT UnivCol.Univ, Count(Registro.Usuario) AS CuentaDeUsuario FROM UnivCol INNER JOIN Registro ON UnivCol.IdUniv = Registro.Univ GROUP BY UnivCol.Univ"
la tabla en acces contiene un listado de personas(658) con la Universidad donde estudia cada una. Al ejecutarla en asp me trae agrupados los registros por el nombre de la universidad. Hasta ahi todo muy bien, pero quiero tener el porcentaje que representa cada grupo (o sea cada universidad) con respecto al total (los 687).
Como puedo obtener el numero total de registros (al usar rs.RecordCount obtengo el numero de grupos que obtengo con la consulta y no el total)
Alguna idea?
El codigo que tengo es este:
<%
strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database/paginar.mdb") & ";Persist Security Info=False"
set cnn = CreateObject("ADODB.Connection")
cnn.Open strconn
set rs = CreateObject("ADODB.Recordset")
Dim mi_Pais, mi_depto
mi_Pais=request.querystring("mi_Pais")
SQL = "SELECT UnivCol.Univ, Count(Registro.Usuario) AS CuentaDeUsuario FROM UnivCol INNER JOIN Registro ON UnivCol.IdUniv = Registro.Univ GROUP BY UnivCol.Univ"
if Request.Querystring("ref") = "" then
p = 0
else
p = Cint(Request.Querystring("ref"))
end if
rs.Open SQL, cnn, 3, 1
total_registros = rs.RecordCount
banerror = 0
If total_registros > 0 then
rs.Move p
inicio = rs.Bookmark
mitabla = rs.GetRows(40,inicio)
else
banerror = 1
end if
rs.Close
set rs = Nothing
cnn.Close
set cnn = Nothing
Id = 17
Univ = 0
CuentaDeUsuario = 1
%>
<%If banerror = 1 then%>
<center><table width=93% border=0 align=center bordercolor="#3333CC">
<tr>
<td align=center colspan=4>
<font color=black size=2><b>No se encontró ningun registro</b></font>
</td>
</tr>
</table></center>
<%else%>
<center><font face="verdana" size="2"><%=total_registros%> personas <%=mi_cuenta%>registrados a la fecha en el Departamento de <%=mi_depto%></font>
</center><br>
<center><table bgcolor="#6633CC" width=50% border=0 cellspacing="0" cellpadding="0" align=center>
<%For i = 0 to Ubound(mitabla,2)%>
<tr>
<td vAlign=top align=left bgColor=#FFFFFF><font face="verdana" size="1"> <%=mitabla(Univ,i)%>
</td>
<td align="left" valign=middle bgColor=#FFFFFF><img src="imagenes/registro/encuestabar3-l.gif" width="7" height="13" border="0"><img src="imagenes/registro/encuestabar3.gif" width="<%=mitabla(CuentaDeUsuario,i)%>" height="13" border="0"><img src="imagenes/registro/encuestabar3-r.gif" width="8" height="13" border="0"> <font face="verdana" size="1"> (<%=mitabla(CuentaDeUsuario,i)%>)</font>
</td>
</tr>
<%Next%>
continua codigo....