Paso A Paso Grafico
Primero nos vamos a
nuestro dataset ay crearemos otra tabla para enlazar las gráficas, daremos clic
derecho en la parte limpia del dataset y damos agregar tabla de datos y le
ponemos como nombre: EncuestaGrafico en ese nombre damos clic derecho agregar
columna y a esa le columna le llamaremos Categoría
y esa es llave primero le daremos clic derecho agregar llave, luego clic
derecho agregar columna y a esta le llamaremos Total, guardamos cambios.
Ahora damos clic
derecho en el nombre del proyecto y damos agregar Windows form le ponemos en el
nombre Grafico, en el origen de
datos encontraremos la tabla que creamos en el dataset entonces esa tabla la
arrastramos hacia el formulario y una vez que la arrastramos damos doble clic
en ella y arriba de Public Class Grafico
Ponemos: Imports Encuesta.Entorno
Imports System.Data.OleDb
Aquí estamos
declrarando la conexión del entorno para que pueda accedernos a la base de
datos y declarando los comandos del oledb.
Ahora nos vamos al
formulario gráfico y borramos lo que está pegado hay y una ves borrado
pegaremos un chart área para la representación de la gráfica, para ello nos
vamos al cuadro de herramientas en la pestaña Datos elegimos el chartárea en la
propiedad name le cambiaremos a: ografico.
Ahora pegaremos un
botón en su propiedad name: cmdActualizar y en text: Actualizar.
Ahora damos clic en
Actualizar y pondremos el código que alimentara la gráfica para desarrollar
todos los registros que hay en la tabla de Access.
'crear la SQL-select para obtener los datos del rubro
Dim cSQL As String = "Select
Preg1, count(Preg1) as Total from Encuesta group by Preg1"
Datos.Conectar()
Dim comando As New OleDbCommand(cSQL,
Datos.oConexion)
Dim lector As OleDbDataReader = comando.ExecuteReader
If lector.HasRows Then
'Generar
la grafica
ografico.Series.Clear()
ografico.Titles.Clear()
ografico.DataBindTable(lector, "Preg1")
ografico.Series(0).ChartType =
DataVisualization.Charting.SeriesChartType.Pie
ografico.Series(0).IsValueShownAsLabel
= True
ografico.Titles.Add("Hace uso permanente de la Internet de la
Empresa")
Else
MsgBox("No
se ha generado la grafica, porque no se encontro informacion "
& " para crear la misma", MsgBoxStyle.Information, "sin datos")
End If
End Sub
|
Dim cSQL As String = "Select
Preg1, count(Preg1) as Total from Encuesta group by Preg1"
Aqui estamos
declarando la instruccion SQL con la pregunta numero uno para la ejecucion de
la grafica.
ahora la ejecutaremos
para visualizar nuestra grafica. Damos Ctrl+f5.