delphi中的LISTVIEW怎么与数据库连接

Question

[b]如题所示，我想用LISTVIEW来显示ACCESS中的数据，应该怎样弄呢，希望能举出一个简单的实例！[/b]

Answer 1

listview的viewstyle属性设置为vsReport
gridline属性设置为true
双击listview，添加列，有多少个字段显示就添加几个列举例代码listview1.clear;
with adoquery1 do
begin
  Sql.text := 'Select * from table1';
  Open ;  while not eof do
  begin
    with listview1.items.add do
    begin
      caption := fieldbyName('field1').asstring;
      subitems.add(fieldbyName('field2').asstring);
      subitems.add(fieldbyName('field3').asstring);
      subitems.add...
    end;
  end;
end;

Answer 2

少了一个NEXT
listview1.clear;
with adoquery1 do
begin
  Sql.text := 'Select * from table1';
  Open ;  while not eof do
  begin
    with listview1.items.add do
    begin
      caption := fieldbyName('field1').asstring;
      subitems.add(fieldbyName('field2').asstring);
      subitems.add(fieldbyName('field3').asstring);
      subitems.add...
    end;
    Next;
  end;
end;

Answer 3

var
  Item: TListitem;
begin
    ADOQuery1.First;
    while not ADOQuery1.Eof do
    begin
      Item:= ListView1.Items.Add;
      Item.Caption:= ADOQuery1.Fields[0].AsString;
      Item.SubItems.Add(ADOQuery1.Fields[1].AsString);
      ADOQuery1.Next;
    end;