Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Crear cuenta

Visual Basic.NET - como llenar un combobox

Vista:
Me gusta: Está pregunta es útil y esta clara
0
No me gusta: Está pregunta no esta clara o no es útil
 
Asunto:como llenar un combobox
Autor:cinthia (4 intervenciones)
Fecha:17/07/2009 06:11:01
Hola a todos!, yo recien estoy empezando con la programacion en vb.net y cuando quice llenar unos texbox lo pude hacer sin mas problemas pero al quere llenar un combobox ahi surgio el gran problema, agradeceria puedan darme una mano, desde ya gracias!.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Llenar Textbox
Dim dt As New Essa2.DataSet1.PrestadorDataTable
Dim ta As New DataSet1TableAdapters.PrestadorTableAdapter
ta.BuscarPrestador(dt, txtId_prestador.Text)
txtNombreApellido.Text = dt.Item(0).Razon_social.ToString
txtEspecialidad.Text = dt.Item(0).Nombre.ToString


'Llenar Combobox
Dim Tp As Integer
Dim dt1 As New Essa2.DataSet1.PrestadorDataTable
Dim ta1 As New DataSet1TableAdapters.PrestadorTableAdapter
Tp = dt1.Item(0).Id_tipo_prestador.ToString
ta1.BuscarTipoPrestaciones(dt1, Tp)
ComboBox1.DisplayMember = "Nombre"
ComboBox1.ValueMember = "Id_tipo_prestacion"
ComboBox1.DataSource = dt1

End Sub
Responder Subir
Me gusta: Está respuesta es útil y esta clara
0
No me gusta: Está respuesta no esta clara o no es útil
 
Asunto:RE:como llenar un combobox
Autor:Damian (824 intervenciones)
Fecha:20/07/2009 19:18:36
mmmm....no se que es lo que estas haciendo ahi, por lo que veo estas usando controles enlazados, yo lo cargo desde codigo ya que lo puedo controlar mejor y si te sirve aca te dejo el codigo para llenar un combo.

Dim MiConexion As New SqlConnection(Conexion)
Dim Rs As SqlDataReader
Dim Com As New SqlCommand
Dim SQL As String

SQL = "select CodCat,Descripcion from Categoria where Baja=0 order by 2"
cboCat.Items.Clear()
Com = New SqlCommand(SQL, MiConexion)
Rs = Com.ExecuteReader()

While Rs.Read()
cboCat.Items.Add(Rs("Descripcion"))
Microsoft.VisualBasic.Compatibility.VB6.SetItemData(cboCat, cboCat.Items.Count - 1, Rs("CodCat"))
End While
cboCat.Items.Add("TODAS")
Rs.Close()

Como vez utilizo un while, en este caso cargo las distintas categorias que tiene una empresa con sus distintos articulos. Espero sirva
Comentar Subir