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
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