Gráfica de Encuesta

De ahí vamos a diseñar nuestra grafica, agregamos un nuevo formulario haciendo clic en la carpeta formularios clic derecho agregar-windows form. El formulario se llamara frmgraf1.

De ahí pegamos un chart a nuestro formulario, cambiamos la propiedad name del formulario a ografico

De ahí pegamos un boton le cambiaremos la propiedad name – cmdactualizar y la propiedad text- actualizar

Ahora programaremos presionando efe 7.

Ubicamos la ruta de nuestra base de datos.

Imports System.Data.OleDb

Public Class frmgrafico

Public cadena As String = "Provider =Microsoft.ACE.OLEDB.12.0; Data Source = g:\trabajo\Ficha.accdb"

 Ahora programaremos el boton actualizar,Haciendo doble clic sobre el.

Hacemos la instrucción SQL para la grafica que queremos mostrar

Abrimos una conexión, lector datareader

Damos limpiar: areas,series y titulos

Ingresamos el titulo de nuestra grafica

Cerramos nuestra conexión.

  Dim cSQL As String = "SELECT Preg1, count (Preg1) AS Total FROM Ficha  GROUP BY Preg1"

            Dim oConexion As New OleDbConnection(cadena)

            oConexion.Open()

            Dim comando As New OleDbCommand(cSQL, oConexion)

            Dim lector As OleDbDataReader = comando.ExecuteReader

            ografico.ChartAreas.Clear()

            ografico.Series.Clear()

            ografico.Titles.Clear()

            ografico.ChartAreas.Add(0)

        ografico.Titles.Add("¿Hace uso permanente de la Intranet de la Empresa?")

        ografico.DataBindTable(lector, "Preg1")

            ografico.Series(0).IsValueShownAsLabel = True

            ografico.ChartAreas(0).Area3DStyle.Enable3D = True

            oConexion.Close()

        End Sub

  

End Class

 Ejecutamos nustro formulario de la grafica y se vera de la siguiente forma

Damos clic en el boton actualizar cuando el formulario este ejecutado.

hemos finalizado la gráfica de nuestra encuesta.