SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Jorge López en Jueves 16 de Enero de 2003, 23:07
-
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..........
-
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
-
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