CLR: .Net / Mono / Boo / Otros CLR > VB .NET

 ComboBox con 2 valores de tabla

(1/1)

blusky:
Hola a todos!!

He tratado de cargar un combox con 2 valores de un tabla de sql, pero no me sale. Quisiera saber si alguien sabe como hacerlo o es un
componente diferente q hay qu usar para hacer que  cuando se seleccione el combobox, este me muestre 2 campos de mi tabla.
por ejm. el Id_Oficina, NombreOficina.

Solo puedo hacer que se muestre un campo!!!

Necesito ayuda por favor!!

Gracias.

gabio2:
Por que no Concatenas desde tu sentencia SQL?

En MySQL seria algo así..

--- Código: Text ---SELECT CONCAT(Id_Oficina,', ',NombreOficina) AS NombreId  FROM TuTabla; 
entonces en tu código VB, solo le asignas un DataSource a tu ComboBox, y le pones DisplayMember = "NombreId".

espero hayas entendido, saludos :)

blusky:
Hola gabio2!!!

tblEmpleado: idempleado, pnombre,snombre,pape,sape
tblUsuarioVehiculo: noplaca, idempleado


yo cree un metodo para cargar los comboboxes de un sola vez,
tengo 2 tablas una tblEmpleados y la otra tblUsuarioVehiculo.  En usuariovehiculo solo guardo el id del empleado pero yo quiero mostrar en el combobox el id del empleado y el nombre completo de ese mismo!!

este es mi codigo, he tratado pero no le hallo!!

con.CargarComboBox("select tblUsuarioVehiculo.Id_Empleado,(PNombre +' '+SNombre+' '+PApe+' '+SApe) as Nombre from tblUsuarioVehiculo  inner join tblEmpleados on tblUsuarioVehiculo.Id_Empleado= tblEmpleados.Id_Empleado", cboUsuarioPrincipal, "Id_empleado", "Id_Empleado", "tblUsuarioVehiculo")

el valor que esta en negrita es el displaymember, pero no se qu poner si tengo un inner join!!!

espero me puedas ayudar!!
Gracias

blusky:
Hola!!! Ya lo resolvi!!!  Gracias por tu aporte gabio2.

Dejo el codigo para el que quiera utilizarlo

Public Sub cargaComboEmpleado()
        Dim dtipouso As SqlClient.SqlDataAdapter
        Dim dsdatos As DataSet
        dtipouso = New SqlClient.SqlDataAdapter("select Id_Empleado,(PNombre +' '+SNombre+' '+PApe+' '+SApe) as Nombre from tblEmpleados ", abrirConexion)
        dsdatos = New DataSet
        dtipouso.Fill(dsdatos, "tblEmpleados")
        cboUsuarioPrincipal.DataSource = dsdatos.Tables("tblEmpleados")
        cboUsuarioPrincipal.DisplayMember = dsdatos.Tables("tblEmpleados").Columns("Nombre").ToString
        cboUsuarioPrincipal.ValueMember = dsdatos.Tables("tblEmpleados").Columns("Id_Empleado").ToString
    End Sub

Navegación

[0] Índice de Mensajes