ComboBox
Estou usando ADO e preciso carregar o campo de uma determinada tabela
Coloquei o seguinte codigo no Evento OnClik da Combo
with qry_teste do
begin
Close;
Sql.Clear;
Sql.Add(´Select distinct municipio from Municipio order by municipio´);
Open;
end;
qry_teste.First;
while not qry_teste.Eof do
begin
cbox_Curso.Items.Add(qry_teste.FieldByName(´municipio´).ASString);
qry_teste.Next;
end;
Só que a Combo não carrega, alguém pode me ajudar ??
Coloquei o seguinte codigo no Evento OnClik da Combo
with qry_teste do
begin
Close;
Sql.Clear;
Sql.Add(´Select distinct municipio from Municipio order by municipio´);
Open;
end;
qry_teste.First;
while not qry_teste.Eof do
begin
cbox_Curso.Items.Add(qry_teste.FieldByName(´municipio´).ASString);
qry_teste.Next;
end;
Só que a Combo não carrega, alguém pode me ajudar ??
Marina
Curtidas 0
Respostas
Neguta
12/05/2003
Coloque esta rotina no OnCreate Do Form onde está o combo, se colocar no click não vai dar certo.
--Anderson--
--Anderson--
GOSTEI 0
Edmar Zatarin
12/05/2003
e ai amigo, tenta fazer assim:
query.close;
query.sql.clear;
query.sql.add(´Select F.IDFuncionario From tabfuncionarios F´);
query.open;
while not query.eof do
begin
combo.Items.add(inttostr(query.fieldbyname(´IDFuncionario´).asinteger);
query.next;
end;
o campo IDFuncionario eh um campo do tipo inteiro.
qq coisa, manda novamente!!
query.close;
query.sql.clear;
query.sql.add(´Select F.IDFuncionario From tabfuncionarios F´);
query.open;
while not query.eof do
begin
combo.Items.add(inttostr(query.fieldbyname(´IDFuncionario´).asinteger);
query.next;
end;
o campo IDFuncionario eh um campo do tipo inteiro.
qq coisa, manda novamente!!
GOSTEI 0
Edmar Zatarin
12/05/2003
ops.... eskeci de uma coisinha...
coloque no evento OnCreate ou no evento OnShow
abracos
coloque no evento OnCreate ou no evento OnShow
abracos
GOSTEI 0