如何把SQL查询结果赋值给ComboBox1.items

Question

while not ADO1.eof 
begin
ComboBox1.items.add(   ado1.fieldbyname('字段名称').value );
ado1.next
end;大概只有写

Answer 1

showmessage('查询结果集数量:' + inttostr(ado1..RecordCount));
ADO1.first;
ComboBox1.items.clear;
while not ADO1.eof do
begin
ComboBox1.items.add(   ado1.fieldbyname('字段名称').value );
ado1.next
end;

Answer 2

  SQL:='select * from 表名 where 条件字段=''条件''';
  DataModule1.ClientDataSet4.Active:=False;
  DataModule1.ClientDataSet4.Active:=True;
  DataModule1.ClientDataSet4.DataRequest(SQL);
  with DataModule1.ClientDataSet4 do
  begin
    First;
    while not Eof do
    begin
      Mylist.Add(FieldByName('选择字段').AsString);
      Next;
    end;
  end;
  MyList.Insert(0,'');
  ComboBox1.Items.Text:=Mylist.Text;建议使用TStringList，通过MyList.Insert(0,'');还可以为Combobox增加一空(行)数据。