combinar listbox con base de datos

[satan69]

es que tengo un problemita en combinar un listbox con la base de datos ..la base de datos es access...

por ejemplor agregar varias nombre de personas en un listbox y que me muestra la info de esa persona en sus determinados textbox o label y seleccionar otra persona en listbox y me muestre la info de la persona que seleccione....

alguien tiene alguna idea... y gracias de antemano

[CeLaYa]

puedes hacer una consulta para llenar el list y otra para mostrar los datos

Código [Seleccionar] Expandir


dim BD as database
dim Tb as recordSet

Set BD = workspaces(0).Opendatabase("basededatos.mdb")
set tb = bd.OpenrecordSet("SELECT Nombres FROM Tabla ORDER BY Nombre DESC;")

while not tb.eof
    List.AddItem trim(tb!Nombre)
    tb.MoveNext
wend
tb.close
bd.close

Set tb = nothing
set Bd = nothing


y en el evento click del list pondrías un codigo similar para que te búsque los datos de la persona

Código [Seleccionar] Expandir


dim BD as database
dim Tb as recordSet

Set BD = workspaces(0).Opendatabase("basededatos.mdb")
set tb = bd.OpenrecordSet("SELECT Nombres FROM Tabla " & _
                                        "WHERE Nombre = '" & List.List(List.ListIndex) & "';")

    text1.text = trim(tb!Nombre)
    text2.text = trim(tb!Edad)
    text3.text = trim(tb!Otro)

tb.close
bd.close

Set tb = nothing
set Bd = nothing


[satan69]

puedes hacer una consulta para llenar el list y otra para mostrar los datos

Código [Seleccionar] Expandir


dim BD as database
dim Tb as recordSet

Set BD = workspaces(0).Opendatabase("basededatos.mdb")
set tb = bd.OpenrecordSet("SELECT Nombres FROM Tabla ORDER BY Nombre DESC;")

while not tb.eof
    List.AddItem trim(tb!Nombre)
    tb.MoveNext
wend
tb.close
bd.close

Set tb = nothing
set Bd = nothing


y en el evento click del list pondrías un codigo similar para que te búsque los datos de la persona

Código [Seleccionar] Expandir


dim BD as database
dim Tb as recordSet

Set BD = workspaces(0).Opendatabase("basededatos.mdb")
set tb = bd.OpenrecordSet("SELECT Nombres FROM Tabla " & _
                                        "WHERE Nombre = '" & List.List(List.ListIndex) & "';")

    text1.text = trim(tb!Nombre)
    text2.text = trim(tb!Edad)
    text3.text = trim(tb!Otro)

tb.close
bd.close

Set tb = nothing
set Bd = nothing


gracias celaya....

[satan69]

fijate que lo prove y me sale un error en este linea

    List.AddItem trim(tb!Nombre)

que sale objeto no encontrado...

[CeLaYa]

fijate que lo prove y me sale un error en este linea

    List.AddItem trim(tb!Nombre)

que sale objeto no encontrado...

cambia "List" por el nombre de tu ListBox

[satan69]

fijate que lo prove y me sale un error en este linea

    List.AddItem trim(tb!Nombre)

que sale objeto no encontrado...

cambia "List" por el nombre de tu ListBox

asi lo tengo... con el nombre de mi list box

[satan69]

ya lo compuse pero el error me sale cuando quiero seleccionar un nombre en el list box.. que me muestre las info del seleccionado en algunoas texbox