[VB.NET]Afficher les valeurs bdd dans listbox
Résolu/Fermé
hinac
Messages postés
825
Date d'inscription
samedi 25 décembre 2004
Statut
Membre
Dernière intervention
15 janvier 2015
-
13 avril 2009 à 16:25
hinac Messages postés 825 Date d'inscription samedi 25 décembre 2004 Statut Membre Dernière intervention 15 janvier 2015 - 13 avril 2009 à 16:56
hinac Messages postés 825 Date d'inscription samedi 25 décembre 2004 Statut Membre Dernière intervention 15 janvier 2015 - 13 avril 2009 à 16:56
A voir également:
- [VB.NET]Afficher les valeurs bdd dans listbox
- Afficher mot de passe wifi android - Guide
- Afficher calendrier outlook dans google agenda - Guide
- Afficher appdata - Guide
- Afficher les dossiers cachés - Guide
- Les données fournies dans le fichier à télécharger peuvent être synthétisées par le tableau récapitulatif suivant. dans le fichier, générez ce tableau automatiquement (tableau croisé dynamique ou table de pilote) à partir des 4 premières colonnes. cinq valeurs manquent dans le tableau suivant. retrouvez-les dans votre tableau puis reportez-les, arrondies à l’entier le plus proche, dans la zone de réponse. - Forum Excel
1 réponse
hinac
Messages postés
825
Date d'inscription
samedi 25 décembre 2004
Statut
Membre
Dernière intervention
15 janvier 2015
95
13 avril 2009 à 16:56
13 avril 2009 à 16:56
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!
