delphi listview显示access的数据到指写的列中自动刷新

要实现在 Delphi 的 ListView 中显示 Access 数据并实现自动刷新的功能，你可以使用 TADOQuery 组件和 TTimer 组件。下面是一个示例代码：

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 设置定时器的间隔为1秒
  Timer1.Interval := 1000;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  // 每次定时器触发时，刷新数据
  LoadDataFromAccess;
end;

procedure TForm1.LoadDataFromAccess;
var
  Connection: TADOConnection;
  Query: TADOQuery;
  ListItem: TListItem;
begin
  // 创建 ADO 连接对象
  Connection := TADOConnection.Create(Self);
  Connection.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb';

  // 创建 ADO 查询对象
  Query := TADOQuery.Create(Self);
  Query.Connection := Connection;
  Query.SQL.Text := 'SELECT * FROM YourTable';

  // 打开连接和查询
  Connection.Open;
  Query.Open;

  // 清空 ListView 中的项
  ListView1.Items.Clear;

  // 遍历查询结果，将数据添加到 ListView 中
  while not Query.Eof do
  begin
    ListItem := ListView1.Items.Add;
    ListItem.Caption := Query.FieldByName('Column1').AsString;
    ListItem.SubItems.Add(Query.FieldByName('Column2').AsString);
    // 添加更多列的数据...

    Query.Next;
  end;

  // 关闭连接和查询
  Query.Close;
  Connection.Close;

  // 释放对象
  Query.Free;
  Connection.Free;
end;

在这个示例中，我们使用了一个 TTimer 组件来定期触发刷新数据的操作。在窗体的 OnCreate 事件中，设置了 Timer 的间隔为1秒。然后，在 Timer 的 OnTimer 事件中，调用了 LoadDataFromAccess 这个函数来刷新数据。这样，每隔1秒钟，ListView 中的数据就会自动刷新一次。

你可以根据你的实际需求，调整定时器的间隔和刷新数据的逻辑。同时，注意在释放对象时，按照顺序释放，避免出现内存泄漏。