Re: [developer/2000] execute-query?

From: <pberetta_at_my-deja.com>
Date: Tue, 26 Oct 1999 10:04:56 GMT
Message-ID: <7v3uc8$npv$1_at_nnrp1.deja.com>

Peter,

Check out this proc., I grabbed it out of an existing app real quick, and took out some of the totally irrelevant code, so you will need to modify it to your purpose, but it will give you the general idea. In this program the plan_id is unique, so the count will always be 0 or 1.

PROCEDURE EXECUTE_OR_INSERT IS
  pcount number;

BEGIN
  IF :rfx_plan.plan_id is NOT NULL THEN
    :GLOBAL.plan_id := :rfx_plan.plan_id;     SELECT count (*)
    INTO pcount
    FROM rfx_plan
    WHERE plan_id = :GLOBAL.plan_id;

    IF pcount = 1 THEN
      do_key('EXECUTE_QUERY');
    ELSE

      do_key('ABORT_QUERY');
      CLEAR_MESSAGE;
      do_key('CLEAR_FORM');
      CLEAR_MESSAGE;
      :rfx_plan.plan_id := :GLOBAL.plan_id;
      SET_RECORD_PROPERTY(1,'RFX_PLAN',STATUS,INSERT_STATUS);
      ret_val := SHOW_ALERT('NO_RECORDS');

    END IF;
  END IF;
END; In article <38156180.197C975E_at_hmc.com.tw>,   peter yeh <misybh_at_hmc.com.tw> wrote:
> Hi...
> when we execute-query how can we know data is found or
> not????????
> any subprogram or trigger can be used?????
> I'll appreicate any suggestion of u...
>
> --
> Hualon Microelectronics Corporation
> Management Information System Dep.
> HTTP://www.hmc.com.tw
>
>

Sent via Deja.com http://www.deja.com/
Before you buy. Received on Tue Oct 26 1999 - 12:04:56 CEST