LLenar combobox con un dataset
 

Tengo una WindowsForm.

Necesito llenar un combobox con los datos de una base de datos que tengo en un dataset asi:

Dim cadena As String = "SELECT * FROM usuarios ORDER BY nombre"
Dim adapter As New OdbcDataAdapter(cadena, cn)
Dim DSUsuarios As New DataSet()
adapter.Fill(DSUsuarios, "usuarios")

ahora como lo enlazo a un combobox

Dim cadena As String = "SELECT * FROM usuarios ORDER BY nombre"
Dim adapter As New OdbcDataAdapter(cadena, cn)
Dim DSUsuarios As New DataSet()
Dim DR as DataRow

adapter.Fill(DSUsuarios, "usuarios")
For Each DR in DSUsuarios("Usuarios").Rows
Combo.Add.Item(DR("NombreDelCampo"))
Next


Hay un POST EXACTAMENTE IGUAL al tuyo.

Gracias funciono:

Sabes la forma en que pueda llenar una parte con el Texto (nombre) y otra con la llave (idusuario) teniendo en cuente que el usuario vea solamente el nombre.

Supongo que es para web...

with Me.MiComboDropDown
.DatatextField = "el_campo_de_texto_pe_Nombre"
.DataValueField = "el_campo_llave_podria_ser_el_ID_pe_IdUsuario"
.DataSource = MiDataset
.DataBind()
end with

Ahora, si quieres insertar algún valor seriá asi:
with Me.MiComboDropDown
.Items.Insert(0,"-Ninguno-")
.Items(0).value = 0
end with


Espero te sirva amigo :)

Este.. obiemante en tu dataset, tendrías que tener el campo Nombre y el campo IdUsuario....


Salu2

no es para web es para una windowsform

Con un Array, por que otra no se me ocurre.