CLR: .Net / Mono / Boo / Otros CLR => VB .NET => Mensaje iniciado por: blusky en Lunes 7 de Febrero de 2011, 22:09
Título: ComboBox con 2 valores de tabla
Publicado por: blusky en Lunes 7 de Febrero de 2011, 22:09
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.
Título: Re: ComboBox con 2 valores de tabla
Publicado por: gabio2 en Martes 8 de Febrero de 2011, 06:25
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 :)
Título: Re: ComboBox con 2 valores de tabla
Publicado por: blusky en Martes 8 de Febrero de 2011, 22:46
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
Título: Re: ComboBox con 2 valores de tabla
Publicado por: blusky en Martes 8 de Febrero de 2011, 23:00
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