Los Foros de ASPTutor.com
Home | Perfil | Registrarse | Temas Activos | Miembros | Buscar | FAQ
Usuario:
Password:
 Todos los Foros
 ADO
 Necesito abrir una conexión con una hoja de Excel
 Foro Bloqueado  Tema Bloqueado


Autor Temas
Bardo
Starting Member


31 Posts
Mensajes - 02 Oct 2001 :  13:08:14  Ver Perfil  Enviar Email
Pues eso, ¿cómo hago para abrir una conexión con una hoja de Excel?

Sé que puede hacerse un acceso a Excel como si fuese una base de datos, pero desconozco cómo.

Gracias a quien pueda ayudarme.
Un saludo.
Bardo


aalaiz
Junior Member

España
374 Posts
Posted - 05 Oct 2001 :  12:25:12  Ver perfil  Enviar e-mail
Hola:

A continuacíón va una solución (de mis 'Apuntes personales' :-)

Saludos.


Ejemplo de conexión a hoja Excel (sin necesidad de tener el origen de datos creado en el servidor –aunque, naturalmente, sí el driver Excel).

Es similar a Access. Para Excel hay que tener creado un rango con nombre (en Excel: menú Insertar -> Nombre -> Definir…). Éste es el recordset con el que enlaza el driver. Las celdas de este rango han de tener todas el mismo tipo de datos o se recogen campos con datos erróneos (esto no es seguro)

Hay que tener en cuenta que el primer valor del rango es el nombre del campo.
En el ejemplo se supone que hay un rango creado, con el nombre 'letras' en el fichero Excel 'mihoja.xls'.
En la primera celda del rango se tiene el texto 'MiCampo' (esté será rs.fields(0).name).


<%@ LANGUAGE=VBScript%>
<%option explicit%>

<%
dim conn
dim rs

Set conn = Server.CreateObject("ADODB.Connection")
conn.Open("DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=" & Server.MapPath("mihoja.xls"))

set rs=createobject("ADODB.Recordset")

rs.Open "SELECT * FROM letras;", conn

response.write "Listado del campo... <br><br>"

do while not rs.EOF
response.write rs ("MiCampo") & "<br>"
rs.MoveNext
loop

rs.close
set rs = Nothing
%>


Inicio Pagina

   
 Foro Bloqueado  Tema Bloqueado
Ir a:
Los Foros de ASPTutor.com Los Foros de ASPTutor.com
Ir al principio de la Página

 Imprimir Tema
 

Descargas de manuales¦ Ejemplos de código ¦ Artículos mas visitados ¦ Envía tu articulo ¦ Foros ¦
  Libro de visitas ¦Crea un enlace con ASPTutor 
 

    © 2001-Hasta hoy  Pedro Rufo Martín  contactar