Jogar pesquisa num combobox
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
Curtidas 0
Respostas
Excon
30/04/2003
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;
GOSTEI 0
Renato
30/04/2003
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.
GOSTEI 0