[VB.NET]Afficher les valeurs bdd dans listbox
Résolu
hinac
Messages postés
825
Date d'inscription
Statut
Membre
Dernière intervention
-
hinac Messages postés 825 Date d'inscription Statut Membre Dernière intervention -
hinac Messages postés 825 Date d'inscription Statut Membre Dernière intervention -
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 les modifications word - Guide
- Afficher taille dossier windows - 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!
