Como listar uma coluna de uma tabela num dbcombox

06/08/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?


Cdteam

Respostas

06/08/2004

Lucas Silva

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&93;.AsString); 
         Next; 
       end; 
    end; 

    DBComboBox1.Items := Lista; 
end;


Colega,
Talvez seria mais interessante vc usar um lookup![/code]


Responder Citar

06/08/2004

Cdteam

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?


Responder Citar

06/08/2004

Lucas Silva

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[b:f0448baf6f] dbcombobox1.Text.[/b:f0448baf6f]


Responder Citar