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.

proyecto ficha encuesta

Creamos una nueva base de datos para nuestro proyecto.

Abrimos visualbasic.net nuevo proyecto le pondremos nombre encuesta

Creamos un nuevo formulario damos clic derecho en nuestro proyecto encuesta – agregar-nuevo elemento-windowform-diseñamos nuestro formulario según nuestros datos de encuesta.

Ahora aremos el entorno de datos asiendo clic derecho en nuestro proyecto encuesta – agregar – nuevo elemento-windowform –control de usuario

Lo nombramos como entorno.vd damos clic agregar

Nos vamos a la barra  de herramientas la opción de datos. Clic derecho-elegir elementos

 se nos abre una ventanita buscamos el oledbconexion y el oledbdataadapter

Los pegamos en nuestro entorno y el oledbconexion lo nombramos en la propiedad name como oconexion

En la propiedad conexión elegimos donde está ubicada nuestra base de datos.

Luego al oledbdataadapter lo nombramos en la propiedad name como datrabajo

creamos vuestro origen de datos. Datos-nuevo origen de datos.

Siguiente conjunto de datos.

Nueva conexión. archivo de base de datos Access.

Continuar. Damos clic examinar y nos vamos a la carpeta donde esta almacenada nuestra base de datos Access

Luego damos clic en aceptar

Ahora programaremos nuestro entorno dando doble clic sobre el cuadrito gris

Public Class entorno

    Public Shared Datos As New entorno

    Public Sub Conectar()

        If oConexion.State <> ConnectionState.Open Then

            oConexion.Open()

        End If

    End Sub

    Public Function ObtenerDatos() As DataSet

        Dim ds As New DataSet

        Conectar()

        datrabajo.Fill(ds, "encuesta")

        oConexion.Close()

        Return ds

    End Function

    Public Sub salvarempresas(ByVal ds As DataSet)

        Conectar()

        datrabajo.Update(ds)

        oConexion.Close()

    End Sub

 Datos públicos nevo entorno

Conectar

Abrir nuestra conexión

Obtener datos del data set

Conectar nuestro dataset.

Dataadapter encuesta

Cerrar conexión

Ejecutamos nustro formulario de la ficha de encuesta damos clic en el icono de nuevo ubicado en la parte de arriba del formulario y agregamos informacion luego damos clic en guardar para ir guardando datos en nuestra base datos de access ahora podemos eliminar tambien datos de la base de datos de access

Hemos finalizado nuestro formulario de encuesta continuamos con la creación de la gráfica y el reporte.

¿Que es un DataRow?

¿Qué es un DATAROW?

Es un componente principal de un Datatable, utiliza este objeto para sus propiedades y métodos

Para recuperar, evaluar, insertar, eliminar y actualizar los valores del Datatable.

Es un registro que almacena valores, representación de fila de una base de datos en visual basic.net.

Creamos un nuevo formulario  para arrastrar  el datagridview a nuestro formulario

 

Nos vamos a nuestro dstabla damos doble clic

Agregamos una nueva tabla de datos

Le pondremos el nombre por empresasgrafico, Agregamos columnas con el nombre categoría y total la primer columna categoría damos clic derecho sobre la columna categoría agregar – clave

Vamos a nuestro formulario, después nos vamos a la ventana orígenes de datos y en dstablas damos clic en la flechita izquierda al lado del dstabla para desplegar.

Mantenemos clic arrastramos hasta el formulario

Luego pegamos un button y le cambiaremos la propiedad text por actualizar y la propiedad name por cmdactualizar

Damos doble clic sobre el botón actualizar para programarlo

Importamos información de nuestro proyecto dese nuestro entorno,importamos datos del sistema oledb

Abajo del prívate sub cmdactualizar añadiremos nuestros datos de nuestra tabla

Limpiar datos, establecer los rubros, creamos nuestra instrucción SQL select

For i As Integer = 0 To aRubros.Count - 1

            '2.1, crear la SQL-Select para obtener los datosde cada rubro

            Dim cSql As String = "Select " & aRubros(i) & ", count(" & aRubros(i) & ") as total from Empresas where " & aRubros(i) & " = true " & "group by " & aRubros(i)

            datos.conectar()

            Dim comando As New OleDbCommand (cSql, datos.oConexion)

            Dim lector As OleDbDataReader = comando.ExecuteReader

            Dim fila As DataRow = DsTablas.EmpresasGrafico.NewRow

            If lector.Read Then

                fila("Categoria") = aRubros(i)

                fila("Total") = lector("total")

                'Agregar esta informacion a la tabla del dataset

                DsTablas.EmpresasGrafico.Rows.Add(fila)

            End If

            datos.oConexion.Close()

endclass

