数据库表中的数据的读取

Question

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

Answer 1

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

Answer 2

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 ;

Answer 3

同意 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 ;