Question

delphi如何把数据库中一个表的一列添加到combobox中

delphi如何把数据库中一个表的一列添加到combobox中

Answer 1

比如你要加入表"A"中名为"C"的所有内容到combobox中 可以这样写

adoquery1.Active:=false;
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from A');
adoquery1.Active:=true;
adoquery1.First;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.fieldByName('C').AsString);
adoquery1.Next;
end;

Answer 2

// var GridName:TcxGridDBTableView;
with GridName.DataController.DataSource.DataSet do
For J:=0 to GridName.Columncount-1 do
begin
feildName:= Trim(GridName.Columns[J].DataBinding.FieldName);
combobox1.Items.Add(feildName);
end;
end;

Answer 3

adoquery1.First;
while not adoquery1.Eof do
begin
combobox1.Items.Add(adoquery1.FieldByName('列名').AsString);
adoquery1.Next;
end;
combobox1.ItemIndex := 0;