1 2 3 4 5 6 7 8 9 10 11 12 13 14
| 'On crée une connexion
Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=|DataDirectory|\resultat.mdb")
'on crée notre commande contenant la requête SQL
Dim Mycommand1 As OleDbCommand = MyConnexion.CreateCommand()
Mycommand1.CommandText = "SELECT NOM ,GROUPE,CHIFFREDAFFAIRE,TRIMESTRE,ANNEE FROM TABLE1 WHERE NOM ='" & nomfiliale & "' AND GROUPE ='" & Groupenom & "'"
MyConnexion.Open()
'On crée le Datareader
Dim myReader As OleDbDataReader = Mycommand1.ExecuteReader()
'Form1.Show()
'CreateGraph(Form1.zg1) |
Partager