Puxar dados em um listbox

Delphi

03/04/2003

Ola
gostaria de saber como faço para listar em um listbox os dados de uma tabela ... exemplo, tabela TABPROD ( campos CODPROD e PRODUTO) Gostaria de mostrar em um list box todos produtos q tenho ... acho q é simples

valeu


Fabio Souza


Anonymous

Anonymous

Curtidas 0

Respostas

Anonymous

Anonymous

03/04/2003

Faça assim:
TABPROD.first;
while not TABPROD.eof do begin
lista.Items.Add(TABPRODCODPROD.asstring+ ´ ´+TABPRODPRODUTO.asstring);
tb.next;
end;


Espero ter ajudado.


GOSTEI 0
Anonymous

Anonymous

03/04/2003

Sou eu de novo.

Coloque :

lista.items.clear;

após o tb.first;


GOSTEI 0
POSTAR