Reporte

agregamos un nuevo formulario haciendo clic en la carpeta formularios clic derecho agregar-windows form. El formulario se llamara frmreporte

Pegamos un reportview en nuestro formulario

Luego damos boble clic para diseñar en el reporte

Pegamos una herramienta llamada lista y la pegamos en la hoja del reporte y la estiramos, pegamos cuadros de texto para ponerle el titulo a nuestro informe, y en cada uno de nuestros datos de la ficha.

 En respuesta de si y no a lado izquierdo con un cuadro de texto inciso a y inciso b damos clic derecho en el cuadro de inciso A – propiedades del cuadro de texto

Damos clic en relleno y damos el color para que el cuadro del inciso A de si y el inciso B de no al ejecutarlo en el formulario aparesca relleno según como esten en su base de datos.

Luego damos clic en visibilidad activamos la opcion mostrar o ocultar funcion de una expresión

Luego damos clic en el boton que dice fx para hacer la exprecion,

not(Fields!preg1.Value ="Si")

not(Fields!preg1.Value ="No")

fijarce un mayuscula y minisculas según tenga los elementos en el combobox de nuestro primer formulario de encuesta

Haci seguimos programando cada uno de los incisos de si y no

 En nuestro formulario de reporte tenemos que pegar un dataset para ubicar nuestra base de datos. A nuestro dataset lo nombraremos en la propiedad name como dstablas

Luego nos vamos a la flechita que esta ubicada en la esquina del reportview, elegimos el reporte Que hemos creado

Luego programaremos nuestro frmreporte

Imports Encuesta.entorno

Public Class frmreporte

    Private Sub frmreporte_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dstabla.Merge(Datos.ObtenerDatos, False)

        Me.ReportViewer1.RefreshReport()

    End Sub

End Class

Importar encuesta

Obtener datos desde nuestra base de datos

 Luego ejecutamos con f5 el formulario de reporte y se vera de la siguiente forma

Hemos finalisado nuestro reporte. Espero que les ayude a aprender mas de visual.net

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.