用adoquery取指定字段所有值问题？

Question

count:=adoquery1.Recordset.RecordCount;
     for i:=1 to count do
     DBComboBox1.Items.AddStrings(adoquery1.IndexFields);
小弟想用adoquery取指定字段所有值，在DBComboBox里显示出来？上面是错误代码，初学。
大家帮帮忙。谢谢.

Answer 1

var
  sList : TStrings;
begin
  sList := TStringList.create;with qry do 
begin
  first;
  while not eof do 
  begin 
    sLIst.add(FieldByName('要取的字段名称').asString);
    next;
  end;
end;
showmessage(sList.text);
搞定。给我分哦。

Answer 2

我要在在DBComboBox里显示出来啊

Answer 3

while not adoquery1.Eof do
begin
  ComboBox1.Items.Add(adoquery1.fieldbyname('id').asstring); //id改为你要指定的字段
  adoquery1.Next;
end;

Answer 4

在DBComboBox里显示出来啊。。大家帮帮忙啊。。在线给分啊

Answer 5

如果是DBComboBox
procedure TForm1.FormCreate(Sender: TObject);
begin
  adoquery1.SQL.Add('select * from test);
  adoquery1.Open;
  DBComboBox1.DataField:='id';
  while not adoquery1.Eof do
  begin
    DBComboBox1.Items.Add(adoquery1.fieldbyname(DBComboBox1.DataField).AsString);
    adoquery1.Next;
  end;
end;