数据库表中的数据的读取

[bandrui]

我用SQL建立了一张表格，现在在FORM中加了一个combobox，现在我想在程序运行时combobox下拉列表中自动加载sql表中的一个字段中的所有数据，实现combobox中的内容随表自动更新，但是做了好几次都没成功，谁能告诉我怎么做吗？

[bandrui]

这个方法我试过了。不行阿。

[wjlsmail]

With ADOQuery1 do
begin
Close ;
Sql.Text := 'select FieldName from Table' ;
Open ;
First ;
While Not Eof do
begin
ComboBox1.Items.Add(FieldByName('FieldName').AsString) ;
Next ;
end ;
end ;

[CityhunterID]

同意 wjlsmail(计算机质子) 的写法。

我加了一点点，不知道对你有没有用。

With ADOQuery1 do
begin
Close ;
Sql.Text := 'select FieldName from Table' ;
Open ;
First ;
While Not Eof do
begin
// 可以去除重复数据。
if (ComboBox1.Items.IndexOf(FieldByName('FieldName').AsString) = -1) then
begin
ComboBox1.Items.Add(FieldByName('FieldName').AsString) ;
end;
Next ;
end ;
end ;

[bluespy]

combobox2.Items.Clear ;
while not eof do
begin
combobox2.Items.Add(data.fieldbyname('列').Value );
next;
end;