Capacidad maxima en ciclo FOR.

[Cuezaltzin]

Buen día foreros.

Tengo el siguiente problema con la generación de un reporte en Excel. Según yo es dependiendo el numero de interacciones que tenga mi ciclo For, me marca el error de “Operation not Allowed”. Les pongo de manera general el código que utilizo:

Listado = “1,2,3,4,5,6,7,8,9,10,N”
Separar = Split(Listado, ”,”)

Do While Not lobjRst.EOF

For z=0 to Ubound(Separar)
Response.Write lobjRst(“Campo” & Separar(z))
Next

lobjRst.MoveNext
loop

Tengo dos escenarios. El primero que funciona correctamente es que la consulta regresa 12995 y en mi variable de “Listado” contiene 100 valores.

Entonces 12995 * 100 = 1299500.

Y el otro escenario en el que truena mi reporte es bajo la siguiente condición. La consulta tiene 14713 registros y la variable de “Listado” contiene también 100 valores.

14713 * 100 = 1471300.

Donde creen que este mi error. Como creen que pueda darle solución a este problema.

Gracias por su ayuda.

Saludos.

[Myakire]

Que instrucción es la que marca error?

[Cuezaltzin]

El error que me manda es el siguiente:

Error Type:
Response object, ASP 0104 (0x80070057)
Operation not Allowed
Exportar.asp

Pero no dice ni linea nada, solo que yo depurando y rastreando el código el error se presenta en el "For".

Espero haberme explciado correctamente.

Saludos.

[Myakire]

A ver ... vamos encuadrando el error ...

1) Cuantos elementos tiene ese arreglo
2) Cuántos registros tiene el recordSet?
3) El FOR por si solo marca error?

[Cuezaltzin]

1.- El arreglo tiene 100 elementos.
2.- El RecordSet cuando truena tiene 14713 registros.
3.- Si omito este For ya no truena la generación del reporte en Excel.

Gracias.

[Myakire]

Ok, pensé en que se trataba de un error generado al llenarse el buffer, entonces con un .flush se arreglaba.

Hice este código para probar la idea:

Código ASP:

<%
set con = Server.CreateObject("ADODB.Connection")
ConnString = "Provider=SQLNCLI10;Server=SERVIDOR;Database=*****;Uid=******;Pwd=*****;Persist security info=true;"
Con.CommandTimeout  = 0
con.Open  ConnString
set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "Select * from Tabla", Con
%>
<table>
<%
Cnt=1
while not rs.EOF
  %><tr><td><%=Cnt%></td>
    <%
    For i=0 To rs.Fields.Count-1
       %>
         <td><%=rs.Fields(i).value%></td>
         <%
    Next
    %></tr><%
    if Cnt MOD 100 = 0 Then
       %></table><table><%
       Response.flush
    end if
    Cnt = cnt + 1 
  rs.MoveNext 
Wend
rs.Close
set rs = nothing
%>
</table>
 

y efectivamente eso fue, la tabla a la que accedí tiene alrededor del medio millon de registros (mal ejemplo, se tardó bastantito) y los mostró todos, de 100 en 100 claro esta (también mal ejemplo, debí poner 1000). Si tu no ocupas una tabla puedes colocar el .flush al término del FOR, pero cada registro se estará mandando HTML al cliente, puedes mandarlo cada 1000 registros, creo que es un buen número, pero depende de que tan frecuente quieras que el cliente vaya viendo datos nuevos.

Pero en lo personal creo que esta mal esa idea de presentarle tantos datos en el browser al usuario, digo, ¿de qué le sirve ver más de 14000 registros en la pantalla?, no puede hacer nada con ellos, debería ser algo más depurado y filtrado.

saludos

[Cuezaltzin]

Gracias Myakire por las respuestas.

Y en efecto la consulta que se le muestra al usuario es de 100 en 100 registros no por el total de lo que arroja la consulta. La bronca la estaba teniendo al momento de mandar toda esa información en un archivo en Excel.

Pero quedo resuelta al ponerle la instrucción de Response.Flush.

Gracias y saludos.