1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39
| Imports System.Data.OleDb
Imports System
Imports System.Windows.Forms.DataVisualization.Charting
Imports System.Globalization
Imports System.Collections.ObjectModel
Imports Color = System.Drawing.Color
Public Class Form10
Dim con1 As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\jc.mbilla\Desktop\MJC_Finance\GESOM.mdb")
'Dim con1 As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\mbill\OneDrive\Desktop\MJC_Finance15012020\GESOM.mdb")
Private Sub Form10_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Dim sql1, sql2, sql3, sql4, sql5, sql6, sql7, sql8, sql9, sql10, sql11 As String
sql3 = "SELECT * FROM Req2"
sql4 = "SELECT * FROM Req3"
Dim adapter3 As New OleDbDataAdapter(sql3, con1)
Dim adapter4 As New OleDbDataAdapter(sql4, con1)
Dim dt3 As New DataTable("Req2")
Dim dt4 As New DataTable("Req3")
adapter3.Fill(dt3)
adapter4.Fill(dt4)
Chart1.Series(0).XValueMember = "ANNEE"
Chart1.Series(0).YValueMembers = "BTA"
Chart2.Series(0).XValueMember = "ANNEE"<a href="mailto:mbillajc@hotmail.com">mbillajc@hotmail.com</a>
Chart2.Series(0).YValueMembers = "OTA"
Chart1.DataSource = dt3
Chart2.DataSource = dt4 |
Partager