各位大蝦﹐請問如何將一個數據表的某一字段的所有值賦給一個combobox控件（也就是把字段的所有值添加到下拉菜單中）﹔

Question

請問如何將一個數據表的某一字段的所有值賦給一個combobox控件（也就是把字段的所有值添加到下拉菜單中）﹔

Answer 1

procedure TM_form.addcomboboxitems(acombobox: tcombobox;const str_sql: string);
var
  tempquery:tadoquery;
begin
  tempquery:=tadoquery.create(self);
  if dbm.ADOConn.Connected=false then
     dbm.ADOConn.Connected :=true;
  with tempquery do
  begin
    close;
    connection:=dbm.adoconn;
    sql.Clear ;
    sql.text:=str_sql;
    open;
    first;
    acombobox.Items.Clear;
    while not eof do
    begin
      acombobox.Items.Add(Fields[0].Value);
      next;
    end;
  end;
  acombobox.ItemIndex :=0;
  tempquery.Close;
  tempquery.Free ;
end;str_sql如：
str_sql:='select 字段名 from 表名'

Answer 2

adoquery1.SQL.Clear;
    sqlstr := 'sql语句';
    adoquery1.SQL.Add(sqlstr);
    adoquery1.Open;
    cb_dcRange.Items.Clear;
    while not adoquery1.Eof do
    begin
      cb_dcRange.Items.Add(adoquery1.Fields[0].AsString);
      adoquery1.Next;
    end;

Answer 3

while not ADOQuery1.eof do
    begin
    combobox1.items.add(ADOQuery1.fieldbyname('us_name').asstring);
    ADOQuery1.next;
end;

Answer 4

写什么程序啊
用lookupcombobox

Answer 5

謝謝大家了﹐還是snowfoxyr(雪中狐) 的最簡單﹐ 我原來弄錯了。
     
    combobox1.items.text:=(ADOQuery1.fieldbyname('us_name').asstring);//小心喔﹔