Rechercher : dans
Par :

Remplir un combobox dans VB.Net (urgent SVP)

Dernière réponse le 18 nov 2004 à 15:55:12 Nathalie, le 20 sep 2004 à 13:02:23 
 Signaler ce message aux modérateurs

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.

1

 Ludovic, le 18 nov 2004 à 15:55:12

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