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
| Sub AfficherListeUsers()
' Déclaration des différents objets
Dim oConnection As SqlConnection
Dim oDataAdapter As SqlDataAdapter
Dim oDataSet As DataSet
Dim sSQL As String
' Création de notre connexion
oConnection = New SqlConnection()
oConnection.ConnectionString = "Server=(local); Initial Catalog='Formation_Perso';" _
& " Trusted_Connection=True;"
' Ouverture de la connexion
oConnection.Open()
' Ecriture de la requête SQL
sSQL = "SELECT * FROM [User] ORDER BY Nom ASC"
' Création de l'objet SqlDataAdapter
oDataAdapter = new SqlDataAdapter(sSQL, oConnection)
' Création du DataSet
oDataSet = New DataSet("User")
' Remplissage du DataSet
oDataAdapter.Fill(oDataSet)
' Paramétrage du DataGrid
DTG_Liste_Utilisateurs.DataSource = oDataSet
DTG_Liste_Utilisateurs.DataBind()
' Fermeture de la connexion
oConnection.Close()
End Sub |
Partager