Nueva Versión Recolector (II): Organiza los mejores códigos fuentes

Nueva Versión del Recolector:

Mejoras en la forma de realizar las búsquedas de artículos y añadido función de Update

A la memoria de Dennis Ritchie

Bueno, os traigo esta nueva versión, mejorando varios aspectos:

- búsquedas de artículos: he incluido la búsqueda dinámica mientras se va escribiendo los tag, y añadido una subbusqueda de articulos/descripción.

- Update: ahora podeis ver si hay nuevas versiones del programa pulsando el botón "update"
- La base de datos que trae el programa,  incorpora 6 registros.


Y aqui un video explicando las nuevas mejoras:




Enlace de descarga del código fuente: Recolector-0.1.3.tar.gz

Nota:
El programa (en esta versión y en la anterior) creaba un archivo en vuestro directorio de usuario llamado .codigo el cual es la base de datos sqlite donde trabaja el programa (crea, borra, edita la información).
Si habéis instalado la versión anterior, y si queréis usar la base de datos que trae la version actual (con 6 registros iniciales), borrar el archivo .codigo de vuestro directorio. El programa se encargara de copiar la nueva base de datos.
Atención: Perderéis los antiguos registros que tengáis.


¿como lo hago para realizar la busqueda dinamica?
Con el código que a continuacion expongo, cada vez que se va escribiendo algo en el textBoxBuscar se produce el evento KeyPress, se va haciendo la consulta...

PUBLIC SUB TextBoxBuscar_KeyPress()

    IF Asc(Key.text) > 47 AND Asc(Key.text) < 122 THEN

        'vuelvo a presentar la lista de tags

        consulta = BaseDatos.tagsDinamica(conexion, TextBoxBuscar.text & Key.text)

        GridViewListaTag.Rows.Count = consulta.Count

    ENDIF

END

En el módulo BaseDatos, en la funcion tagsDinamica es la que realiza la consulta:

PUBLIC FUNCTION tagsDinamica(conexion AS Connection, texto AS String) AS Result

IF texto <> "" THEN

sentenciasql = "SELECT * FROM listatags WHERE DescripcionTags LIKE '%" & texto & "%' ORDER BY DescripcionTags"

ELSE

sentenciasql = "SELECT * FROM listatags Order By DescripcionTags"

ENDIF

varresult = conexion.Exec(sentenciasql)

RETURN varresult

END

Nota:
19 / Octubre / 2011: Corrección de errores
- Bug en subbusqueda corregido
- Bug en update (no llevaba a la direccion de descarga)

Traducido (mediante google) al Frances y al Ingles