如何在db中的任何字段中检索特定记录。

时间:2017-07-13 12:07:19

标签: openedge progress-4gl

我们是进步的新手,我们喜欢在现有数据库中检索特定记录,例如:如果我们在该记录中有500条记录,我需要只检索一条记录。为此我该怎么办..? 请帮我们提供示例代码..

我们在这里获取代码..

def var sum as int. 
def var a   as int no-undo. 
def var i   as int no-undo. 
for each po_mstr break by po_nbr. /select count from po_mstr./ assign a = 583. 
    if first-of (po_nbr) then 
    do i = 1 to a:enter code here if (i = 1) then sum = sum + 1. 
        if (sum = 400)
            then disp po_nbr po_vend po_ship po_ord_date. 
    end. 
end.

1 个答案:

答案 0 :(得分:2)

您的FOR EACH语句中需要一个WHERE子句。

例如,如果你想要po-nbr 123,你可以编码:

FOR EACH po_mstr NO-LOCK WHERE po_mstr.po_nbr = 123:
  DISPLAY
    po_nbr po_vend po_ship po_ord_date
  .
END.

此外 - 如果您只想要一个唯一的记录,您可以编码:

FIND po_mstr NO-LOCK  WHERE po_mstr.po_nbr = 123 NO-ERROR.
IF AVAILABLE( po_mstr ) THEN
  DISPLAY
    po_nbr po_vend po_ship po_ord_date
  .