Remplir un combobox dans VB.Net (urgent SVP) Fermé

Question

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.

muslimnumber99999999 · Accepted Answer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim tab() As String = {"a", "b", "x", "r"}
        ComboBox1.DataSource = tab

    End Sub

Ludovic · Answer

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

Remplir un combobox dans VB.Net (urgent SVP)

2 réponses

Discussions similaires