1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Private Sub voir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles voir.Click
'DECLARATION DES VARAIBLES
Dim entier As Integer
Dim maConnexion As New SqlConnection(VGconnexion)
entier = Me.cour.SelectedValue
MessageBox.Show(entier)
'Ouverture de la Base de données
maConnexion.Open()
'Création de la commande de Connexion
Dim commande As SqlCommand = maConnexion.CreateCommand
'Requete pour récupérer les informations sur les eleves assistant au cour
commande.CommandText = "SELECT num_ele,nom_ele,prenom_ele from eleve, assiste where eleve.num_ele=assiste.num_ele and num_cour= " & Me.cour.SelectedValue & ""
End Sub |
Partager