Llenar un ComboBox con un DataReader

[RootK]

Hola.. en el caso de un win form por lo regular lo haces con un dataset.. pero que pasa si quieres manipular tus datos y llenar manualmente tu combobox..

Bien.. lo que puedes hacer es construir una pequeña clase que te permita hacer eso y despues guardar esa clase en un ArrayList..

Ejemplo.

Public Class MyListItem
Private myDisplayText As String
Private myValueText As String

Public Sub New()
MyBase.New()
myDisplayText = ""
myValueText = ""
End Sub

Public Sub New(ByVal Display As String, ByVal Value As String)
MyBase.New()
myDisplayText = Display
myValueText = Value
End Sub

Public Property Display() As String
Get
Return myDisplayText
End Get
Set(ByVal Value As String)
myDisplayText = Value
End Set
End Property

Public Property Value() As String
Get
Return myValueText
End Get
Set(ByVal Value As String)
myValueText = Value
End Set
End Property

End Class

Y donde la vayas a ocupar..por ejemplo un boton que llene el combo..te quedaría: (voy a usar un ciclo con For pero tu lo podrás sustituir por tu datareader... )

Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim nItem As MyListItem
For i As Integer = 0 To 10
nItem = New MyListItem("Uno" & i, "Dos" & i)
myItemsList.Add(nItem)
Next

ComboBox1.DisplayMember = "Display"
ComboBox1.ValueMember = "Value"
ComboBox1.Items.AddRange(myItemsList.ToArray())


End Sub

Espero te sirva.

P.D.- Creo que se puede incluir en las faq´s no crees..??

Salu2