From: jstrange@imtn.dsccc.com (John Strange)
Subject: Re: Forms 4.5: Select distinct...!!
Date: 1997/08/08
Message-ID: <5sf2vh$1f7@camelot.dsccc.com>#1/1
References: <01bca33c$0e374640$22f1acce@neutron> <33EA073B.1757@maderich.demon.co.uk>
Organization: DSC Communications Corporation, Plano, Texas USA
Newsgroups: comp.databases.oracle.tools



Here is a code snippet to go into a PRE-QUERY trigger.
Change the first IF statement to do whatever you want.
 
BEGIN
  DECLARE
    block_id Block := find_block('OBJ');
    sub_where VARCHAR2(512);
    def_where VARCHAR2(512);
 
    FUNCTION add_and(
      P_WHERE IN VARCHAR2
    ) RETURN VARCHAR2 IS
    BEGIN
      IF (nvl( length(P_WHERE), 0) != 0) THEN
        RETURN( P_WHERE || ' and ');
      ELSE
        RETURN( P_WHERE );
      END IF;
    END;
 
  BEGIN
 
    sub_where := NULL;
    IF (:OBJ.DSP_LOGIN_NAME IS NOT NULL) THEN
      sub_where := add_and( sub_where ) || '(LOGIN_NAME like '''||
          :OBJ.DSP_LOGIN_NAME || ''')';
    END IF;
 
     if def_where is not null then
        sub_where := def_where ;
        def_where := get_block_property (block_id, DEFAULT_WHERE) ;
        def_where := add_and (def_where) || sub_where  ;
     end if ;
 
    set_block_property(block_id, DEFAULT_WHERE, def_where);
 
  END;
END;

Stuart Turton (sturton@maderich.demon.co.uk) wrote:
: 1) Frig the SQL statement to be come a UNION or MINUS statement:
:    You can do this by appending something like 
: ' UNION SELECT .... from <table-name> WHERE 1 = 2'; 
 
: 2) Put something in you POST-QUERY trigger which compares the current
: record with the previous record and fail if they match.
 
: Claude Ramazzini wrote:
: > 
: > Hi everybody,
: >                 do someone know how to do a SELECT DISTINCT
: > into forms 4.5? I know that we can control in the properties of the bloc
: > the ORDER BY and the WHERE clause, but is there a trick to modify the
: > SELECT statement of Oracle to introduce the DISTINCT clause?
: > 
: >         Thanking you in advance,
: > 
: > Claude Ramazzini
: > Production Engineer
: > airborne@sympatico.ca
: > Airborne Gear and Mach. Ltd
: > tel:  (514) 325-9000 ext. 4
: > fax: (514)325-3265
: > 
: > ** If there is so many things to configure in Linux, maybe this is because
: > it is doing so much.

--
This posting represents the personal opinions of the author. It is not the
official opinion or policy of the author's employer. Warranty expired when you
opened this article and I will not be responsible for its contents or use.