KioskeaKioskeaCommentCaMarcheInscrivez-vous, c'est gratuit !
Samedi 17 mai 2008 - 15:09:40

Remplir un combobox dans VB.Net (urgent SVP)

Rechercher : dans
Remplir un combobox dans VB.Net (urgent SVP)
par Nathalie
 Fil de Discussions
Statut : Non résolu
lundi 20 septembre 2004 à 13:02:23
Bonjour,
S'il vous plaît je voudrais savoir comment remplir un combobox à partir d'un champ d'une table source, dans VB.Net.
Merci bien.
Répondre à Nathalie  Signaler ce message aux modérateurs Aller au dernier message

1


  • Ce message vous semble utile, votez !
  • Signaler ce message aux modérateurs
Par Ludovic, le jeudi 18 novembre 2004 à 15:55:12 Fil de Discussions 
Salut Nathalie,

Voici un exemple, a+

Sub RemplirComboTOTO()
Dim cmdSelect As OleDbCommand = New OleDbCommand
Dim drListeTOTO As OleDbDataReader

OuvrirConnexion()

With cmdSelect
.Connection = cnBdD
.CommandType = CommandType.Text
.CommandText = "SELECT * FROM TOTO"
End With

drListeTOTO = cmdSelect.ExecuteReader()

While drListeTOTO.Read()
ComboBoxTOTO.Items.Add(drListeTOTO!TOTOCHAMPS)
End While

drListeTOTO.Close()
FermerConnexion()
End Sub

Sub OuvrirConnexion()
sConnexion = "Provider=Microsoft.Jet.OLEDB.4.0;"
sConnexion &= "Password=;User ID=Admin;"
sConnexion &= "Data Source=C:\TOTO.mdb"
cnBdD = New OleDbConnection(sConnexion)
Try
cnBdD.Open()
Catch ex As Exception
MessageBox.Show(ex.Message, "Message d'alerte", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub

Sub FermerConnexion()
Try
cnBdD.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, "Message d'alerte", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Répondre à Ludovic
Discussions pertinentes trouvées dans le forum
05/12 12h10[VB.NET] Mise à jour d'une comboboxProgrammation05/12 13h131
14/06 05h32[VB.net] Afficher données d'un comboboxProgrammation07/04 19h521
02/02 16h32VB .NET / ComboBoxProgrammation26/08 11h401
31/10 14h36[VB.NET] pointer val. de inputbox -> comboboxProgrammation31/10 14h360
Plus de discussions sur « Remplir un combobox dans VB.Net (urgent SVP) » Discussion en cours Discussion fermée Problème résolu
Répondre
Titre du message :
Votre pseudo:
Votre email :
Message: 
  •  
  •  
Options: Recevoir les réponses par mail.
 

Aide