ComboBox

Delphi

28/01/2005

Caros Colegas, gostaria de saber como faça para inserir valores em uma ComboBox da paleta Standard através de uma Query? Não da ComboBox da paleta Data Constrols.

Desde já agradeço pela atenção.


Tfbarbosa

Tfbarbosa

Curtidas 0

Respostas

Denis

Denis

28/01/2005

ComboBox1.Items.Add(´Opção1´);
ComboBox1.Items.Add(´Opção2´);
ComboBox1.Items.Add(´Opção3´);


GOSTEI 0
Tfbarbosa

Tfbarbosa

28/01/2005

Mas como faço pegar os valores da Query?


GOSTEI 0
Paulo_amorim

Paulo_amorim

28/01/2005

Olá

Query.FieldByName(´campo1´).AsString


Faça isso em um laço varrendo a Query

Espero que ajude
Até+


GOSTEI 0
Denis

Denis

28/01/2005

Completando o exemplo :

while not query1.eof do
begin
ComboBox1.Items.Add(Query.FieldByName(´campo1´).AsString);
query1.next;
end;

ou neste caso poderia usar o DBLookupComboBox que tem a mesma finalidade do exemplo acima. Mas com a facilidade de apenas setar a query para ele.


GOSTEI 0
Tfbarbosa

Tfbarbosa

28/01/2005

Obrigado Denis.
Usei o DBLookupComboBox mesmo, é mais fácil. Da outra maneira não consegui e é mais complicado.

Abraços.


GOSTEI 0
POSTAR