数据库里的字段内容如何读出？

[q103120218]

用listbox.items.add（adoquery.FieldByName('productno').asstring）或者adoquery.FieldValues['productno']只显示这个字段的第一条记录啊，怎么样才能显示出这个字段全部记录

[zshsuming]

  With ADOQuery1 do
  begin
    First;
    while Not Eof do
    begin
      ListBox.Items.Add(FieldByName(FieldName).AsString);
      Next;
    end;
  end;

[xhj12077021]

搞个循环就ok了

回复内容太短了！

[dd_zhouqian]

引用 1 楼 zshsuming 的回复:

Delphi(Pascal) code
With ADOQuery1dobegin
First;while Not Eofdobegin
ListBox.Items.Add(FieldByName(FieldName).AsString);
Next;end;end;

up