Conectamos nuestra base de datos, creamos un lector de datos y filas de nuestro datarow fila categoría y fila total luego “agregar esta informacion a la tabla del dataset, cerramos nuestra conexion

Ahora nos iremos a ejecutar nuestro formulario con f5 damos clic en actualizar

Bueno espero que este tutorial les sea de gran ayuda pueden dejar sus comentarios

Pasos para crear un Reporte y una Grafica en Visual Basic.net

Pasos para crear nuestro reporte en visual.net

Quiero mostrarles en esta oportunidad cómo crear un reporte en visual BASIC .net utilizando el control reportView. 

Lo primero que necesitamos es crear una conexión a una base de datos, y lo haremos de la siguiente manera: Desde el explorador de servidores puedes activarlo desde el menú Ver/Explorador de Servidores [Crtl+Alt+S]), creamos una nueva conexión. Seleccionamos archivos de datos de acces como se ve en la imagen:

 Luego proporcionamos nuestra base de datos damos clic en examinar

Seleccionamos nuestra base de datos de Access y damos clic en abrir

Elegir objetos de nuestra tabla de base de datos

Damos clic en finalizar.

Diseñamos nuestro informe 

Hacemos clic derecho en reporte insertar cuadro de texto   para escribir el titulo del informe o reporte, después de  haber puesto el titulo del reporte, damos click derecho insertar tabla insertamos los campos que queremos visualizar en nuestro reporte.

También podemos cambiar la perspectiva de nuestro texto en las propiedades. podemos cambiar el  color y el estilo de letra de nuestro texto.

Ejecutamos nuestro reporte con F5 para ver los campos ingresados en nuestra conexión desde la base de datos en Access

 Hemos finalizado nuestro Reporte.

Pasos para crear nuestra grafica en visual.net

Clic derecho en nuestro proyecto que está en la barra de explorador de soluciones damos clic agregar nuevo formulario lo nombramos como frmgrafico 

 en el cuadro de herramientas damos clic en el objeto chart  y lo pegamos dentro de nuestro formulario. Se vera de la siguiente manera como se muestra en la imagen.

      

Cambiamos en nombre en la barra de propiedades en (name) lo nombraremos como ografic

Pegamos un botón ( button) lo llamaremos actulizar cambiamos la propiedad el text a actualizar el name a cmdactualizar.

Colocamos un label y lo nombremos en la propiedad text como tipo de grafica.

Pegamos un combo box en el formulario y cambiamos la propiedad dropdownstyle a dropdownlist nombramos la propiedad name como cmbtipo. De ahí damos clic en la flechita de la esquina del combo box en editar elementos.

Pondremos los tipos de grafica

Damos doble clic en actualizar y programamos nuestra ruta de base de datos desde que unidad se está trabajando 

Imports System.Data.OleDb

Public Class frmGrafico

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

    Private Sub cmdActualizar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdactualizar.Click

        Dim cSQL As String = "Select puesto, count(precio) as total from productos group by modelo"

        Dim oconexion As New OleDbConnection(cadena)

        oconexion.Open()

        Dim comando As New OleDbCommand(cSQL, oconexion)

        Dim lector As OleDbDataReader = comando.ExecuteReader

        'Limpiar grafica anterior

        oGrafico.ChartAreas.Clear()

        oGrafico.Series.Clear()

        oGrafico.Titles.Clear()

        'Agregar una area, titulo y tamaño del titulo a la grafica

        oGrafico.ChartAreas.Add(0)

        ografico.Titles.Add("Numero de modelo por nombre")

        oGrafico.Titles(0).Font = New Font("Garamond", 18, FontStyle.Bold)

        'Enlazar la grafica con los datos obtenidos mediante la SQL

        ografico.DataBindTable(lector, "precio")

        oGrafico.Series(0).IsValueShownAsLabel = True

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

        cmbtipo.Enabled = True

        oconexion.Close()

Después programamos nuestro combo box. Aquí programamos para visualizar los distintos tipos de grafica.

    Private Sub cmbtipo_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbtipo.SelectedIndexChanged

        Select Case cmbtipo.SelectedIndex

            Case 0

                ografico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Area

            Case 1

                ografico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Bar

            Case 2

                ografico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column

            Case 3

                ografico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Pie

            Case 4

                ografico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Point

            Case Else

                ografico.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line

        End Select

    End Sub

End Class

.

Después de programarlo ejecutamos nuestro formulario F5.al ejecutarse se da clic en actualizar

Podemos elegir con nuestro combo box distintos tipos de grafica.

GRAFICA DE BARRA

GRAFICA DE COLUMNAS

GRAFICA DE PASTEL

GRAFICA DE PUNTOS

Hemos finalizado nuestra grafica espero que este tutorial les sea de gran ayuda para sus trabajos en visual basic.net