Array
(
)

Como listar uma coluna de uma tabela num dbcombox

Cdteam
   - 06 ago 2004

Olá Pessoal !
Uma coisa que pode parecer simples, mas não consigo fazer um
dbcombobox listar o contéudo de uma coluna inteira de uma tabela
Como faço?


Lucas Silva
   - 06 ago 2004

#Código

procedure TForm1.Button1Click(Sender: TObject); 
var Lista: TStringList;
begin
Lista := TStringList.Create;
with Query1 do
begin
Close;
Sql.Clear;
Sql.Add(´Select Usu_nome From Usuario ´);
Open;

while not eof do
begin
Lista.Add(Fields[0].AsString);
Next;
end;
end;

DBComboBox1.Items := Lista;
end;


Colega,
Talvez seria mais interessante vc usar um lookup!


Cdteam
   - 06 ago 2004

Valew pela dica, obrigado mesmo !

Eu tentei pegar o texto selecionado no dbcombo, mas não consegui, quando coloco x:=DBCOMBOBOX1.text ele só pega o primeiro campo da coluna, como faço?


Lucas Silva
   - 06 ago 2004


Citação:
Valew pela dica, obrigado mesmo !

Eu tentei pegar o texto selecionado no dbcombo, mas não consegui, quando coloco x:=DBCOMBOBOX1.text ele só pega o primeiro campo da coluna, como faço?


Sinceramente não entendi sua pergunta.

no dbCombobox, depois de selecionado algum item, para pegar o texto é s´´o coloca dbcombobox1.Text.