Archive for March, 2008

Operaciones SQL en VB6

Las operaciones CRUD (Create, Retrieve, Update, Delete), son utilizadas comúnmente en consultas SQL, más aun dentro de programas que utilicen alguna base de datos, por lo que aquí dejo el código para una pequeña función que ejecuta dichas operaciones en determinada tabla, haciendo uso del ADODB de Visual basic.


'****************************
'Modulo con declaraciones y funciones
'****************************

Public xcon As New ADODB.Connection  'Declaramos un objeto ADO, 

Public Function exec_sql(ByVal SQL As String) 'Función de operaciones CRUD, sobre la Base de datos.
    On Error GoTo chec
        With xcon
            .BeginTrans
            .Execute SQL
            .CommitTrans
        End With
    Exit Function
chec:
    xcon.RollbackTrans
    MsgBox Err.Description
End Function
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

'****************************
'*******     Formulario
'****************************

Private Sub cmd_record_Click()
        ´'Aquí generamos nuestra consulta; en este caso un "Update"
        SQL = "Update consumibles set existencia=" & cantidad & " where id=" & ID & ""

        'Seguido, enviamos la query a nuestra función
        exec_sql SQL
End Sub
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-
'-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-

Por ahora solo he publicado código en VB6, más adelante utilizare otros lenguajes.

* That’s all folks *

Comments

Pensando en Geek is back

Comments (2)

Sorry…

“Gonna tell her that I’m sorry for the pain that I’ve caused…”

Comments (2)

¿Que hago en mi trabajo?

Realmente no se me ocurre nada para escribir, mas que contarles que es lo hago en mi trabajo, actualmente trabajo en el departamento de sistemas, donde solo somos 3 personas que damos soporte a poco más de 120 personas, en el horario laboral de 7:00 am a 4:10 pm, ademas de dar soporte, administramos los servidores, en total tenemos 5 servidores, cada uno de ellos con doble procesador, y 4 discos duros de 200Gb cada uno, en estos servidores esta instalado SQL Server 2005, ISA Server, el Active Directory, las impresoras de red, el Servidor de correo, y la base de datos de expedientes, en cuanto a nuestra red, es de fibra, la red local esta corriendo a 1Gbp, el internet que nos proporcionan corre a 1 Gb, al igual que el infinitum, pocas son las veces que hay que cambiar algún jack, o cablear alguna nueva conexión, esto se da mas en el conmutador, donde hay que dar de alta a los usuarios con teléfono analógico o digital según la jerarquía, al igual que las IP’s las cuales por cada segmento filtran contenido, o servicios, algunas veces hay que hacerle al electrónico, por suerte las herramientas nunca hacen falta, otras mas hay hacerle al estibador, en septiembre del 2006 cambiamos equipos, el tiempo que nos llevo fue una semana completa, para esta tarea creamos una imagen con Norton Ghost, para posteriormente formatear las computadoras nuevas, acto seguido se reemplazaba la computadora antigua con la nueva, respaldando correo y documentos, para terminar configurando los usuarios, el dominio y la red, toda esta tarea nos llevo 1 semana completa, en total cambiamos 98 computadoras, puff 98 PC’s llevadas del almacén al site, formatear y cambiar, regresar al almacén equipo antiguo, con todo eso no creo necesario tener que asistir a un gimnasio, de vez en cuando los colaboradores se acercan para preguntar sobre problemas con sus equipos personales, muchas de estas veces los arreglamos en los tiempos muertos del trabajo, en cuanto a desarrollo de software es muy esporádico y generalmente no se requieren sistemas grandes, justo antes de escribir esto, estaba terminando de vincular el Active Directory al sistema de inventarios para el almacén, anteriormente desarrollé un sistema para reportes de algunas encuestas, un speecher para los niños con problemas de comunicación, un sistema para el control de contactos, automatización de formatos para el área de recursos humanos, creo que lo mas básico ha sido un formulario de access con tres tablas, de ai en fuera la programación es casi nula, ademas de lo anterior existen los problemas comunes, atasco de hojas, solicitud de cañones, audio para eventos, asesorías con algún programa principalmente power point.

Bueno pues básicamente es lo que hago en mi horario laboral, no es mucho a mi parecer, sin embargo el sueldo no me convence, aunque por lo demás me parece muy buen lugar para trabajar, los baños se lavan 3 veces al día, las herramientas no faltan, las computadoras tiene características optimas, la gente es muy agradable, aunque si por mi fuera, enviaría a muchos a un curso básico de computación, “Pero esa es otra historia…”.

