Como preencher um TComboBox com os valores do campo de uma tabela.
Veja nesta dica como preencher um componente TComboBox com os valores do campo de uma tabela e mudar o cursor para o modo SQL enquanto o mesmo(TComboBox ) está sendo preenchido.
Você vai precisar estar conectado ao Banco para realizar a procedure abaixo:
procedure TForm1.BitBtn3Click(Sender: TObject);
var i: integer;
begin
query9.close;
query9.sql.clear;
query9.sql.add('select distinct ShipCountry from Orders Order by ShipCountry');
query9.open;
query9.Active := true;
query9.last;
query9.first;
i := 0;
i := query9.RecordCount;
//i:= 99000;//coloquei para visualizar a mudança do cursor para modo "SQL" = crSQLWait. TESTE OK
//showmessage(IntToStr(i));
cz1.Items.Clear;
while i <> 0 do
begin
cz1.Items.Add(query9ShipCountry.Value);
query9.next;
i := i-1;
Screen.Cursor:= crSQLWait;
end;
Screen.Cursor:= crDefault;
query9.Active := false;
end;
Por : Fábio Corrêa
