Programación General > Visual Basic 6.0 e inferiores

 Re: datos en listbox

(1/1)

Jorge López:
tengo el siguiente codigo en el form_load:

private sub form_load()
dim sistema as database
dim nombre as recordset
set sistema = Workspaces(0).Opendatabase(App.Path & "Sistema.mdb")
set nombre = sistema.Openrecorset("productos",dbOpenTable)
dim cadena as string

      If nombre.recordcount > 0 then
nombre.movefirst
     do while Not nombre.EOF
          cadena= nombre!Nombre_del_Producto & Chr(9)
ListaIF.AddItem cadena
nombre.MoveNext
    loop
end if
end sub




********************************


ok
con esto cargo los datos del campo "nombre_del_Producto" al cargar el el listbox...chevere hata aca, el problema es que solo quiero que se muestre los nombres del campo "Nombre_del_producto" PERO QUE EN EL CAMPO "TIPO" SEAN = A "INFORMATICO"



SI ME PUEDEN AYUDAR SE LOS AGRADEZCO....



SALUDOS..........

javierbalk:
Hola Jorge:

No llego a entender lo que quieres cuando dices "PERO QUE EN EL CAMPO "TIPO" SEAN = A "INFORMATICO"

Pero si es lo que pienso, quieres que se muesten los nombres y que al hacerle click te pase el número, código o tipo asociado.

Si es eso Utiliza la colección ItemData de ListBox.
Busca en la ayuda, pero es algo así.

ListaIF.AddItem cadena
ListaIF.ItemData (ListaIF.NewIndex) = nombre!CampoQueQuieras

Luego en el evento click del listBox tienens el dato en ListaIF.ItemData (ListaIF.ListIndex)

Espero que sea esto.

Saludos,
Javier

manukoz:
Si lo que necesitas es cargar los productos cuando tipo sean informaticos podes abrir el recorset distinto, de esta forma

set nombre = sistema.Openrecorset("select productos from <aca le pones el nombre de la tabla> where tipo = 'INFORMATICO')

Saludos


"Nombre_del_producto" PERO QUE EN EL CAMPO "TIPO" SEAN = A "INFORMATICO

Navegación

[0] Índice de Mensajes