Control de salida en pantalla de datos: Recordset, Do While, If ... algo falla

Efectivamente, consultar por cada iteracion puede traerte problemas de
rendimientos.

Si bien, existen muchas formas de hacerlo, aca va otra con el set de datos
que tienes en este momento:

<table>
<%
Dim CentroAnterior
CentroAnterior = ""

do while not rs.eof
if CentroAnterior <> rs("Nombredelcentro") then
%>
<tr><td collspan="2">Centro de Trabajo:
<%=rs("Nombredelcentro")%></td></tr>
<tr><td>Nombre Empleado</td><td>Fecha baja</td>
<%
CentroAnterior = rs("Nombredelcentro")
end if
%>
<tr>
<td><%=rs("Nombreempleado")%></td>
<td><%=rs("Fechabaja")%></td>
</tr>
<%
rs.eof
loop
%>
</table>

Aunque no lo he probado creo que va por ahi.

Saludos.

Matías Iacono
Microsoft MVP
Orador Regional INETA
http://mvpfiles.spaces.live.com


"Fernando" wrote:

> Gracias por tu contestación; creo que lo he entendido y haré una prueba
> mañana (acá es la tarde ya! )
> Pero tengo una duda sobre el rendimiento: con tu código el servidor hace

> select por cada centro de trabajo... eso no empeora el rendimiento? Con

> código que ya intentaba preparar también quería tener en cuenta ese
> parámetro, para que los 'guardianes de la red' (ya sabes: el dpto. de
> informática...) no se me quejaran.
>
> Gracias
>
> Fernando
>
>
>
>
>
> "Arturo Costa Delgado" escribió en el
> mensaje news:O$
> > Buenos días:
> > Si te he entendido bien, tu quieres presentar el listado agrupados por
> > ciudades y a 2 columnas (nombre y fecha de baja).
> > Bueno, la sintaxis que yo utilizo es totalmente distinta a la tuya,

> > creo que podré darte al menos una idea.
> >
> > Yo utilizo primero un archivo db.asp en incluyo las líneas de

> > Este archivo tiene esta estructura:
> >
> > <%
> > Dim Conexion,Tabla
> > Set Conexion=Server.CreateObject("adodb.connection")
> > Set Tabla1=Server.CreateObject("adodb.recordset")
> > Set Tabla2=Server.CreateObject("adodb.recordset")
> > Set Tabla3=Server.CreateObject("adodb.recordset")
> > Conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data
> > Source=f:\inetpub\base de datos\MiBaseDeDatos.mdb"
> > %>
> >
> > Explicado esto te paso a mostrar el código que usaría en la página
> > LISTADO.ASP que es el nombre que usare como ejemplo
> >
> >
> >
> > LISTADO.ASP
> > <!-- #include file="setup/db.asp" -->
> >
> > <%
> > Temp1="Select Distinct Nombredelcentro From TablaDeUsuarios"
> > Tabla1.Open Temp1, Conexion
> > While Not Tabla1.EOF
> > %>
> >
> > Centro de Trabajo: <%= Tabla1.Fields("Nombredelcentro") %><br>
> > <table>
> > <tr>
> > <td>Nombre del Empleado</td>
> > <td>Fecha de Baja</td>
> > </tr>
> >
> > <%
> > Temp2="Select * From TablaDeUsuarios Where Nombredelcentro='" &
> > Tabla1.Fields("Nombredelcentro") & "'"
> > Tabla2.Open Temp2, Conexion
> > While Not Tabla2.EOF
> > %>
> >
> > <tr>
> > <td><%= Tabla1.Fields("Nombreemmpleado") %></td>
> > <td><%= Tabla1.Fields("Fechabaja") %></td>
> > </tr>
> >
> > <%
> > Tabla2.MoveNext
> > Wend
> > Tabla2.Close
> >
> > Response.Write("</table><br>")
> >
> > Tabla1.MoveNext
> > Wend
> > %>
> >
> > Espero haberte sido de utilidad.
> > Un saludo desde Lima, Perú
> >
> > ACd
>
>
>

Gracias a los dos por vuestros aportes!

Me estudiaré lo del GetRows para seguir aprendiendo...
El codigo de Matías me funciona perfectamente (sólo he tenido que cambiar
'rs.eof 'por 'rs.movenext')

Saludos al grupo

Fernando


