[Resolvido] Inserir dados de um select em uma TStringList

[icaro_ 0]

Ola galera bom dia !

To com um probleminha aqui...hehe

 

seguinte preciso fazer uma busca simples no banco de dados firebird!

 

uso o seguinte comando

 

      QtrasProd.close;
     QtrasProd.SQL.Clear;
     QtrasProd.SQL.Text:='SELECT campo_da_tabela FROM tabela WHERE campo_da_tabela LIKE'+QuotedStr(Edit3.Text)+'%';
     QtrasProd.Open;

 

até aqui tubo bem,

so que necessito colocar os dados para o cliente selecionar,em um combobox,que usa a TstringList,

 

com o codigo seguinte

 

       prod_lista.Add(QtrasProd.FieldByName('NOME_PRO').AsString);

 

O problema se inicia aqui

so consigo colocar o mesmo registro, ele nao coloca os outros dados a disposiçao apenas o primeiro da lista.

 

 

como poderia colocar todos os dados do result no combobox?

desde já agradeço.

[Felipe Pierin 0]

Olá Icaro,

 

Veja se isso funcionaria para você:

 

QtrasProd.close;
QtrasProd.SQL.Text := 'SELECT campo_da_tabela FROM tabela WHERE campo_da_tabela LIKE'+QuotedStr(Edit3.Text)+'%';
QtrasProd.Open;
while not QtrasProd.EOF do
begin
 prod_lista.Add(QtrasProd.FieldByName('NOME_PRO').AsString);
 QtrasProd.Next;
end

 

Um abraço,

[icaro_ 0]

Ola Felipe,

Caiu como uma Luva... :D

 

muito obrigado,até +

 

abraço...