1 2 3 4 5 6 7 8 9 10 11 12 13 14
| '#############TRAITEMENT ELEVES########################
'######################################################
'Requete pour récupérer les informations sur les eleves assistant au cour
commande.CommandText = "SELECT num_ele,nom_ele,prenom_ele from eleves,assiste where eleves.num_ele=assiste.assiste_eleves and assiste.assiste_cours= " & Me.cours.SelectedValue & ""
'REPMISSAGE DU DATAGRIDVIEW#######################
'Déclaration
Dim eleve_adpt As New SqlClient.SqlDataAdapter(commande)
Dim eleve_dataset As New DataSet()
'Rempli le datagridview
eleve_adpt.Fill(eleve_dataset, "eleves")
Me.liste_eleves.DataSource = eleve_dataset.Tables("eleves") |
Partager