Gbchart Con Base De Datos
| Artículo |
|---|
 Gbchart Con Base De Datos |
 Buenas Tardes, antes todo un saludo.
ubuntu 14.04
version de gambas 3.8.9
componente gb.chart
El problema que tengo es que deseo cargar una base de datos de 12 columnas en cada textbox para que después se use en cada Chart[0].Values que le corresponde desde 0 hasta 12 y finalizar en un gráfico de lineas (complemento gb.chart) para compararlos ya que se trata de precios. Por otra parte, he investigado este mismo foro que se puede hacer de otras maneras con html, java, etc, Leí un ejemplo que se usa Select case pero da problema al graficar así que deseo aprender sí se puede hacer con un for que cargue todos los valores de la tabla de una sola vez y colocarlos en cada textbox y/o pasarlos directamente como valores de chart. Igualmente, soy novata en la programación. Esto fue lo que realice tomando dos columnas para probar 
primero se conecta a la base de datos, luego a la tabla para extraer la columna por fecha y que cargue los datos correspondientes en el textbox. Luego tiene un boton donde Gráfica y funciona todo muy bien. Muchas gracias.
ConectarBase()
r = hconn.Exec("Select * From materiales where fecha like '01/02/2017%'")
TextBox1.Text = r["fecha"]
TextBox2.Text = r["cemento"]
TextBox3.Text = r["bloque"]
TextBox4.Text = r["zinc"]
TextBox5.Text = r["malla"]
TextBox6.Text = r["gancho"]
TextBox7.Text = r["tubo"]
TextBox8.Text = r["precinto"]
TextBox9.Text = r["gallina"]
TextBox10.Text = r["comedero"]
TextBox11.Text = r["bebedero"]
TextBox12.Text = r["nidales"]
TextBox13.Text = r["percheros"]
r.MoveNext
r = hconn.Exec("Select * From materiales where fecha like '15/02/2017%'")
TextBox14.Text = r["fecha"]
TextBox15.Text = r["cemento"]
TextBox16.Text = r["bloque"]
TextBox17.Text = r["zinc"]
TextBox18.Text = r["malla"]
TextBox19.Text = r["gancho"]
TextBox20.Text = r["tubo"]
TextBox21.Text = r["precinto"]
TextBox22.Text = r["gallina"]
TextBox23.Text = r["comedero"]
TextBox24.Text = r["bebedero"]
TextBox25.Text = r["nidales"]
TextBox26.Text = r["percheros"]
r.MoveNext
Chart.CountDataSets = 2
Chart.Headers.Values = ["cemento", "bloque", "zinc", "malla", "gancho", "tubo", "precinto", "gallina", "comedero", "bebedero", "nidales", "percheros"]
Chart[0].Text = "01/02/2017"
Chart[1].Text = "15/02/2017"
Chart.Title.Text = "Precios por Rubros"
Chart.Legend.Title = "Fechas"
Chart.Type = ChartType.LinesSymbols
DrawingArea1.Refresh
End 
|
|
Rosalva [ Miercoles, 06 Septiembre 2017, 21:29 ]
|
 |
Gbchart Con Base De Datos
| Comentarios |
|---|
Re: Gbchart Con Base De Datos |
Rosalva:
Citar: El problema que tengo es que deseo cargar una base de datos de 12 columnas en cada textbox para que después se use en cada Chart[0].Values
Osea ¿que quieres hacer lo mismo, pero en vez de 2 columnas, tienes 12?
¿no seria mejor usar un gridview en vez de tantos textbox?
|
|
jsbsan [ Jueves, 07 Septiembre 2017, 08:00 ]
|
|
Re: Gbchart Con Base De Datos |
|
buenas bienvenida
se nota que estoy viejo no logro comprender el problema
y que tal hacer una clase para manejar los datos tipo
clase materiales
public fechaX as date
public cemento as intenger
public bloque as integer
etc
crear una clase materiales
dim Xmateriales as new materiales
Xmateriales.fechaX=r["fecha"]
Xmateriales.cemento=r["cemento"]
etc
saludos
última edición por v3ctor el Viernes, 08 Septiembre 2017, 11:56; editado 1 vez |
|
v3ctor [ Jueves, 07 Septiembre 2017, 17:19 ]
|
|
Re: Gbchart Con Base De Datos |
Rosalva escribió: ...deseo cargar una base de datos de 12 columnas en cada textbox para que después se use en cada Chart[0].Values que le corresponde desde 0 hasta 12 y finalizar en un gráfico de lineas (complemento gb.chart) para compararlos ya que se trata de precios...
Bienvenida Rosalva.
Envíanos un ejemplo de la tabla, ya que según lo que interpreto tu tabla es como la 1 o la 2 lo cual no es aconsejable. Te recomiendo un estilo de tabla estilo 3.
Luego el gb.chart trabaja con los tres campos producto, precio y fecha solo con SQL y sin textbox ni nada por el estilo.
 
