SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jorge López en Sábado 18 de Enero de 2003, 15:08
-
datos en listbox
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" SEA = "INFORMATICO" , es decir mi tabla tiene varios campos entre ellos los campos (nombre y tipo), en el campo tipo almaceno datos segun el tipo de producto, por ejemplo, si el producto es de tipo infromatico, en el campo tipo se guarda " Informatico", si el producto es administrativo, se guarda el texto" Administrativo", lo que quiero es que al seleccionar en el combo la option Infornatico, en el listbox se muestre solo los nombres que estan en el campo "Nombre" pero que en el campo "Tipo" sea = " Informatico"
SI ME PUEDEN AYUDAR SE LOS AGRADEZCO....
SALUDOS..........
-
Te suena de algo el SQL; es lo que necesitas.
-
Hay que saber que el listbox muestra todo lo que se le alla agregado, osea si agregas un numero o una palabra el te los muestra.
Existen varias formas pero creo que las mas efectivas puede ser las dos formas de solucion:
1) creas una segunda lista llamada 'list2', en la propiedad 'Visible=False' esto es para que no se vea (lo que quiero decirte es que cargas todos los datos al list2 y despues cargas en el list1 solo lo que filtres) comparando nombre.campo='<dato>' si es igual entonces agrege el nombre.campo en la lista1.
2) utilizando SQL ()