Autor Tema: Mostrar Contenido de una base de Datos Mediante un combobox (Leído 2542 veces)

RIPE · « **en:** Martes 19 de Agosto de 2014, 18:40 »

Saludos a todos..

Mi pregunta es la siguiente.
Como puedo mostrar información de un registro, seleccionando un dato de un combo box?

La cuestion es que tengo una Base de Datos en Access conectada a VB6 mediante un Adodc, y en un formulario tengo un combo box que muestra el por ejemplo el numero de empleado y al seleccionarlo me gustaria que en algunos textbox apareciera la información correspondiente a este empleado como su direccion, telefono, etc..

Podria alguien ayudarme..?

TheBlackJoker

Suponiendo que tu combo se llame CboProyecto, agregas este codigo en el evento click del mismo

Código: Visual Basic

Private Sub CboProyecto_Click()
'Para que al dar click al combo se valla al PROYECTO y sus datos correspondientes
If CboProyecto.Text <> "" Then
    Adodc1.Recordset.MoveFirst
    For i = 0 To Adodc1.Recordset.RecordCount - 1
        If CboProyecto.Text <> Adodc1.Recordset.Fields.Item("Proyecto") Then
            Adodc1.Recordset.MoveNext
        Else
            Exit For
        End If
    Next i
End If
End sub

Y ESTE CODIGO, lo agregas en un procedimiento para llenar el cbo con los datos (como el form load, ahi estaria bien)

Código: Visual Basic

CboProyecto.Clear
    Adodc1.Recordset.MoveFirst
    For i = 0 To Adodc1.Recordset.RecordCount - 1
        CboProyecto.AddItem Adodc1.Recordset.Fields.Item("Proyecto")
        Adodc1.Recordset.MoveNext
    Next i
CboProyecto.ListIndex = 0

Avisame si funciona, estoy para ayudar

SoloCodigo

Autor Tema: Mostrar Contenido de una base de Datos Mediante un combobox (Leído 2542 veces)

RIPE

Mostrar Contenido de una base de Datos Mediante un combobox

TheBlackJoker

Re:Mostrar Contenido de una base de Datos Mediante un combobox