"Matias Iacono" escribió en el
mensaje news:
> Efectivamente, consultar por cada iteracion puede traerte problemas de
> rendimientos.
>
> Si bien, existen muchas formas de hacerlo, aca va otra con el set de datos
> que tienes en este momento:
>
> <table>
> <%
> Dim CentroAnterior
> CentroAnterior = ""
>
> do while not rs.eof
> if CentroAnterior <> rs("Nombredelcentro") then
> %>
> <tr><td collspan="2">Centro de Trabajo:
> <%=rs("Nombredelcentro")%></td></tr>
> <tr><td>Nombre Empleado</td><td>Fecha baja</td>
> <%
> CentroAnterior = rs("Nombredelcentro")
> end if
> %>
> <tr>
> <td><%=rs("Nombreempleado")%></td>
> <td><%=rs("Fechabaja")%></td>
> </tr>
> <%
> rs.eof
> loop
> %>
> </table>
>
> Aunque no lo he probado creo que va por ahi.
>
> Saludos.
>
> Matías Iacono
> Microsoft MVP
> Orador Regional INETA
> http://mvpfiles.spaces.live.com
>
>
> "Fernando" wrote:
>
> > Gracias por tu contestación; creo que lo he entendido y haré una prueba
> > mañana (acá es la tarde ya! )
> > Pero tengo una duda sobre el rendimiento: con tu código el servidor hace
una
> > select por cada centro de trabajo... eso no empeora el rendimiento? Con
el
> > código que ya intentaba preparar también quería tener en cuenta ese
> > parámetro, para que los 'guardianes de la red' (ya sabes: el dpto. de
> > informática...) no se me quejaran.
> >
> > Gracias
> >
> > Fernando
> >
> >
> >
> >
> >
> > "Arturo Costa Delgado" escribió en el
> > mensaje news:O$
> > > Buenos días:
> > > Si te he entendido bien, tu quieres presentar el listado agrupados por
> > > ciudades y a 2 columnas (nombre y fecha de baja).
> > > Bueno, la sintaxis que yo utilizo es totalmente distinta a la tuya,
pero
> > > creo que podré darte al menos una idea.
> > >
> > > Yo utilizo primero un archivo db.asp en incluyo las líneas de
conexión.
> > > Este archivo tiene esta estructura:
> > >
> > > <%
> > > Dim Conexion,Tabla
> > > Set Conexion=Server.CreateObject("adodb.connection")
> > > Set Tabla1=Server.CreateObject("adodb.recordset")
> > > Set Tabla2=Server.CreateObject("adodb.recordset")
> > > Set Tabla3=Server.CreateObject("adodb.recordset")
> > > Conexion.open "Provider=Microsoft.Jet.OLEDB.4.0; Data
> > > Source=f:\inetpub\base de datos\MiBaseDeDatos.mdb"
> > > %>
> > >
> > > Explicado esto te paso a mostrar el código que usaría en la página
> > > LISTADO.ASP que es el nombre que usare como ejemplo
> > >
> > >
> > >
> > > LISTADO.ASP
> > > <!-- #include file="setup/db.asp" -->
> > >
> > > <%
> > > Temp1="Select Distinct Nombredelcentro From TablaDeUsuarios"
> > > Tabla1.Open Temp1, Conexion
> > > While Not Tabla1.EOF
> > > %>
> > >
> > > Centro de Trabajo: <%= Tabla1.Fields("Nombredelcentro") %><br>
> > > <table>
> > > <tr>
> > > <td>Nombre del Empleado</td>
> > > <td>Fecha de Baja</td>
> > > </tr>
> > >
> > > <%
> > > Temp2="Select * From TablaDeUsuarios Where Nombredelcentro='" &
> > > Tabla1.Fields("Nombredelcentro") & "'"
> > > Tabla2.Open Temp2, Conexion
> > > While Not Tabla2.EOF
> > > %>
> > >
> > > <tr>
> > > <td><%= Tabla1.Fields("Nombreemmpleado") %></td>
> > > <td><%= Tabla1.Fields("Fechabaja") %></td>
> > > </tr>
> > >
> > > <%
> > > Tabla2.MoveNext
> > > Wend
> > > Tabla2.Close
> > >
> > > Response.Write("</table><br>")
> > >
> > > Tabla1.MoveNext
> > > Wend
> > > %>
> > >
> > > Espero haberte sido de utilidad.
> > > Un saludo desde Lima, Perú
> > >
> > > ACd
> >
> >
> >