Visual Basic - Lenar listbox

Life is soft - evento anual de software empresarial
 
Vista:

Lenar listbox

Publicado por Rafa (7 intervenciones) el 30/09/2004 15:48:22
mi pregunta es si se puede llenar un list box con uno o varios campos de una tabla de una base datos acces
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Lenar listbox

Publicado por POLA (522 intervenciones) el 30/09/2004 16:06:47
Si se puede. Una vez abierto el RecordSet utiliza este codigo:

Do until Rs.Eof
List1.AddItem Rs!Mi_Campo
Rs.MoveNext
Loop

Mi_Campo, es el nombre del campo de la tabla, y Rs es el objeto RecordSet que tu abras.

Saludos Pola
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Lenar listbox

Publicado por Ruri (583 intervenciones) el 01/10/2004 01:14:41
Rafa: Podés utilizar este código

with Rds 'Recodser de tu tabla
if .recordcount<1 then exit sub
.MoveLast
.MoveNext
For k=1 to .RecordCount
List1.AddItem .Fileds("Campo").Value
List1.ItemData(List1.NewIndex) = .Fileds("Clave_Campo").Value
Next k
end with
'Donde "Campo" es el campo que mostrás en la lista y "Clave_Campo" la clave principal del campo. La mayoría de la veces es necesario guardarla para poder modificar o buscar datos. Para recuperar "Clave_Campo" se hace así

Dim idCampo as long
With List1
If .Listindex<0 then exit sub
idCampo = List1.ItemData(List1.ListIndex)
End With
Luego hacé lo que quieras con la clave principal del campo

Espero que te sirva

Saludos Ruri
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar