problemas con un combo - VB-MUNDO

cangaroo · #1 (**permalink**) 08-01-2007, 17:46:20

pleace!
necesito ayuda
tengo un combo que muestra el nombre y el apellido de una persona que estan en una base de datos, lo que quiero es q cuando le doy clic en la flechita de la derecah del combo y despliege los datos de las personas de la base, muestre en un label solo el apellido de la persona que selecione en el combo...
thank

LOBO_SUELTO_ · #2 (**permalink**) 08-01-2007, 20:34:32

una pregunta, ¿el nombre y el apellido en la base están en campos separados? porque si no es así puedes tener un registro así "Gonzalez Eduardo" o "Eduardo Gonzalez" lo cual creo que sería casi imposible saber si el apellido es Eduardo o Gonzalez

ahora, si al cargar la lista del combo sabés cual es el apellido lo que debes hacer es insertar al final de este un caracter específico para que te quede algo así "Gonzalez_ Eduardo" luego cuando seleccione uno de la lista buscar con la función de VB llamada instr el caracter _ y tomas todo lo que esté antes de este y lo pones en el label.caption
Nota: el caracter puede ser cualquiera pero el usuario no puede poner este caracter como parte del combre de usuarios. Busca uno díficil en el mapa de caracteres de windows.

Suerte

cangaroo · #3 (**permalink**) 08-01-2007, 20:55:53

gracias
en la base de datos tengo una tabla con campos: nombre, apellido, edad
y en el combo muestra:
" yolanda sibaja tiene 47 años"
y una lista grande de todas las personas con este formato, asi lo necesito
cuando seleciona uno con el raton quiero que aparezca su apellido en un label
gracias

LOBO_SUELTO_ · #4 (**permalink**) 09-01-2007, 00:49:14

bueno entonces tenés que insertar dos caracteres:

Código:

combo1.add rst.fields("nombre").value & ", " & rst.fields("apellido").value & "; tiene " & rst.fields("edad").value & "años"

luego en el evento change del combo (solo si su propiedad está establecida a 0 o 1)

Código:

Private Sub combo1_Change()
Dim Pos As Long
Dim strApellido As String
'buscamos la posición final del apellido en combo1.Text
Pos = InStr(1, combo1.Text, ";", vbTextCompare)
strApellido = Left(combo1.Text, Pos - 1)
'buscamos la posición inicial del apellido en strApellido
Pos = InStr(1, strApellido, ",", vbTextCompare) + 1
label1.Caption = Right(strApellido, Len(strApellido) - Pos)
End Sub

Suerte

cangaroo · #5 (**permalink**) 10-01-2007, 04:08:02

oks lo voy a provar y gacias de antemano.
ya en otro foro me habian dicho uno con la instruccion split:
dim r() as integer
-en el combo clic:
r=split(combo1.text,"")
label1.caption=r(1)
y si resulto.
pero en si lo quiero para unas claves de departamento y el rspectivo nombre
y al hacerlo por ejemplo:
42325 MANTENIMIENTO DE PLANTAS
en el label solo aparece mantenimiento
espero q con este codigo resulte luego t digo y muchas gracias lobo!!