DBLookupComboBox ===gt;gt;gt; ComboBox

Question

Preciso transferir todos os itens de um DBLookupComboBox (que est� devidamente funcionando e recebendo os dados do banco de dados) para um ComboBox simples. N�o me pergunte o porqu�, mas preciso fazer isso URGENTE e por incr�vel que pare�a n�o estou conseguindo. A impress�o � que � uma tarefa IMPOSS�VEL!!!

Aroldo Zanela · Answer

Colega,Uma solu��o seria carregar o ComboBox a partir do Dataset que est� ligado ao DBLookupComboBox....

E_haddad · Answer

Parece ser uma boa, mas, como fa�o isso? � um ComboBox simples! N�o tenho op��o de trabalhar com BD!...

Aroldo Zanela · Answer

Colega,Agora fiquei sem entender. O que voc� precisa realmente? Popular um ComboBox (Combobox.Items.Add(��)) com qual conte�do? N�o seria o mesmo de um dbLookupComboBox?...

E_haddad · Answer

Amigo,Eu tenho um DBLookupComboBox funcionando perfeitamente! Mas eu quero pegar todos os itens dele e jogar dentro de um ComboBox simples!Entendeu?Eu n�o quero trabalhar com o DBLookupComboBox !!! Vou deixar ele INVISIBLE e usar o ComboBox simples !!!...

Aroldo Zanela · Answer

Colega,O que tem na propriedade listsource do dblookupcombobox?...

E_haddad · Answer

Pois � amigo ...Mas acho que vc ainda n�o me entendeu !...O que tem na propriedade ListSource do DBLookupComboBox � o que eu j� tenho funcionando desde o in�cio !!! Entendeu ??? Isso eu j� tenho funcionando corretamente, por�m, o que eu quero � passar todos os dados (itens) do DBLookupComboBox para o ComboBox simples!!!Creio que est� havendo algum erro de interpreta��o amigo....

Aroldo Zanela · Answer

[quote:f740b3a6b3=�e_haddad�]Parece ser uma boa, mas, como fa�o isso? � um ComboBox simples! N�o tenho op��o de trabalhar com BD![/quote:f740b3a6b3]Colega,Se voc� tem um dbLookupComboBox com um DataSet atribu�do, ent�o, certamente possui um BD conetado e dispon�vel.Para popular um combobox com os mesmos itens que est�o no dbl, basta utilizar um While..do com o m�todo add, como abaixo:[code:1:f740b3a6b3]while not tbdodblookupcombobox.eof dobegin  combobox.items.add(�campo�);  tbdodblookupcombobox.next;end;[/code:1:f740b3a6b3]...

E_haddad · Answer

� exatamente isso que eu quero, por�m...

Acho que o c�digo que vc me passou tem cara de VB! O Delphi n�o consegue compilar o �EOF� (end of file)...

Olha meu c�digo:

while not dbTipoProjeto.eof do
begin
cboTipoProjeto.Items.Add(dbTipoProjeto.ListField);
dbTipoProjeto.next;
end;

Aroldo Zanela · Answer

Colega,[code:1:08934d8a3e]while not dbTipoProjeto.eof do begin   cboTipoProjeto.Items.Add(dbTipoProjeto.FieldByName(�colunaBD�).AsString);   dbTipoProjeto.next; end;[/code:1:08934d8a3e]N�o h� nenhum problema em rela��o do m�todo EOF, pois ele � implementado para classes TDataSets e seu descendentes....

E_haddad · Answer

Amigo, o Delphi n�o reconhece o EOF...
Erro de sintaxe n�o declarada, Undeclared Identifier.

Estou usado Paradox7 como BD e para ligar o banco estou usando DataBase, DataSource e Query

Meu c�digo:

while not dbTipoProjeto.Eof do
begin
cboTipoProjeto.Items.Add(dbTipoProjeto.FieldByName(�TipoProjeto�).AsString);
dbTipoProjeto.Next;
end;

ELE N�O RECONHECE O EOF, TBM N�O IR� RECONHECER O �FieldByName�, nem o �Next�.

E_haddad · Answer

Desculpe, estou usando Banco Access XP e Delphi 7....

Aroldo Zanela · Answer

Colega,dbTipoProjeto deve ser o nome do dataset (tabela ou query) que est� na respectiva propriedade do dblookupcombobox....

F�rum DBLookupComboBox ===gt;gt;gt; ComboBox #221143