Foros del Web » Programando para Internet » ASP Clásico »

Reto Urgente: Relaccionado con pasar datos de excel a html

Estas en el tema de Reto Urgente: Relaccionado con pasar datos de excel a html en el foro de ASP Clásico en Foros del Web. Lo que yo deseo hacer es leer un archivo de excel y mostrarlo en formato html. Pues bien esa parte de leer el archivo de ...
  #1 (permalink)  
Antiguo 29/07/2003, 18:56
 
Fecha de Ingreso: julio-2003
Mensajes: 8
Antigüedad: 21 años, 9 meses
Puntos: 0
Reto Urgente: Relaccionado con pasar datos de excel a html

Lo que yo deseo hacer es leer un archivo de excel y mostrarlo en formato html. Pues bien esa parte de leer el archivo de excel y mostrarlos en html ya lo realizo pero ahora quiero paginar esa salida o sea mostrar x cantidad de records por pagina. Yo me deje llevar por un codigo que tengo para paginar datos pero ese ejemplo es para leerlos de access. Quiero saber si las siguientes funciones las puedo utilizar leyendo el record de excel o que esta mal en el siguiente codigo:
Funciones: AbsolutePage, PageSize, CacheSize, PageCount
Codigo:

mostrar = 3500
' IF para saber que página mostrar
If Request.QueryString("page") = "" Then
pagina_actual = 1
Else
pagina_actual = CInt(Request.QueryString("page"))
End If
set objcon = Server.CreateObject("ADODB.Connection")
objcon.provider ="Microsoft.Jet.OLEDB.4.0"
objcon.ConnectionString = "Data Source=c:\Master.xls;Extended Properties =" & chr(34) & "Excel 8.0;HDR=YES;IMEX=1;" & chr(34) & chr(34) & chr(34)

objcon.Open
set tabla = Server.CreateObject("ADODB.Recordset")
tabla.PageSize = mostrar
tabla.CacheSize = mostrar
sql_statement1 = "Select * from [sheet1$]"
tabla.Open sql_statement1, objcon

cant_paginas = tabla.PageCount
'Si el pedido de página cae afuera del rango,
'lo modificamos para que caiga adentro
If pagina_actual > cant_paginas Then pagina_actual = cant_paginas

If pagina_actual < 1 Then pagina_actual = 1

'Si la cantidad de páginas da 0
If cant_paginas = 0 Then
Response.Write "No hay registros..."
Else
'Nos movemos a la página elegida
tabla.AbsolutePage = pagina_actual
'Mostramos el dato de que página estamos...
  #2 (permalink)  
Antiguo 29/07/2003, 19:01
 
Fecha de Ingreso: julio-2003
Mensajes: 8
Antigüedad: 21 años, 9 meses
Puntos: 0
Error que me sale en la anterior mencionado

Error Type:
ADODB.Recordset (0x800A0CB3)
Current Recordset does not support bookmarks. This may be a limitation of the provider or of the selected cursortype.
/master2.asp, line 229


La linea 229 es en donde dice

tabla.AbsolutePage = pagina_actual



Gracias a todos por su ayuda
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 08:02.