Paso a Paso Grafica

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.