Cuadro Estadistico En VB .net

Luego cree un nuevo proyecto en visual basic .net con el nombre que usted desee y guárdelo en la misma carpeta en la que guardo la base de datos.

En el nuevo formulario solo deberá ingresar un botón y el deberá modificar el tamaño del formulario a 650 por 450. Dentro de la ventana de código deberá importar las siguientes librerías.

Imports System.Data

Imports System.Data.SqlClient

Imports System.Windows.Forms.DataVisualization.Charting

Luego deberá crear la cadena de conexión conjuntamente con las siguientes variables que van a formar parte del código de la aplicación.

Dim cn As New SqlClient.SqlConnection ("Server=EQUIPO\EDU;Database=REPORTES;Trusted_Connection=True;")

Dim da As SqlDataAdapter

Dim dr As DataSet

Luego de eso deberá crear el siguiente procedimiento.

Sub verificar ()

Dim da As New SqlClient.SqlDataAdapter ("select * from estadistica", cn)

Dim dr As New DataSet ()

da.Fill (dr, "estadistica")

Dim chartarea As ChartArea = New ChartArea ()

Dim legenda As Legend = New Legend ()

Dim serie As Series = New Series ()

Dim chart As Chart = New Chart ()

Me.Controls.Add (chart)

chartarea.Name = "chartarea"

chart.ChartAreas.Add (chartarea)

legenda.Name = "legenda"

chart.Legends.Add(legenda)

chart.Location = New System.Drawing.Point(10, 10)

chart.Name = "chart"

serie.ChartArea = "chartarea"

serie.Legend = "legenda"

serie.Name = "serie"

...