Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
InformeHtml: Clase Para Generar Informes De Consultas A Bases De Datos
Autor Mensaje
Responder citando   Descargar mensaje 
Mensaje InformeHtml: Clase Para Generar Informes De Consultas A Bases De Datos 
 
He creado una clase para crear informes en formato html, pasandole solamente los siguientes datos:
   - el resultado de una consulta (result) (no hace falta indicar nombre de las columnas, la clase  las detecta automaticamente)
   - el titulo (que queremos que aparecezca en la parte superior de la tabla)
   - colores de fondo de la columna del titulo
   - color de fila par e impar (de los resultados)
   - una propiedad "nombrestablas" para mostrar o no el nombre de la tabla de los campos resultantes. (en el caso de que hagamos consultas a varias tablas de la misma base de datos)

Es un tema que se ha comentado con anterioridad en el foro, y que cada uno a aportado su manera de hacerlo.

Esta clase lo trabaja de una forma genérica (trabaja con el resultado de una consulta) y se puede implementar facilmente a cualquier programa que estemos haciendo.

ejemplo-de-informe-de-consulta

Ruta de descarga del codigo fuente/ejemplo: informesBD-0.0.1.tar.gz

Aqui os dejo como se usa la clase:
   Dim conexion As Connection
   Dim resultado As Result

    Dim textohtml As String 'cadena de texto que va a contener el codigo generado del listado de la consulta
    Dim inf_html As New InformeHtml 'clase que genera el informe de la base de datos
    Dim url As String 'ruta y nombre del fichero html que crea
    Dim sentenciaSql As String

    'realizar conexion
    conexion = New Connection
    conexion.type = "sqlite3" 'tipo de gestor de base de datos
    conexion.host = User.home 'donde esta situada la base de dato
    conexion.name = "pruebasBD" 'nombre de la base de dato
    Try conexion.Open()

    If Error Then
        Message.Error("Error, al intentar leer la base de datos")
        conexion = Null
    Endif

    'defenimos la sentencia SQL que vamos a ejecutar en la base de datos
    sentenciaSql = "Select nombre,estrellas from hotel"
    resultado = Conexion.Exec(sentenciaSql)
    'definos colores y titular
    inf_html.titulo = "<h3>2 Ejemplo de resultado de la consulta:</h3> <br>" & sentenciaSql

    'para ver colores en hexadecimal para hmtl: http://es.wikipedia.org/wiki/Colores_HTML
    inf_html.nombretablas = False ' si nombretabla es false, no se escribe el nombre de la tabla, si es true se escribe el nombre de la tabla
    inf_html.ColorCampos = "#7B68EE"
    inf_html.ColorFondoImpar = "#FFA07A"
    inf_html.ColorFondoPar = "#D3D3D3"

    'genero el codigo html del resultado
    textohtml = inf_html.crea(resultado)
 


Ahora el contenido de la variable "textohtml" contiene la informacion de la consulta en una tabla con formato html, la cual la podemos guardar y verlo por ejemplo en el navegador...
'ruta donde se va a guardar el texto generado
    url = User.home & "/informe.html"

    'graba los datos
    File.Save(url, textohtml)

    'veo la pagina html creada en el navegador
    Desktop.Open(url)


Espero que os sea util.

Saludos
 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
última edición por jsbsan el Martes, 10 Abril 2012, 17:53; editado 1 vez 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Que Software Existe Para Generar Esquemas ... v3ctor Bases de Datos 1 Jueves, 26 Marzo 2015, 21:07 Ver último mensaje
jsbsan
No hay nuevos mensajes Programa De Colecciones Con Bases De Datos... tincho Aplicaciones/Fragmentos de Código 1 Domingo, 24 Julio 2016, 10:17 Ver último mensaje
Shell
No hay nuevos mensajes Generar Informes magicboss Controles/Librerías/Componentes 1 Miercoles, 01 Diciembre 2010, 20:44 Ver último mensaje
jsbsan
No hay nuevos mensajes Bases De Datos Para Geriatria desoljor Bases de Datos 1 Domingo, 20 Abril 2014, 21:04 Ver último mensaje
jsbsan
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
No puede descargar archivos
No puede publicar eventos en el calendario