Imprimir Página - combinar listbox con base de datos

Título: combinar listbox con base de datos
Publicado por: satan69 en 10 Enero 2007, 20:41 pm

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

;D ;D ;D

Título: Re: combinar listbox con base de datos
Publicado por: CeLaYa en 10 Enero 2007, 22:20 pm

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

Código:

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:

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

Título: Re: combinar listbox con base de datos
Publicado por: satan69 en 11 Enero 2007, 04:16 am

Cita de: CeLaYa en 10 Enero 2007, 22:20 pm

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

Código:

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:

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....

Título: Re: combinar listbox con base de datos
Publicado por: satan69 en 11 Enero 2007, 20:43 pm

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

List.AddItem trim(tb!Nombre)

que sale objeto no encontrado...

Título: Re: combinar listbox con base de datos
Publicado por: CeLaYa en 11 Enero 2007, 21:35 pm

Cita de: satan69 en 11 Enero 2007, 20:43 pm

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

Título: Re: combinar listbox con base de datos
Publicado por: satan69 en 11 Enero 2007, 22:04 pm

Cita de: CeLaYa en 11 Enero 2007, 21:35 pm

Cita de: satan69 en 11 Enero 2007, 20:43 pm

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

Título: Re: combinar listbox con base de datos
Publicado por: satan69 en 11 Enero 2007, 22:11 pm

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

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: satan69 en 10 Enero 2007, 20:41 pm