progress-4gl - 从 Progress OpenEdge 数据库中的表中获取前 100 条记录（例如 SELECT TOP 100..）

Question

如何从 Progress OpenEdge 数据库中的表中获取有限数量的记录？

类似于 SQL 中的内容：

SELECT TOP 100 * FROM MyTable

我能找到的唯一丑陋的解决方案是遍历所有记录并在显示 100 条记录时中断。但感觉应该有一些更好的方法来做到这一点。

Answer 1

如果您使用的是 4GL，您可能还想考虑使用 OPEN QUERY 和 MAX-ROWS 来实现您正在寻找的结果。下面显示了一个带有计数器的传统 FOR EACH 循环，然后是一个带有 MAX-ROWS 的 QUERY：

define variable i as integer no-undo.
define frame a with 10 down.

for each customer no-lock break by name:
  i = i + 1.
  display i custNum name discount.
  if i >= 5 then leave.
end.

define query q for customer scrolling.

open query q for each customer no-lock break by name max-rows 5.

do i = 1 to 5 with frame a:
  get next q.
  display i custNum name discount.
end.

Answer 2

如果您使用的是 SQL-92 引擎，那么类似：

从 pub.customer 中选择 TOP 100；

应该可以正常工作。

如果您使用的是 4GL 引擎，那么您不应该尝试将 SQL 与 4GL 混合。它只会导致痛苦、痛苦和痛苦。4GL 不是 SQL。很久很久以前，出于营销原因，在 4GL 中放置了一些 SQL-89 语句。试图使用它们会导致严重的情绪创伤。你被警告了。

Answer 3

请按照链接下载文件。希望这个问题能回答 OpenEdge 数据库

Answer 4

将变量 i 定义为整数 NO-UNDO。

对于宽度为 320 的每位客户 NO-LOCK：

ASSIGN i = i + 1.

如果 i <= 100 则 DISP CustNum Address Balance City Contact Country CreditLimit Discount
Name Phone PostalCode SalesRep State Terms 。

结尾。