Buenas a todos
Estoy tratando de hacer una carga de un fichero excel en una pagina asp, se trata de un fichero de unos 20.000 registros, por lo que intento partirlo en tramos para poder mostrarlo sin que me de un script timeout.
El problema es que no consigo que el recordset que va recogiendo los distintos rangos me los recoja a medida que los voy cambiando.
Para que quede más claro aqui va un trozo del codigo
do while rango < cant_registros
Mostrar(parcial)
rango=rango+parcial
loop
Sub Mostrar(parcial)
Response.Write("<br> RANGO: "&parcial&"<br>")
'Inicializamos un nuevo recordset y una nueva conexion a la BD con los parametros calculados en la funcion Calcular
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" &"Data Source="& Path &";" & "Extended Properties=""Excel 8.0;"""
Dim strSql
Dim range
'En donde recojeremos los datos del excel con el rango especificado en la función
strSql = "SELECT * FROM [ARTICULOS$A"& rango &":E"& rango + parcial&"] order by codigo"
Response.Write strSql &"</br>"
Set rsXls = Server.CreateObject("ADODB.Recordset")
rsXls.Open strSql, conn
response.write("<table border=1 align=center> ")
rsXls.Movefirst
Do While Not rsXls.EOF
i=i+1
Response.Write "<tr>" & vbCrLf
Response.write "<td>" & rsXls(0) & "</td>"
Response.Write "<td>" & rsXls(1) & "</td>"
Response.Write "<td>" & i & "</td>"
Response.Write "</tr>" & vbCrLf
rsXls.MoveNext
Loop
Response.Write "</table>"
Response.Flush()
conn.close
set conn= Nothing
set rsXls = Nothing
End sub
Donde parcial es el número de registros que quiero cargar por tramo
Un saludo a todos y gracias por anticipado