菜鸟问题，50分求助，怎样把数据表中某一个字段动态获取并添加到DBComboBox1的items中？具体怎样实现?

[dfan]

菜鸟问题，50分求助，怎样把数据表中某一个字段动态获取并添加到DBComboBox1的items中？具体怎样实现！

[dfan]

谢谢大家！马上给分！

[li_zhifu]

Table1.Active;
DBComboBox1.Items.Clear;
Table1.DisableControl;
While Not Table1.Eof do
begin
DBComboBox1.Items.Add(Table1.FieldbyName('FieldName').AsString);
Table1.Next;
end;
Table1.EnableControl;

[li_zhifu]

用TQuery控件也一样

[edward_zfh]

ado 數據集

DbComBoBox1.Items.Clear;
ADODataSet1.Close;
ADODataSet1.CommandText := 'select bss011 from bss_file order by bss011 asc ';
ADODataSet1.Open;
while not adodataset1.eof do
begin
DbComboBox1.items.add(adodataset1.fieldbyname('bss011').asstring);
ADODataSet1.Next;
end;
ComboBox1.Text := ComboBox1.Items[0];
ADODataSet1.Close;

[yuanljx]

var i as integer
with query1 do
begin
.active:=false;
.sql:="";
.sql:="select A from table where ...";
prepare;
open;

end;
if query1.recordcount<>0 then
begin
dbcombobox1.items.clear;
query1.first;
for i:=1 to query1.recordcount do
begin
dbcombobox1.items.add(query1.fieldvalues["A"]);
query1.next;
end;
end;

[Soft21]

大家好啊，看来，妙！