Диаграмм

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'TODO: данная строка кода позволяет загрузить данные в таблицу "Database11DataSet.ТаблКат". При необходимости она может быть перемещена или удалена.
        Me.ТаблКатTableAdapter.Fill(Me.Database11DataSet.ТаблКат)


    End Sub

   
    Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged

        Chart1.Series.Clear()

        Dim a As String = "SELECT Вид,SUM(Цена) AS Сумма FROM ТаблОсн GROUP BY Вид, Категория HAVING (Категория =" + "'" + ComboBox1.Text + "')"

        OleDbConnection1.Open()

        Dim COM As New System.Data.OleDb.OleDbCommand(a, connection:=OleDbConnection1)

        Dim AD As New OleDb.OleDbDataAdapter(COM)

        Dim DATASET As New DataSet

        AD.Fill(DATASET, "ТаблОсн")

        DataGridView1.DataSource = DATASET

        DataGridView1.DataMember = "ТаблОсн"

        Dim myReader As OleDb.OleDbDataReader = COM.ExecuteReader(CommandBehavior.CloseConnection)

        Chart1.DataBindTable(myReader, "вид")




        OleDbConnection1.Close()

        ''''''''''''''''''''''''''''''''''''''''''''''



    End Sub
End Class