dos hermanas, sevilla
- 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.
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)
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...
Espero que os sea util.
Saludos
