listbox recebe dados de uma tabela

Delphi

10/04/2014

galera da uma olhada nesse código

with DataModule1.tbl_membros do
begin
Close;
SQL.Clear;
SQL.Add(''select * from TBLmembros'');
Open;
end;
while Not DataModule1.tbl_membros.Eof do
begin
lst_membro.Items.Add(DataModule1.strngfld_membrosemail_mbr.Value) ;
DataModule1.cli_membros.Next;
end;

no código acima eu queria buscar na tabela de membro somente o email do infeliz

na minha tabela tem 10 membros cadastrados

porem quando clico no botão pesquisar ele me retorna somente o email do primeiro membro

ai repete tudo olha no imagen

[img]http://arquivo.devmedia.com.br/forum/imagem/361863-20140410-135141.jpg[/img]

pelo que percebi esta pegando o numero de membros cadastrado no meu caso tem 10
e adiciona no list box o email do primeiro membro
Jose Silva

Jose Silva

Curtidas 0

Respostas

Cauê Nishijima

Cauê Nishijima

10/04/2014

Muda seu código para o seguinte:
with DataModule1.tbl_membros do
begin
   Close;
   SQL.Clear;
   SQL.Add("select * from TBLmembros");
   Open;
end;

while Not DataModule1.tbl_membros.Eof do
begin
   lst_membro.Items.Add(DataModule1.tbl_membrosemail_mbr.Value) ;
   DataModule1.tbl_membros.Next;
end;
GOSTEI 0
Jose Silva

Jose Silva

10/04/2014

valeu Cauê Nishijima deu certo obrigado

pode colcuir o post moerador.
GOSTEI 0
POSTAR