Consultas, desarrollo de programas y petición de presupuestos:

sábado, 7 de enero de 2012

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

No hay comentarios:

Publicar un comentario