Fórum Jogar pesquisa num combobox #156786
30/04/2003
0
Bom dia a todos.
query1.Close;
query1.sql.clear;
query1.sql.add(´select * from fornecedor where codigo > ´+#39+´1´+39+´ and codigo < ´+39+´1000´+39+´´);
query1.Open;
O código acima me dá todos os fornecedores entre os códigos 1 e 1000. A dúvida é como listar todos eles em um combobox. Existe esta possibilidade?
Grato pela atenção.
query1.Close;
query1.sql.clear;
query1.sql.add(´select * from fornecedor where codigo > ´+#39+´1´+39+´ and codigo < ´+39+´1000´+39+´´);
query1.Open;
O código acima me dá todos os fornecedores entre os códigos 1 e 1000. A dúvida é como listar todos eles em um combobox. Existe esta possibilidade?
Grato pela atenção.
Hacson Menezes
Curtir tópico
+ 0
Responder
Posts
30/04/2003
Excon
Olá;
Query1.First;
Combo.Items.Add(Query1[´Campo´];
Combo.Sort := True;
Combo.ItemIndex := 0;
Query1.First;
Combo.Items.Add(Query1[´Campo´];
Combo.Sort := True;
Combo.ItemIndex := 0;
Responder
Gostei + 0
30/04/2003
Renato
Query1.Close;
Query1.sql.clear;
Query1.sql.add(´select * from fornecedor where codigo ´+#39+´1´+39+
´ and codigo < ´+39+´1000´+39+´´);
Query1.Open;
if Query1.RecordCount > 0 then
begin
Query1.First;
while not Query1.Eof do
ComboBox1.Items.Add(Trim(Query1.FieldByName (´Fornecedor´).AsString));
Query1.Next;
end;
Query1.Close;
Tai seu código.
Um abraço Renato.
Query1.sql.clear;
Query1.sql.add(´select * from fornecedor where codigo ´+#39+´1´+39+
´ and codigo < ´+39+´1000´+39+´´);
Query1.Open;
if Query1.RecordCount > 0 then
begin
Query1.First;
while not Query1.Eof do
ComboBox1.Items.Add(Trim(Query1.FieldByName (´Fornecedor´).AsString));
Query1.Next;
end;
Query1.Close;
Tai seu código.
Um abraço Renato.
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)