faz mais ou menos assim, usando TComboBox:
qry1.sql.text := 'select nome from cidade order by nome'
qry1.open;
cbxCidade.Clear;
while not qry1.eof do
begin
cbxCidade.Items.Add(qry1.fieldbyname('nome').AsString);
qry1.next;
end;
qry1.close;
Ainda dá para imcrementar mais, como por exemplo já para a primeira cidade:
cbxIdade.ItemIndex := 0;
Ou ainda incluir um pointero junto ao item, ficando mais fácil recuperar o
valor selecionado.
Ou ainda concatenando o código da cidade ao nome para posteriormente fazer Copy
do código.
Ou ainda usando um ClientDataSet, usar um DbComboBox......
Luciano Calenzani Simões
________________________________
De: Felipe Milagres <[EMAIL PROTECTED]>
Para: delphi-br <delphi-br@yahoogrupos.com.br>
Enviadas: Segunda-feira, 17 de Novembro de 2008 7:01:21
Assunto: [delphi-br] Mostrar conteudo da tabela em um ComboBox
bom dia ...
queria saber como que eu faço para mostrar o conteúdo de uma tabela em um
ComboBox ...
eu tenho a tabela Cidade .. da qual o usuário pode cadastrar qualquer cidade ..
ai queria que a lista de cidades cadastrada pelo usuario fosse mostrada em um
ComboBox ...
tentei usar LookUp .. mas por meu banco de dados ser em Access nao deu muito
certo ...
pensei em algo mais ou menos assim:
ComboBox3.text := frmTabelas.ADOQ_ Cidade.SQL. Add ('select cidade from
Cidade');
mas ai dá um erro em tempo de compilação .. Tipos incompatíveis: TString e
Interger ..
Veja quais são os assuntos do momento no Yahoo! +Buscados
http://br.maisbuscados.yahoo.com
[As partes desta mensagem que não continham texto foram removidas]