Bueno me despido, a ver quien se anima a contar que hace en su trabajo.
saludos a todos los lectores que se chutaron mi postito.

Comments

.:: Made with sadness petition ::.

Angélica es la autora de algunos dibujos que he publicado en el post titulado Made with sadnes, justamente el día de hoy he recibido un comentario de ella argumentado que muchos usuarios, simplemente bajan las imágenes para subirlas a sus myspace, sin dar cerdito a la autora, solo les pido que si ustedes tiene alguna de sus imágenes hagan referencia a la pagina de la autora, para motivarla a realizar mas creaciones.

Un saludo a Angélica

Comments

Brainstorm Ubuntu

Me entere hace unos días que ubuntu ha abierto una pagina web donde podemos hacer sugerencias, o votar por las que ya existan,
Ubuntu Brainstorm, entre las mas destacada, esta la corrección de suspensión e hibernación, interfaz gráfica simple para manejar cualquier tipo de conexión con el PC, administración de energía, y reducción en los menús de administración de preferencias, por mi parte veo que una bun idea es la interfaz gráfica para las conexiones, cualquier conexión!, eso es bluetooth, puerto infrarojo, wireless, dial-up, celular USB, etc, eso en realidad sería una gran ayuda, así podría tener una sola aplicación para la conexión de cualquier dispositivo o red a mi laptop, aún me he registrado pues aun no termino de redactar mi idea, que es básicamente hacer funcionar todas las características de las impresoras multifuncionales en Linux, eso realmente me hubiera ayudado mucho hace unos años con la multifuncional lexmark que teníamos en casa, pero ahora me enfoco en las que son compatibles con mi sistemas.

Comments

Carta a Nvidia

Me entero por tuxpepino,que se ha enviado una carta a Nvidia, para pedir colaboración con los desarrolladores GNU, con los drivers para Linux!!!, aqui el post completo , y claro que se agradece su firma en dicha petición, espero que algunos ya la hayan firmado.

Firmar Petición Aquí.

Gracias por su cooperación.

Comments

Visual basic buscar cadena en listas

Bueno hoy les traigo más código, muchas veces cuando hago búsquedas en MSDN me desespero por el tiempo que tarda en mostrar los resultado, aunque este trozo de código no funciona igual de efectivo, me resulta mas sencillo hacer búsquedas en las listas, les cuento que me desperté a las 6:00 am y sentí un gran ocio, así que encendí mi laptop y me puse a escribir una pequeña rutina para hacer una busca de texto sobre una lista (listbox), es algo muy sencillo y creo que hasta cutre, lo sient tendrá que soportarlo así que lo dejo para que lo copien y pegue o incrusten en un modulo, con una función que reciba, la lista y el cuadro de texto jajaja o haber que se les ocurre.

Primero necesitamos obviamente un formulario (jajaja) un textbox y un listbox, me quedo mas o menos así

Luego añadimos los ingredientes en el código:


Private Sub Form_Load()
'Lleno mi lista
    lista_nombres.AddItem "Qwerty"
    lista_nombres.AddItem "Dvorak"
    lista_nombres.AddItem "Bixho"
    lista_nombres.AddItem "Bugcillo"
    lista_nombres.AddItem "Fzagato"
    lista_nombres.AddItem "Adairstarkey.wordpress.com"
    lista_nombres.AddItem "José Luis"
    lista_nombres.AddItem "AlbertDeath"
    lista_nombres.AddItem "Kike Santiago"
    lista_nombres.AddItem "CLAU M."
    lista_nombres.AddItem "GPretorian"
    lista_nombres.AddItem "Areyce"
    lista_nombres.AddItem "Canito"
    lista_nombres.AddItem "León"
    lista_nombres.AddItem "Dwiki"
    lista_nombres.AddItem "Mono"
    lista_nombres.AddItem "Varv"
End Sub

Private Sub txt_busca_Change()
'La mini-rutina
 For i = 0 To lista_nombres.ListCount
        If StrComp(Mid(lista_nombres.List(i), 1, Len(txt_busca)), txt_busca, vbTextCompare) = 0 Then
            lista_nombres.Selected(i) = True
        Exit For
       End If
   Next
End Sub

Y Listo!!!!!
Que pasen buen día,
HOY ES SÁBADO voy a descansar jejeje.

Comments