Assim não dá certo ? dataret.Convenio.First; while not dataret.Convenio. Eof do begin numcon:= dataret.ConvenioNUM CON.Value; conv:= inttostr (dataret.ConvenioNU MCON.value) ; listbox2.Items. Add(conv) ; dataret.Convenio. Next;
diegosaldanha0903 <[EMAIL PROTECTED]> escreveu: Como faço para eu pegar um valor o valor no banco de dados jogar em uma variavel e fazer os testes desse valor adquirido, um por vez. To jeito que estou tentando so me da o ultimo valor cadastrado no banco. while not dataret.Convenio.Eof do begin numcon:= dataret.ConvenioNUMCON.Value; conv:= inttostr (dataret.ConvenioNUMCON.value); listbox2.Items.Add(conv); dataret.Convenio.Next; --------------------------------- Abra sua conta no Yahoo! Mail, o único sem limite de espaço para armazenamento! [As partes desta mensagem que não continham texto foram removidas]