GRAFICOS - VB.NET E ACESS
Aê galera beleza?
Então lá no macoratti tem um bom exemplo de como usar gráficos no VB.NET, porém o tutorial lá é feito por Arrays.
Gostaria de saber como substituir estes arrays por itens do meu banco Acess.
Segue o link: http://www.macoratti.net/10/09/vbn_graf2.htm
Qualquer ajuda é bem vinda, grato.
Então lá no macoratti tem um bom exemplo de como usar gráficos no VB.NET, porém o tutorial lá é feito por Arrays.
Gostaria de saber como substituir estes arrays por itens do meu banco Acess.
Segue o link: http://www.macoratti.net/10/09/vbn_graf2.htm
Qualquer ajuda é bem vinda, grato.
Este é um teste que fiz no vb2010.Não esqueça de fecha o banco.
Private Sub RdbPeso_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RdbPeso.Click
Me.Text = [Ô]Gráfico Peso[Ô]
Dim strConn As String = [Ô]Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\Bras2012.mdf;Integrated Security=True[Ô]
Dim conn As New SqlConnection(strConn)
Dim sqlProducts As String = [Ô]SELECT Nome, Pesos FROM Peso [Ô]
Dim da As New SqlDataAdapter(sqlProducts, conn)
Dim ds As New DataSet()
da.Fill(ds, [Ô]Peso[Ô])
With Chart1
[ô]define o tipo de gráfico
.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column
[ô]define o texto da legenda
.Series(0).LegendText = [Ô]Peso[Ô]
[ô] .Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line
[ô]define o texto da legenda
[ô] .Series(0).LegendText = [Ô]PaÃses[Ô]
[ô].ChartAreas(0).Area3DStyle.LightStyle = LightStyle.Simplistic
[ô]define o titulo do eixo y , sua fonte e a cor
.ChartAreas(0).AxisY.Title = [Ô]Peso em (Kg)[Ô]
.ChartAreas(0).AxisY.TitleFont = New Font([Ô]Times New Roman[Ô], 12, FontStyle.Bold)
.ChartAreas(0).AxisY.TitleForeColor = Color.Blue
[ô]define o titulo do eixo x , sua fonte e a cor
.ChartAreas(0).AxisX.Title = [Ô]Nome[Ô]
.ChartAreas(0).AxisX.TitleFont = New Font([Ô]Times New Roman[Ô], 12, FontStyle.Bold)
.ChartAreas(0).AxisX.TitleForeColor = Color.Blue
[ô]define a paleta de cores usada
.Palette = ChartColorPalette.Fire
[ô]vincula os dados ao gráfico
[ô] .Series(0).Points.DataBindXY(xPaises, C)
.Series([Ô]Series1[Ô]).XValueMember = [Ô]Nome[Ô]
.Series([Ô]Series1[Ô]).YValueMembers = [Ô]Pesos[Ô]
[ô]exibe os valores nos eixos
.Series(0).IsValueShownAsLabel = True
.Series(0).LegendText = [Ô]Peso[Ô]
[ô]desabilita a exibição 3D
.ChartAreas(0).Area3DStyle.Enable3D = True
.DataSource = ds.Tables([Ô]Peso[Ô])
End With
End Sub
Private Sub RdbPeso_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles RdbPeso.Click
Me.Text = [Ô]Gráfico Peso[Ô]
Dim strConn As String = [Ô]Data Source=(LocalDB)\v11.0;AttachDbFilename=|DataDirectory|\Bras2012.mdf;Integrated Security=True[Ô]
Dim conn As New SqlConnection(strConn)
Dim sqlProducts As String = [Ô]SELECT Nome, Pesos FROM Peso [Ô]
Dim da As New SqlDataAdapter(sqlProducts, conn)
Dim ds As New DataSet()
da.Fill(ds, [Ô]Peso[Ô])
With Chart1
[ô]define o tipo de gráfico
.Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Column
[ô]define o texto da legenda
.Series(0).LegendText = [Ô]Peso[Ô]
[ô] .Series(0).ChartType = DataVisualization.Charting.SeriesChartType.Line
[ô]define o texto da legenda
[ô] .Series(0).LegendText = [Ô]PaÃses[Ô]
[ô].ChartAreas(0).Area3DStyle.LightStyle = LightStyle.Simplistic
[ô]define o titulo do eixo y , sua fonte e a cor
.ChartAreas(0).AxisY.Title = [Ô]Peso em (Kg)[Ô]
.ChartAreas(0).AxisY.TitleFont = New Font([Ô]Times New Roman[Ô], 12, FontStyle.Bold)
.ChartAreas(0).AxisY.TitleForeColor = Color.Blue
[ô]define o titulo do eixo x , sua fonte e a cor
.ChartAreas(0).AxisX.Title = [Ô]Nome[Ô]
.ChartAreas(0).AxisX.TitleFont = New Font([Ô]Times New Roman[Ô], 12, FontStyle.Bold)
.ChartAreas(0).AxisX.TitleForeColor = Color.Blue
[ô]define a paleta de cores usada
.Palette = ChartColorPalette.Fire
[ô]vincula os dados ao gráfico
[ô] .Series(0).Points.DataBindXY(xPaises, C)
.Series([Ô]Series1[Ô]).XValueMember = [Ô]Nome[Ô]
.Series([Ô]Series1[Ô]).YValueMembers = [Ô]Pesos[Ô]
[ô]exibe os valores nos eixos
.Series(0).IsValueShownAsLabel = True
.Series(0).LegendText = [Ô]Peso[Ô]
[ô]desabilita a exibição 3D
.ChartAreas(0).Area3DStyle.Enable3D = True
.DataSource = ds.Tables([Ô]Peso[Ô])
End With
End Sub
Tópico encerrado , respostas não são mais permitidas