急急急！！！请问如何在下拉框中动态加入数据？

Question

while not AdoQuery.Eof do
begin
  Combobox1.items.add(AdoQuery.FieldbyName('rq').AsString);
  adoquery.Next;
end;

Answer 1

while not ADOQuery1.Eof do
begin
  ComboBox1.Items.Add(ADOQuery1.FieldbyName('yourfield').AsString);
  ADOQuery1.Next;
end;

Answer 2

ADOQuery1.First;
while not ADOQuery1.Eof do
begin
  DBComboBox1.Items.Add(ADOQuery1.FieldbyName('yourfield').AsString);
  ADOQuery1.Next;
end;

Answer 3

ConnectionString中要确认有Mode=ReadWrite|Share Deny None;字样，即在“数据链接属性”的“高级”页中确认“访问权限”下“ReadWrite”已被选中。