Visual Basic para Aplicaciones - combobox

Life is soft - evento anual de software empresarial
 
Vista:

combobox

Publicado por sandra (33 intervenciones) el 26/01/2008 19:33:15
HOLA QUE TAL:
ESTOY DESARROLLANDO UN SISTEMA EN VB6 CON ACCES Y TOY NESECITANDO SAVER COMO PUEDE HACER
LO SIGUIENTE:

TENGO UN COMBOBOX LLAMADO CBOPERSONA QUE HACE ESTO:
*****************
FORM_LOAD()

DIM RECOR AS ADODB.RECORDSET

RECOR.OPEN "SELECT ID_PERSONA, APELLIDO, NOMBRE FROM PERSONAS ", BASEDATO, ADOPENSTATIC
WHILE NOT RECOR.EOF
CBOPERSONA.ADDITEM RECOR("APELLIDO") & "," & ("NOMBRE")
RECOR.MOVENEXT
WEND

END SUB
****************
ESTE COMBO TIENE LOS APELLIDOS,NOMBRE DE LAS PERSONA DE UNA TABLA.
LO QUE ESTOY NECESITANDO ES QUE CUANDO SELECCIONO UNA PERSONA (CUANDO AGO UN CLIK EN EL COMBO)
NECESITO GUARDAR EL ID_PERSONA (identificar )DE LA PERSONA Q ELEJI O SELECCIONE EN
EL CBOPERSONA, EN UNA VARIABLE DE TIPO INTEGER.

BUENO DESDE YA MUCHAS GRACIAS.
ESPERO UNA PRONTA AYUDA. ESTOY NECESITANDO DE SUMA URJENCIA.
ATTE SALUDOS!!!!!
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

RE:combobox

Publicado por VICTOR MARROQUIN RDZ (49 intervenciones) el 28/01/2008 16:15:43
HOLA QUE TAL

Nesecitas otro combobox para manejar el ID de la siguiente manera:

****LLENAR LOS COMBOS******

DIM RECOR AS ADODB.RECORDSET

RECOR.OPEN "SELECT ID_PERSONA, APELLIDO, NOMBRE FROM PERSONAS ", BASEDATO, ADOPENSTATIC
CBOPERSONA.CLEAR
CboID.Clear
WHILE NOT RECOR.EOF
CboID.AddItem Recod("ID")
CBOPERSONA.ADDITEM RECOR("APELLIDO") & "," & ("NOMBRE")
RECOR.MOVENEXT
WEND

AHORA VAMOS A SINCRONIZAR LOS COMBOS

Private Sub CBOPERSONA_Click()
CboID.ListiIndex= CBOPERSONA.ListIndex
EndSub

Si no quieres que el Combo del ID sea visible , le cambias la propiedad visible por FALSE.

ESPERO Y TE SEA DE AYUDA,

SALUD2
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar