SoloCodigo

CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: blusky en Miércoles 9 de Febrero de 2011, 18:46

Título: Problemas para obtener texto de combobox
Publicado por: blusky en Miércoles 9 de Febrero de 2011, 18:46

Hola a todos nuevamente!!!

Necesito ayuda por favor. Sucede que tengo un combobox y lo cargo con una consulta sql. el problema viene cuando quiero obtener el
texto del item que selecciono. lo puse en un mensje para saber q cual es la cadena que estaba seleccionando.
System.Data.RowView

Este es mi codigo
 Public Sub cargaComboTipoUso()
        Dim dtipouso As SqlClient.SqlDataAdapter
        Dim dsdatos As DataSet
        dtipouso = New SqlClient.SqlDataAdapter("select Id_TipoUso,Nombre_TipoU from tblTipoUso", abrirConexion)
        dsdatos = New DataSet
        dtipouso.Fill(dsdatos, "tblTipoUso")
        cboTU.DataSource = dsdatos.Tables("tblTipoUso")
        cboTU.DisplayMember = dsdatos.Tables("tblTipoUso").Columns("Nombre_TipoU").ToString
        'cboTU.ValueMember = dsdatos.Tables("tblTipoUso").Columns("Id_TU").ToString
        MsgBox("Seleccion:" & datos)
    End Sub

espero me puedan ayudar por favor!!!

Gracias

Título: Re: Problemas para obtener texto de combobox
Publicado por: gabio2 en Jueves 10 de Marzo de 2011, 21:38

Cita de: "blusky"

Hola a todos nuevamente!!!

Necesito ayuda por favor. Sucede que tengo un combobox y lo cargo con una consulta sql. el problema viene cuando quiero obtener el
texto del item que selecciono. lo puse en un mensje para saber q cual es la cadena que estaba seleccionando.
System.Data.RowView

Este es mi codigo
 Public Sub cargaComboTipoUso()
        Dim dtipouso As SqlClient.SqlDataAdapter
        Dim dsdatos As DataSet
        dtipouso = New SqlClient.SqlDataAdapter("select Id_TipoUso,Nombre_TipoU from tblTipoUso", abrirConexion)
        dsdatos = New DataSet
        dtipouso.Fill(dsdatos, "tblTipoUso")
        cboTU.DataSource = dsdatos.Tables("tblTipoUso")
        cboTU.DisplayMember = dsdatos.Tables("tblTipoUso").Columns("Nombre_TipoU").ToString
        cboTU.ValueMember = dsdatos.Tables("tblTipoUso").Columns("Id_TipoUso").ToString  'Está línea de código es correcta, sólo le cambie "Id_TU" por "Id_TipoUso
        MsgBox("Seleccion:" & datos)
    End Sub

espero me puedan ayudar por favor!!!

Gracias

Que error o que problema es el que tienes?..  no entendí lo que quisiste decir..

saludos :)