数据库查询到的值放入listview中

Question

怎样将从数据库中查询得到的值放入listview的控件中啊？

Answer 1

得到adoquery后，遍历，填充到Listview，不能直接绑定var
  item:TlistItem;
begin
  while not ADOQuery1.Eof do
  begin
    item := ListView1.Items.Add;
    item.Caption := ADOQuery1.FieldByName('xx').AsString;
    item.SubItems.Add(ADOQuery1.FieldByName('xx').AsString);
    ADOQuery1.Next;
  end;
end;

Answer 2

var
  D: TDataSet;
begin
  D := ADoTable1;
  D.Open;  D.First;
  while not D.Eof do
  begin
    with ListView1.Items.Add do
    begin
      Caption := D.Fields[0].AsString;
      with SubItems do
      begin
        Add(D.Fields[1].AsString);
        Add(D.Fields[2].AsString)
      end
    end;
    D.Next
  end;
end;