Excel y su billy padre que lo parió

El título lo dice todo.. a quién se le ocurre utilizar un excel como fuente de base de datos, digo hasta yo he caido en los engaños del truculento access para hacer una que otra aplicación.. pero Excel???....
 
Creía que ya lo había visto todo sin embargo no.. encuentro que alguien utiliza excel como base de datos.. y ahora que lo intento hacer funcionar resulta que no jala... puede ser un campo??.. puede ser la conexión??...
 
Para el que quiera utilizarlo ahi les dejo el código.. interesante y muy bonito hasta que por alguna razón no funciona y estás hasta tarde en la oficina preguntandote por qué no jala esta M4dr3..  en fin..
 
ahi les vá el código por si a alguien más se le ocurre usarlo..

Const GsArchivo = "mi_archivo.xls"
Const GsRuta = "c:\mi_ruta\"
Const GsConnString = "Provider = ""MSDASQL""; Driver={Microsoft Excel Driver (*.xls)}; DBQ=" & GsRuta & GsArchivo & "; ReadOnly=True;"
Dim Cn As New ADODB.Connection
Dim Rs As ADODB.Recordset
LsQry = "SELECT * FROM [Hoja1$] WHERE columna = " & mi_variable
Set Rs = New ADODB.Recordset
Cn.Open GsConnString
Rs.Open LsQry, Cn, adOpenDynamic, adLockOptimistic

' Aqui va el codigo para desplegar los campos, o qué querías que te explicara todo??

Rs.Close
Cn.Close
Set Rs = Nothing
Set Cn = Nothing

Claro esto con VBasic for Apps
 

El hombre tardó 22 siglos en calcular la distancia entre la Tierra y el Sol (149.400.000 Km.). Lo hubiésemos sabido muchísimo antes si a alguien se le hubiese ocurrido multiplicar por 1.000.000.000 la altura de la pirámide de Keops en Giza, construida 30 siglos antes de Cristo.

Sin Comentarios