Saludos.
|
|
tincho [ Jueves, 07 Septiembre 2017, 18:23 ]
|
|
Re: Gbchart Con Base De Datos |
Buenos días y gracias por responder.
La base de datos es de esta manera la fecha representa una columna y los materiales también.
Ahora, es cierto que es más fácil usar un gridview, dataview pero cuando se selecciona solo se escoge son las filas bien sea para recargar los textbox , datacontrol como data del gb.chart. Entonces pregunto como selecciono entonces solo columnas en este caso Cemento y fecha y representar la gráfica con los valores Chart[0].Values seleccionando la columnas del dataview o gridviewjavascript:emoticon(':shock:'). Reflexiono y el fallo es que no se como recargar cada valor de la columna y colocarlos en los texbox correspondientes para usarlos como Chart[0].Values o la tabla que cree esta mal organizada para trabajarla.
La idea del Sr. v3ctor la probare a ver que pasa.
De nuevo gracias.
|
|
Rosalva [ Sabado, 09 Septiembre 2017, 17:51 ]
|
|
Re: Gbchart Con Base De Datos |
|
Hola de nuevo...Buscare esa temática que indica el Sr Jsban ...saludos
|
|
Rosalva [ Sabado, 09 Septiembre 2017, 18:03 ]
|
|
Re: Gbchart Con Base De Datos |
Rosalva:
Citar: no se como recargar cada valor de la columna y colocarlos en los texbox correspondientes para usarlos como Chart[0].Values
Imaginando que tu gridview donde muestras los datos se llama gridview1
'para la fila 0: (la primera de datos del gridview, que es la "1")
TextBox1.Text =gridview1[0,12].text' r["fecha"] 'es la ultima columna
TextBox2.Text =gridview1[0,0].text' r["cemento"]
TextBox3.Text =gridview1[0,1].text' r["bloque"]
TextBox4.Text =gridview1[0,2].text' r["zinc"]
TextBox5.Text =gridview1[0,3].text' r["malla"]
TextBox6.Text =gridview1[0,4].text' r["gancho"]
TextBox7.Text =gridview1[0,5].text' r["tubo"]
TextBox8.Text =gridview1[0,6].text' r["precinto"]
TextBox9.Text =gridview1[0,7].text' r["gallina"]
TextBox10.Text =gridview1[0,8].text' r["comedero"]
TextBox11.Text =gridview1[0,9].text' r["bebedero"]
TextBox12.Text =gridview1[0,10].text' r["nidales"]
TextBox13.Text =gridview1[0,11].text' r["percheros"]
'para la fila 1: (la segunda de datos del gridview, que es la "2")
TextBox14.Text =gridview1[1,12].text' r["fecha"] 'es la ultima columna
TextBox15.Text =gridview1[1,0].text' r["cemento"]
TextBox16.Text =gridview1[1,1].text' r["bloque"]
TextBox17.Text =gridview1[1,2].text' r["zinc"]
TextBox18.Text =gridview1[1,3].text' r["malla"]
TextBox19.Text =gridview1[1,4].text' r["gancho"]
TextBox20.Text =gridview1[1,5].text' r["tubo"]
TextBox21.Text =gridview1[1,6].text' r["precinto"]
TextBox22.Text =gridview1[1,7].text' r["gallina"]
TextBox23.Text =gridview1[1,8].text' r["comedero"]
TextBox24.Text =gridview1[1,9].text' r["bebedero"]
TextBox25.Text =gridview1[1,10].text' r["nidales"]
TextBox26.Text =gridview1[1,11].text' r["percheros"]
Para mas información sobre los gridviews:
http://gambaswiki.org/wiki/comp/gb.qt4/gridview
https://cursogambas.blogspot.com.es...-tableview.html
Saludos
última edición por jsbsan el Domingo, 10 Septiembre 2017, 08:55; editado 1 vez |
|
jsbsan [ Domingo, 10 Septiembre 2017, 08:53 ]
|
|
Re: Gbchart Con Base De Datos |
Por si sirve de emplo, os dejo aqui una "porcion" de código de un programa que estoy haciendo, para mostar una gráfica con datos de una consulta. Se realiza una consulta a la base de datos, y el resultado se va recorriendo para añadirlo a la serie de la grafica:
....
chart.Title.Text = ("Palabras Por Minuto") 'Chart heading
chart.Headers.Values.Clear()
chart[0].Values.Clear()
While resultado.Available
chart.Headers.Values.Add(Format(resultado["fecha"], "dd/mm"))
velocidad = resultado["puntuacion"]
chart[0].Values.Add(velocidad)
resultado.MoveNext
Chart[0].Text = "Lecturas"
Wend
...
Los datos de la consultado son el campo "fecha" y el campo "puntuación"
Fuente:
https://github.com/jsbsan/leones/bl...tadistica.class
|
|
jsbsan [ Lunes, 02 Octobre 2017, 21:41 ]
|
|
|
|
|
Página 1 de 1
|
Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno
|
|
|
