Remplir Combobox [Résolu]
cs_simoneo
- Messages postés
- 20
- Date d'inscription
- samedi 4 novembre 2006
- Dernière intervention
- 29 juin 2008
- Messages postés
- 20
- Date d'inscription
- samedi 4 novembre 2006
- Dernière intervention
- 29 juin 2008
A voir également:
- Remplir combobox
- Remplir combobox sans doublon et avec format ✓ - Forum - Visual Basic 6
- Remplir combobox à partir d'une base de données access ✓ - Forum - VB.NET
- Remplir combobox et erreur system.data.datarowview ✓ - Forum - C# / .NET
- Remplir combobox à l'ouverture d'excel ✓ - Forum - Visual Basic 6
- Remplir combobox avec requete sql ✓ - Forum - VB.NET
2 réponses
Meilleure réponse
- Messages postés
- 20
- Date d'inscription
- samedi 4 novembre 2006
- Dernière intervention
- 29 juin 2008
Salut greg38bj, Je voudrais que ça soit plus simple que ça, j'ai utlisé une boucle for each.
For Each line As DataRow In ds.Tables("maTable").Rows
If Not Me.ComboBox1.Items.Contains(line.Item(1)) Then
Me.ComboBox1.Items.Add(line.Item(1))
End If
Next
Merci
For Each line As DataRow In ds.Tables("maTable").Rows
If Not Me.ComboBox1.Items.Contains(line.Item(1)) Then
Me.ComboBox1.Items.Add(line.Item(1))
End If
Next
Merci
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
a aidé 105 internautes ce mois-ci
- Messages postés
- 84
- Date d'inscription
- jeudi 11 mars 2004
- Dernière intervention
- 17 novembre 2008
salut
dans un de mes soft, j'avais ces deux fonctions dans un module :
'Rafraichissement d'un Combobox
Public Sub RefreshCb(ByVal Combo As ComboBox, ByVal Table As String, ByVal Champs() As String, ByVal Index As Integer)
Combo.DataSource = AfficherTout(Table)
Combo.DisplayMember = Champs(Index).ToString
End Sub
'Fonction de recherche dans la table
Public Function AfficherTout(ByVal table As String) As DataView
Dim SourceConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Nomdelabasededonnée
SourceOle = New OleDbConnection(SourceConnect)
Select Case SourceOle.State
Case ConnectionState.Closed
SourceOle.Open()
End Select
Try
RequeteSQL = "SELECT * FROM " & table
Dim DataA As New OleDbDataAdapter(RequeteSQL, SourceOle)
Dim DataS As New DataSet
DataA.Fill(DataS, table)
Dtt = DataS.Tables(table)
Try 'return incorrect sur du Update
Return DataS.Tables(table).DefaultView
Catch ex As Exception
Return Nothing
Finally
Select Case SourceOle.State
Case ConnectionState.Open
SourceOle.Close()
SourceOle.Dispose()
SourceOle = Nothing
SourceConnect = ""
End Select
End Try
Catch ex As Exception
Return Nothing
End Try
End Function
et dans le formulaire, j'appelais le rafraichissement comme ceci :
RefreshCb(Nomducombobox, Nomdetatable, NomduChamps, Indexduchamps)
en esperant que ça te servira ...
@+
greg38bj
dans un de mes soft, j'avais ces deux fonctions dans un module :
'Rafraichissement d'un Combobox
Public Sub RefreshCb(ByVal Combo As ComboBox, ByVal Table As String, ByVal Champs() As String, ByVal Index As Integer)
Combo.DataSource = AfficherTout(Table)
Combo.DisplayMember = Champs(Index).ToString
End Sub
'Fonction de recherche dans la table
Public Function AfficherTout(ByVal table As String) As DataView
Dim SourceConnect As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Nomdelabasededonnée
SourceOle = New OleDbConnection(SourceConnect)
Select Case SourceOle.State
Case ConnectionState.Closed
SourceOle.Open()
End Select
Try
RequeteSQL = "SELECT * FROM " & table
Dim DataA As New OleDbDataAdapter(RequeteSQL, SourceOle)
Dim DataS As New DataSet
DataA.Fill(DataS, table)
Dtt = DataS.Tables(table)
Try 'return incorrect sur du Update
Return DataS.Tables(table).DefaultView
Catch ex As Exception
Return Nothing
Finally
Select Case SourceOle.State
Case ConnectionState.Open
SourceOle.Close()
SourceOle.Dispose()
SourceOle = Nothing
SourceConnect = ""
End Select
End Try
Catch ex As Exception
Return Nothing
End Try
End Function
et dans le formulaire, j'appelais le rafraichissement comme ceci :
RefreshCb(Nomducombobox, Nomdetatable, NomduChamps, Indexduchamps)
en esperant que ça te servira ...
@+
greg38bj
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.