• Lunes 18 de Noviembre de 2024, 00:52

Autor Tema:  Problemas para obtener texto de combobox  (Leído 1792 veces)

blusky

  • Miembro activo
  • **
  • Mensajes: 35
    • Ver Perfil
Problemas para obtener texto de combobox
« en: Miércoles 9 de Febrero de 2011, 18:46 »
0
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

gabio2

  • Miembro MUY activo
  • ***
  • Mensajes: 402
  • Nacionalidad: mx
    • Ver Perfil
Re: Problemas para obtener texto de combobox
« Respuesta #1 en: Jueves 10 de Marzo de 2011, 21:38 »
0
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 :)
@gabio87