Conexión a una DB en EXCEL!!

[agarciaa]

Aqui te mando un ejemplo:


<%
Dim oConn
Dim oComm
Dim oRS
Set oConn = Server.CreateObject("ADODB.Connection")
Set oComm = Server.CreateObject("ADODB.Command")
oConn.ConnectionString = "DRIVER={Microsoft Excel Driver (*.xls)}; DBQ=C:\Windows\Escritorio\Libro.xls;"
oConn.Open
oComm.ActiveConnection = oConn
oComm.CommandText = "select `usuarios$`.`Edad`, `usuarios$`.`Nombre` from `usuarios$`"
Set oRS = oComm.Execute()
While Not oRS.Eof
Response.Write oRS(0) & " " & oRS(1) & "<br>"
oRS.MoveNext
Wend
Set oConn = Nothing
Set oComm = Nothing
Set oRS = Nothing
%>



<font face="Bimini,Tahoma,Arila">Andrés García[/CODE]

oooO
( )
*(
**)