.NET 4.x Построение графика по данным из БД - Visual Basic .NET

Формулировка задачи:

Доброе время суток, знатоки! Есть данные которые берутся из базу 100 - 01.04.2016 30 - 02.04.2016 50 - 03.04.2016 и т.д. Как построить примитивный график для отображения данных взятых из базы? что то на подобии этого как на картинке?

Решение задачи: «.NET 4.x Построение графика по данным из БД»

textual
                            Листинг программы 
                        
 
                            
                        
Private Sub Button45_Click(sender As Object, e As EventArgs) Handles Button45.Click
 
 
        Dim D = DateTime.Today  ' получаем текущию дату
        Dim Dp = D.ToString("MM.yyyy", CultureInfo.InvariantCulture) ' преобразовываем текущую дату в нужный формат месяц-год
        Label27.Text = Dp
        sqConnection.Open() ' получаем даты
        Dim pdp As Integer
        Dim command As SQLiteCommand = New SQLiteCommand("select COUNT(DISTINCT `dat`) from Se where dat like '%" & Dp & "';", sqConnection)
        Dim reader As SQLiteDataReader = command.ExecuteReader()
        If reader.HasRows Then
            Do While reader.Read()
                pdp = reader.GetInt32(0)
 
 
            Loop
        Else : Console.WriteLine("noy")
        End If
        reader.Close()
 
        For i = 0 To pdp
            Dim di = DateTime.Today
            Dim diu = di.ToString("dd", CultureInfo.InvariantCulture)
            'Dim newdat = diu(-i).ToString
            Dim newdat = D.AddDays(-i).ToString.Replace(" 0:00:00", "")
            Console.WriteLine(newdat)
            Dim pdp1 As Integer
            Dim command1 As SQLiteCommand = New SQLiteCommand("select COUNT(DISTINCT `namess`) from Se where dat = '" & newdat & "';", sqConnection)
            Dim reader1 As SQLiteDataReader = command1.ExecuteReader()
            If reader1.HasRows Then
 
                Do While reader1.Read()
                    pdp1 = reader1.GetInt32(0)
                    Chart1.Series("1").XValueType = DataVisualization.Charting.ChartValueType.Date
                    Chart1.Series("1").ChartType = DataVisualization.Charting.SeriesChartType.Line
                    Chart1.Series("1").Color = Drawing.Color.Black
                    Chart1.Series("1").IsValueShownAsLabel = True
                    Chart1.Series("1").IsVisibleInLegend = False
                    Chart1.ChartAreas(0).AxisX.Interval = 1
                    Chart1.Series("1").Points.AddXY(newdat, pdp1)
                    Console.WriteLine(pdp1)
                Loop
            Else : Console.WriteLine("noy")
            End If
            reader1.Close()
        Next
        sqConnection.Close()
        Chart1.Visible = True
    End Sub