Problemas con ASP y excel

07/02/2008 - 03:05 por Erika H. | Informe spam

Hola que tal buenas noches espero me puedan ayudar tengo un problema con ASP
y excel, estoy trantando de mostrar un archivo de excel en asp, pero no he
podido pasar de la conexion al archivo, me sale el error:
Microsoft OLE DB Provider for ODBC Drivers error '80040e21'
ODBC driver does not support the requested properties.
/intranet/Excelprueba.asp, line 31

Este error es al tratar de consultar la tabla, este es el codigo que tengo:
<%
'Asigna a la variable Path, la ruta del archivo *.xls
Path= Server.MapPath("Programa Produccion\Programa.xls")
'Path=Server.MapPath("Ejercicio1.xls")

'Establece una conexión entre el servidor asp y una base de datos
Set ConexionBD = Server.CreateObject("ADODB.Connection")
Set ConexionRBD = Server.CreateObject("ADODB.Recordset")

'Abrimos el objeto con el driver específico para Microsoft Excel
' ConexionBD.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&
Server.MapPath("Programa Produccion\Ejemplo1.xls")&";Extended
Properties=""Excel 8.0;HDR=Yes;IMEX=1""")
ConexionBD.Open "Provider = MSDASQL;DRIVER={Microsoft Excel Driver
(*.xls)};DBQ=" & Path
'ConexionDB.Open Provider = MSDASQL; ConnectionString = "Driver={Microsoft
Excel Driver (*.xls)};" & "DBQ=D:\inetpub\wwwroot\intranet\Programa
Produccion\Ejemplo1.xls; ReadOnly=False;" Open

'Crea un objeto de tipo recordset para retornar la consulta sql
Set rsVac = Server.CreateObject("ADODB.Recordset")

'Se abre el recordset, señalando como tabla el rango de celdas Excel llamado
Feriado.
'Este nombre de rango se debe definir en MSExcel
(>Insertar>Nombre>Definir...).
rsVac.Open "Select * From Hoja1 order by datos", ConexionBD,3,3
'rsVac.Open "Select * From Feriado order by Oficina, Nombre", ConexionBD,3,3
%>

<body>
<h2><b><center>CONSULTA DE VACACIONES</center></b></h2>
<hr>
<table border=1 align="center">

<%
'Nos posicionamos al principio del recordset, por cualquier cosa
rsVac.MoveFirst

'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
Response.Write "<th>" & rsVac.Fields.Item(0).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(1).Name & "</th>" & vbCrLf
Response.Write "<th>" & rsVac.Fields.Item(6).Name & "</th>" & vbCrLf

'Y por último, el cuerpo de los datos
Do While Not rsVac.EOF
Response.Write "<tr>" & vbCrLf
Response.write "<td>" & rsVac(0) & "</td>"
Response.write "<td>" & rsVac(1) & "</td>"
Response.write "<td>" & rsVac(6) & "</td>"
Response.Write "</tr>" & vbCrLf
rsVac.MoveNext
Loop
Response.Write "</table>"
'Se cierra y se destruye el objeto recordset
rsVac.Close
Set rsVac = Nothing
'Se cierra y se destruye el objeto connection
ConexionBD.Close
Set ConexionBD = Nothing

He intentado hacer la conexion de varias formas y me marca error, alguien me
puede decir que estoy haciendo mal.

Muchas gracias

Siga el debate

6 respuestas

Tengo una respuesta

Preguntas similare

Problemas con excel y asp

Leer las respuestas

#6 ¥-- Lombar --¥

09/02/2008 - 15:32 | Informe spam

Ya te repito que nunca lo he hecho con Excel, pero vamos a por la buena
acción de la semana:
¿que versión de Excel es el documento al que accedes? ¿XP, 2003, 2007,...?
¿como se llama el fichero (el libro) y como se llama la hoja de cálculo a la
que quieres acceder?

¿le has definido permisos de acceso al fichero al usuario inetUser?¿lo has
colocado en un servidor que admita y ejecute páginas asp? (entiendo que si
pero lo pregunto por si acaso, no sea un problema distinto?

Como tienes mi emal, mandame si quieres una copia de ese excel. Puede llevar
datos salvo que sean sensibles, que entonces deberías borrarlos y mandarmela
con tres o cuatro líneas con datos inventados.
Luego lo seguimos comentando por aquí para que otros usuarios puedan hacer
uso de la experiencia.

¥-- Lombar --¥
Jose Lombardia

Visita mi blog:
Comer y Rodar
www.lombar.com

"Erika H." escribió en el mensaje de
noticias news:
Mostrar la cita

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

1 2

Busqueda sugerida