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
| Class Utilisateur
Public Function GetAll() As Utilisateur
Dim cmd As SqlCommand
Dim dr As SqlDataReader
Dim con As SqlConnection = New SqlConnection
Dim req As String = "SELECT * FROM Utilisateur"
cmd = New SqlCommand(req, con)
con.Open()
dr = cmd.ExecuteReader
While dr.Read
???.Nom_utilisateur = dr.GetString(0)
???.Motpasse_utilisateur = dr.GetString(1)
???.Id_role = dr.GetInt32(2)
End While
dr.Close()
con.Close()
End Function
Public Function GetUtilisateurByNom_utilisateur(ByVal Nom_utilisateur As String) As Utilisateur
End Function
Public Function GetUtilisateurByMotpasse_utilisateur(ByVal Motpasse_utilisateur As String) As Utilisateur
End Function
Public Function GetUtilisateurById_role(ByVal Id_role As Integer) As Utilisateur
End Function
End Class |
Partager