使用 ADO 具有预读功能的 DBGrid

Question

我正在使用 ADO 连接到 SQL Server 2005。

我的 TADODataSet 选择 100 万条记录。使用 TDBGrid 并将 TADODataSet.CursorLocation 设置为 clUseServer 可以。但 TDBGrid 窒息了！

如何选择 100 万条记录，避免分页，并且仍然能够在网格中显示记录，而不将所有记录提取到客户端，让网格在我上下滚动时提前读取？

SQL企业管理器可以异步执行查询并选择100万条记录，没有任何问题（也是MS-ACCESS）。

Answer 1

TGrid 不是你的问题。您的问题是 TADODataset 正在尝试加载所有记录。如果必须运行返回如此多记录的查询，则应设置 ExecuteOptions，尝试 eoAsyncExecute 和 eoAsyncFetch。设置 CacheSize 也可能有所帮助。

Answer 2

• 为什么需要将 1M 条记录提取到网格中？没有人能够查看如此多的记录。通常最好在将记录加载到 UI 之前减少记录数量。
• 如果您有充分的理由在网格中显示如此多的记录，则需要一个1)在打开时不会加载整个记录集的数据集2)不缓存以前的记录，否则如果记录大小不够小，它可能会在到达记录集末尾之前就耗尽内存（尤其是在 32 位 Windows 下）。要获得超出 CursorLocation 的结果，您必须正确设置 CursorType 和 CacheSize。
• 您可以使用 TClientDataset 来实现增量获取，将 ADO 数据集 CursorType 设置为 ForwardOnly，并将 CacheSize 设置为合适的值。由于 TClientDataset 缓存读取记录，因此您希望避免源数据集也加载所有这些记录。标准数据库网格需要双向光标，因此它无法与单向光标一起使用。有了如此多的记录，客户端数据集缓存无论如何都会耗尽内存。如果您使用的是 Delphi 版本，我建议使用 Midas Speed Fix 单元 2010 年之前。
• 为了避免“内存不足”错误，您可能需要实现某种分页。无论如何，检查其他 CursorType 的行为是否可以帮助您。

Answer 3

您可以尝试 AnyDAC 和 TADTable。其实时数据窗口模式可以解决您的问题和类似的问题。好处是：

• 最大限度地减少内存使用，并允许处理大数据量，类似于单向数据集；
• 与单向数据集相比，支持双向导航；
• 始终提供新鲜数据，减少刷新数据集的需要；
• 不延迟获取所有结果集记录，需要执行排序、记录定位、跳转到最后一条记录等。