delphi利用listview自动加载access表中的数据

你可以使用 Delphi 中的 ListView 控件来自动加载 Access 表中的数据。下面是一个简单的示例代码，演示了如何实现这个功能：

procedure TForm1.LoadDataFromAccess;
var
  Connection: TADOConnection;
  DataSet: TADODataSet;
  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 数据集对象
  DataSet := TADODataSet.Create(Self);
  DataSet.Connection := Connection;
  DataSet.CommandText := 'SELECT * FROM YourTable';

  // 打开连接和数据集
  Connection.Open;
  DataSet.Open;

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

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

    DataSet.Next;
  end;

  // 关闭连接和数据集
  DataSet.Close;
  Connection.Close;

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

在这个示例中，我们首先创建了一个 ADO 连接对象 `Connection`，并设置它的连接字符串来指定 Access 数据库的路径。然后，创建了一个 ADO 数据集对象 `DataSet`，并将其连接到 `Connection` 对象。通过设置 `DataSet`