[VB.NET]Afficher les valeurs bdd dans listbox
Résolu
hinac
Messages postés
851
Statut
Membre
-
hinac Messages postés 851 Statut Membre -
hinac Messages postés 851 Statut Membre -
Bonjour à tous,
Je débute sous VB.NET (visual studio 2005).
je voudrais savoir comment faire pour afficher toutes les valeurs d'une table d'une une base de donnée dans un listbox.
J'ai testé avec :
.............
Connexion.Open()
Dim OCommand As New NpgsqlCommand("SELECT * FROM Couleur;", Connexion)
lstcouleur.Items.Add(OCommand.ExecuteScalar.ToString())
Catch ex As Exception
.............
Mais ça ne m'affiche que la première valeur de la table.
Merci par avance.
Je débute sous VB.NET (visual studio 2005).
je voudrais savoir comment faire pour afficher toutes les valeurs d'une table d'une une base de donnée dans un listbox.
J'ai testé avec :
.............
Connexion.Open()
Dim OCommand As New NpgsqlCommand("SELECT * FROM Couleur;", Connexion)
lstcouleur.Items.Add(OCommand.ExecuteScalar.ToString())
Catch ex As Exception
.............
Mais ça ne m'affiche que la première valeur de la table.
Merci par avance.
A voir également:
- [VB.NET]Afficher les valeurs bdd dans listbox
- Afficher appdata - Guide
- Afficher calendrier outlook dans google agenda - Guide
- Word afficher les commentaires dans la marge - Guide
- Afficher taille dossier windows - Guide
- Afficher les modifications word - Guide
1 réponse
J'ai trouvé une solution, cela fonctionne :
Dim Connexion As NpgsqlConnection
Dim Couleur As NpgsqlDataReader = Nothing
Try
Connexion = New NpgsqlConnection("server=127.0.0.1;port=5432;UserId=postgres;password=password;Database=cave;")
Connexion.Open()
Dim OCommand As New NpgsqlCommand("SELECT couleur_vin FROM Couleur;", Connexion)
Couleur = OCommand.ExecuteReader()
While Couleur.Read()
lstcouleur.Items.Add(Couleur.Item("couleur_vin".ToString()))
End While
Catch ex As Exception
Merci pour l'aide que vous auriez pu m'apporter.
A bientôt!
Dim Connexion As NpgsqlConnection
Dim Couleur As NpgsqlDataReader = Nothing
Try
Connexion = New NpgsqlConnection("server=127.0.0.1;port=5432;UserId=postgres;password=password;Database=cave;")
Connexion.Open()
Dim OCommand As New NpgsqlCommand("SELECT couleur_vin FROM Couleur;", Connexion)
Couleur = OCommand.ExecuteReader()
While Couleur.Read()
lstcouleur.Items.Add(Couleur.Item("couleur_vin".ToString()))
End While
Catch ex As Exception
Merci pour l'aide que vous auriez pu m'apporter.
A bientôt!