REPORTES CON GRÁFICOS EN VB.NET

REPORTES ESTADÍSTICOS CON GRÁFICOS

REPORTES GRÁFICOS CON CHART

'CONTROLES UTILIZADOS EN EL FORM SON: COMBOBOX Y UN BUTTON (EL CHART SE CREA POR LOS CODIGOS!)

Imports System.Data

Imports System.Data.SqlClient

Imports System.Windows.Forms.DATAVISUALIZATION.CHARTING

Public Class FORM1

    Dim DA As SqlDataAdapter

    Dim DS As DataSet

    Private Sub GRAFICO()

        ' CREAR CONEXIÓN

        Dim OCONEXION As SqlConnection

        OCONEXION = New SqlConnection()

        OCONEXION.ConnectionString = "SERVER=LOCALHOST;DATABASE=CONEXION2010;UID=ROOT;PWD=10041004;"

        Dim SQLPRODUCTS As String = "SELECT * FROM PRODUCTS WHERE PRODUCTS.CATEGORY='" & COMBOBOX1.TEXT & "'"

        Dim DA As New SqlDataAdapter(SQLPRODUCTS, OCONEXION)

        Dim DS As New DataSet()

        DA.Fill(DS, "PRODUCTS")

        Dim CHARTAREA1 As CHARTAREA = New CHARTAREA()

        Dim LEGEND1 As LEGEND = New LEGEND()

        Dim SERIES1 As SERIES = New SERIES()

        Dim CHART1 = New CHART()

        Me.Controls.Add(CHART1)

        CHARTAREA1.NAME = "CHARTAREA1"

        CHART1.CHARTAREAS.ADD(CHARTAREA1)

        LEGEND1.NAME = "LEGEND1"

        CHART1.LEGENDS.ADD(LEGEND1)

        CHART1.LOCATION = New System.Drawing.Point(13, 13)

        CHART1.NAME = "CHART1"

        SERIES1.CHARTAREA = "CHARTAREA1"

        SERIES1.LEGEND = "LEGEND1"

        SERIES1.NAME = "SERIES1"

        SERIES1.CHARTTYPE = SERIESCHARTTYPE.PIE

        CHART1.CHARTAREAS("CHARTAREA1").AREA3DSTYLE.ENABLE3D = True

        CHART1.SERIES.ADD(SERIES1)

        CHART1.SIZE = New System.Drawing.Size(600, 400)

        CHART1.TABINDEX = 2

        CHART1.TEXT = "EVALUACIÓN DE PRODUCTOS"

        CHART1.SERIES("SERIES1").XVALUEMEMBER = "PRODUCTNAME"

        CHART1.SERIES("SERIES1").YVALUEMEMBERS = "UNITSINSTOCK"

        CHART1.DATASOURCE = DS.Tables("PRODUCTS")

    End Sub

    Private Sub BUTTON1_CLICK(ByVal SENDER As System.Object, ByVal E As System.EventArgs) Handles Button1.Click

        GRAFICO()

    End Sub

    Private Sub COMBOBOX1_CLICK(ByVal SENDER As Object, ByVal E As System.EventArgs) Handles COMBOBOX1.CLICK

        Try

            Controls.Item(2).Dispose()

        Catch EX As Exception

            COMBOBOX1.ITEMS.CLEAR()

            Dim OCONEXION As SqlConnection

            OCONEXION = New SqlConnection()

            OCONEXION.ConnectionString = "SERVER=LOCALHOST;DATABASE=CONEXION2010;UID=ROOT;PWD=10041004;"

            ' CREAR ADAPTADOR

            Dim DA As New SqlDataAdapter("SELECT DISTINCT CATEGORY FROM PRODUCTS ORDER BY CATEGORY ASC", OCONEXION)

            ' CREAR CONJUNTO DE DATOS

            Dim DS As New DataSet()

            OCONEXION.Open()

            ' UTILIZAR EL ADAPTADOR PARA LLENAR EL DATASET CON UNA TABLA

            DA.Fill(DS, "PRODUCTS")

            OCONEXION.Close()

            ' UNA VEZ DESCONECTADOS, RECORRER LA TABLA DEL DATASET

            Dim OTABLA As DataTable

            OTABLA = DS.Tables("PRODUCTS")

            Dim OFILA As DataRow

            For Each OFILA In OTABLA.Rows

                ' MOSTRAR LOS DATOS MEDIANTE UN OBJETO FILA

                COMBOBOX1.ITEMS.ADD(OFILA.Item("CATEGORY"))

            Next

        End Try

        Try

        Catch EX As Exception

            ' LO QUE HAY QUE HECER SI LO DE ARRIBA FALLA

            'OBJECT NO SE CUMPLE

        End Try

    End Sub

End Class