ComboBox ou DBCombobox
Salve todos! Gostaria de saber como faço pra adicionar em uma combobox (preferencia) ou emuma DBComboBox; relacao de cidades que exista em um banco de dados; porem tem buscar no Banco de dados e retonar somente uma vez o nome da cidade no ComboBox.
Ex correto:
Goval
Tumiritinga
Ipatinga
Téofilo Otoni
como nao gostaria que aparecesse:
Goval
Goval
Tumiritinga
Ipatinga
Téofilo Otoni
Repetiu duas vez a cidade Goval
Ex correto:
Goval
Tumiritinga
Ipatinga
Téofilo Otoni
como nao gostaria que aparecesse:
Goval
Goval
Tumiritinga
Ipatinga
Téofilo Otoni
Repetiu duas vez a cidade Goval
Marcelop
Curtidas 0
Respostas
Wdrocha
31/10/2008
Vc pode usar o Dinstict, exemplo....
Select Distinct NomeCidade From Cidades
espero ter ajudado...
Flw
Select Distinct NomeCidade From Cidades
espero ter ajudado...
Flw
GOSTEI 0
Martins
31/10/2008
Tente algo mais ou menos assim no OnEnter do ComboBox
Boa sorte.
ComboBox1.Itens.Clear; for i:=0 to TbCidades.Count-1 do ComboBox1.Itens.Add(TbCidadesNome.Value); TbCidade.Next;
Boa sorte.
GOSTEI 0
Marcelop
31/10/2008
deu erro!
procedure TFormOpc.ComboBox1Enter(Sender: TObject);
var
i : integer;
begin
ComboBox1.Items.Clear;
for i:=0 to Table1.Count - 1 do
ComboBox1.Items.Add(Table1.FieldByName(´cidimv´).Value);
Table1.Next;
end;
[Error] fopc.pas(83): Undeclared identifier: ´Count´
[Fatal Error] quiosque.dpr(6): Could not compile used unit ´fopc.pas´
procedure TFormOpc.ComboBox1Enter(Sender: TObject);
var
i : integer;
begin
ComboBox1.Items.Clear;
for i:=0 to Table1.Count - 1 do
ComboBox1.Items.Add(Table1.FieldByName(´cidimv´).Value);
Table1.Next;
end;
[Error] fopc.pas(83): Undeclared identifier: ´Count´
[Fatal Error] quiosque.dpr(6): Could not compile used unit ´fopc.pas´
GOSTEI 0
Marcelop
31/10/2008
o codigo nao dá erro, porem nao aparece nada no combobox
procedure TFormOpc.ComboBox1Enter(Sender: TObject);
var
i : integer;
begin
FormOpc.ComboBox1.Items.Clear;
for i:=0 to combobox1.items.Count - 1 do
FormOpc.ComboBox1.Items.Add(FormOpc.Table1.FieldByName(´cidimv´).text);
FormOpc.Table1.Next;
end;
procedure TFormOpc.ComboBox1Enter(Sender: TObject);
var
i : integer;
begin
FormOpc.ComboBox1.Items.Clear;
for i:=0 to combobox1.items.Count - 1 do
FormOpc.ComboBox1.Items.Add(FormOpc.Table1.FieldByName(´cidimv´).text);
FormOpc.Table1.Next;
end;
GOSTEI 0