Categorías
daLife

Llueve sobre mojado

Pues eso, que sigue sin llover y ni luces de que llueva el día de hoy, sigo esperando a ver si mañana estreno mis limpiaparabrisas.. que manías las mías..

Pd. Llamada sorpresiva el día de hoy..

Categorías
daLife

witzi witzi limpiaparabrisas

Por fin parece que hoy va a llover!!!…

Me ha sucedido algo así como cuando has lavado tu auto en una mañana soleada y a medio día se nubla y cae un aguacero del fin del mundo.. bueno pues a mí me ha pasada a la inversa, después de sufrir las lluvias de las últimas semanas y prácticamente andar cruzando la ciudad a ciegas he decidido cambiar los limpiaparabrisas de mi bocho por unos nuevos, menciono que imagino que eran todavía los mismos de fábrica ya que ni yo los había cambiado anteriormente ni recuerdo que durante algún servicio en la agencia me hayan mencionado el cambiarlos, sólo para que se den una idea de su estado. Hasta ahora he leido en el empaque de los nuevos que se recomienda cambiarlos cada 6 meses!!! 😮

Como dije, el sábado me decidí a comprar nuevos y los he colocado en mi auto, y desde entonces ha hecho un calor del 7mo infierno y un sol clásico de verano, bueno ni siquiera un limpiavidrios de semáforo se ha acercado a menos de 5 metros de distancia.. pareciera que aparte de limpiar parabrisas modifican el clima a su paso.
Hoy por fin amaneció nublado y al parecer será el día en que pruebe si funcionan, si los he colocado bien y no saldrán volando a las primeras de cambio (ya que a pesar de que era el modelo correcto parece que la pestaña que los sujeta no ajusta correctamente en el orificio, por lo que corren el riesgo de que cualquier niño de la buenos aires los haga desaparecer de mi auto con un solo jalón y sin el más mínimo esfuerzo) y cómo se vé el periférico a través de un cristal sin agua.

Al fin podré ver quién está frente a mí.

Categorías
daLife

La chafaldrana perdida y su interminable auditoria

Bueno.. mis queridos y cultos lectores, se han de preguntar por qué no he agregado líneas últimamente a ese su blog favorito, bueno.. la explicación es sencilla, no así el trabajo que he realizado desde la semana antepasada.. Ha sucedido que en la empresa X (el contrato de confidencialidad firmado a mi proveedora de quincenas me impide revelar quién ha sido la empresa incauta) se les han perdido unas chafaldranas, y sopas!!! justo les ha caido auditoria y ahora no saben donde están o a quién se las vendieron. Y yo no estaría involucrado de no ser por que me han asignado a esta empresa el hacerle los reportes desde hace dos años y mes por mes de todo el historial de transacciones que han sufrido esas chafaldranas. y bueno pue he tenido que emplear las técnicas aprendidas en los videos de Conocimiento total en excel combinado con macros en VBA, justo como se los menciono en el post anterior. Y es que todos los datos los obtenían de su servidor AS400 y me los mandaban a unos archivos en excel para generar otros.. todo un caos pra arreglarlos.. prácticamente no lograba ver la luz al final del túnel.. hoy por fin he terminado.. al parecer ya no hay más archivos por hacer y podré regresar a mis actividades normales..

Con la edad, las neuronas se ponen duronas
Categorías
daWork

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.