如何将数据库中的某个字段的所有记录读入到一个ComboBox中?

Question

采用ado连接数据库，需要添加什么控件，需要修改什么属性，需要些什么程序？

Answer 1

家adoquery可以
adoquery.open;
for i := 1 to adoquery.recordcount do
begin
  combobox1.Items.Add(adoquery.fieldbyname('fieldname').value);
  adoquery.next;
end;

Answer 2

同意樓上兄弟！
增加一個ADOQUERY控件，連接到數據庫後設置ADOQUERY查詢條件
adoquery.close;
adoquery.sql.clear;
adoquery.sql.add('select ...........');
adoquery.open;
for i := 1 to adoquery.recordcount do
begin
  combobox1.Items.Add(adoquery.fieldbyname('fieldname').value);
  adoquery.next;
end;

Answer 3

人认为你最好应该用DBCOMBOBOX这个控件，它是比较好用的，而且专用数据库。

Answer 4

procedure Tfrm_ypfklog.CBB_YFnameDropDown(Sender: TObject);
var
  s: string;
begin
  CBB_YFName.Items.Clear;
  with DM.ADOQuery_YK do
  begin
    close;
    open;
    First;
    while Not Eof do
    begin
      s := FieldByName('Cangk_Mc').AsString;
      CBB_YFname.Items.Add(s);
      next;
    end;
  end;
end;里面的adoquery你要该一下，里面的字段名要该一下，就可以了

Answer 5

对了，还有要改CBB_yfname  这个是Combobox控件 改成你用的

Answer 6

adoconnection 中的CONNECTIONSTRING；

Answer 7

同意，可以在form的 onshow 事件中编写代码，代码如楼 上各位所说

Answer 8

我同意"sailer_shi"这个老兄的说法,我在应用中也是这样用的

Answer 9

adoquery.close;
adoquery.sql.clear;
adoquery.sql.add('select ...........');//（select * from 表的名字）对不对？？
adoquery.open;
for i := 1 to adoquery.recordcount do//这里报错，怎么回事啊？？？？
begin
  combobox1.Items.Add(adoquery.fieldbyname('fieldname').value);
  adoquery.next;
end;

Answer 10

procedure Tmodi.FormCreate(Sender: TObject);
var
tempado:tadoquery;
i:integer;
begin
  tempado:=tadoquery.Create(self);
  tempado.Connection:=dm.ADOConn;  \\adoconn是数据模块的adoconnection控件
  tempado.SQL.Clear;
  tempado.SQL.Add('select fwdw from config order by fwdw');
  tempado.Open;
  combobox1.Clear ;
  combobox1.Items.Add('全部');
  for i:=0 to tempado.RecordCount-1 do
      begin
      combobox1.Items.Add(tempado.fieldbyname('fwdw').AsString);
      tempado.Next;
      end;
  combobox1.ItemIndex:=0;
  tempado.Close;
  tempado.Free;
end;
我的代码,你贴过去改一下就好了

Answer 11

同意樓上兄弟！
增加一個ADOQUERY控件，連接到數據庫後設置ADOQUERY查詢條件
adoquery.close;
adoquery.sql.clear;
adoquery.sql.add('select ...........');
adoquery.open;
for i := 1 to adoquery.recordcount do
begin
  combobox1.Items.Add(adoquery.fieldbyname('fieldname').value);
  adoquery.next;
end;

Answer 12

tempado.Connection:=dm.ADOConn;  //\\adoconn是数据模块的adoconnection控件
dm.是什么意思？？？