help----如何将查询的字段送到一个控件里去?

Question

查找数据库中一个表里的一个字段,查询语句如下( select 个人编号  form  talble1)
查询到的结果是 个人编号
               2001
               2002
               2003 
               .... 
我想将查询结果中的每条个人编号值(即2001,2002.2003)三个值依次添加到一个combobox控件里面去.怎么做?
也就是说将查询到的其中一个字段里的所有值添加到combobox里面去.  我用的是adoconnection,adoquery,datasource.我初学delphi,还望各位具体讲解,在此谢谢了.

Answer 1

combobox1.items.clear;
with adoquery  do
begin
    first;
    while not eof do
    begin
         combobox1.items.add(fieldbyname('查询字段').asstring);
         next;
    end;
end

Answer 2

var i:Integer;
......combobox1.items.clear;
for i:=1 to adoquery1.RecordCount do
     begin
        combobox1.Items.Add(adoquery1.FieldValues['个人编号'])  ;
        adoquery1.Next;
     end;