glufke.net

Select que retorna os Números Primos

dr_gori — Thu, 11 Oct 2007 22:40:31 +0000

Esse post vai mais a título de curiosidade. Sabemos que os números primos são números naturais que podem ser divididos apenas por dois números naturais, o 1 (um) e ele mesmo. Pois a tempos que eu queria um SQL que retornasse esses números!

Após um pouco de tentativas, saiu o SQL abaixo:

SELECT z.zz PRIMOS

FROM

 (SELECT rownum+1 zz

  FROM user_tables

  WHERE rownum < 100

 ) z

WHERE zz NOT IN (

                SELECT y.bb

                FROM (SELECT rownum+1 aa FROM user_tables a WHERE rownum < 100) x

                ,    (SELECT rownum+1 bb FROM user_tables b WHERE rownum < 100) y

                WHERE bb<>aa

                  AND mod(bb, aa)=0

                  AND aa<=bb

                )

/

Abaixo, colocaremos uma amostra dos resultados:

SQL> SELECT z.zz PRIMOS

  2  FROM

  3   (SELECT rownum+1 zz

  4    FROM user_tables

  5    WHERE rownum < 100

  6   ) z

  7  WHERE zz NOT IN (

  8                  SELECT y.bb

  9                  FROM (SELECT rownum+1 aa FROM user_tables a WHERE rownum < 100) x

 10                  ,    (SELECT rownum+1 bb FROM user_tables b WHERE rownum < 100) y

 11                  WHERE bb<>aa

 12                    AND mod(bb, aa)=0

 13                    AND aa<=bb

 14                  )

 15  /

   PRIMOS

---------

        2

        3

        5

        7

       11

       13

       17

       19

       23

       29

       31

       37

       41

       43

       47

       53

       59

       61

       67

       71

       73

       79

       83

       89

       97

25 rows selected.

SQL>

Talvez essa não seja a melhor forma de fazer isso (obviamente, que usar SQL pra calcular isso não é a melhor saída). Mesmo assim, fica como um “desafio vencido”.

Comentários aqui

Descobrir qual procedure/função que está rodando dinamicamente

dr_gori — Wed, 03 Oct 2007 11:20:13 +0000

As vezes precisamos saber em uma procedure/função “quem chamou” a rotina. Ou saber qual é a procedure ou package que está sendo executada… Esta rotina faz exatamente isto!

CREATE OR REPLACE PROCEDURE who_called_me(owner    OUT VARCHAR2,

                                          name     OUT VARCHAR2,

                                          lineno   OUT NUMBER,

                                          caller_t OUT VARCHAR2) AS

  call_stack  VARCHAR2(4096) DEFAULT DBMS_UTILITY.format_call_stack;

  n           NUMBER;

  found_stack BOOLEAN DEFAULT FALSE;

  line        VARCHAR2(255);

  cnt         NUMBER := 0;

BEGIN

  -- 

  LOOP

    n := INSTR(call_stack, CHR(10));

    EXIT WHEN(cnt = 3 OR n IS NULL OR n = 0);

    -- 

    line       := SUBSTR(call_stack, 1, n - 1);

    call_stack := SUBSTR(call_stack, n + 1);

    -- 

    IF (NOT found_stack) THEN

      IF (line LIKE '%handle%number%name%') THEN

        found_stack := TRUE;

      END IF;

    ELSE

      cnt := cnt + 1;

      -- cnt = 1 is ME

      -- cnt = 2 is MY Caller

      -- cnt = 3 is Their Caller

      IF (cnt = 3) THEN

        lineno := TO_NUMBER(SUBSTR(line, 13, 6));

        line   := SUBSTR(line, 21);

        IF (line LIKE 'pr%') THEN

          n := LENGTH('procedure ');

        ELSIF (line LIKE 'fun%') THEN

          n := LENGTH('function ');

        ELSIF (line LIKE 'package body%') THEN

          n := LENGTH('package body ');

        ELSIF (line LIKE 'pack%') THEN

          n := LENGTH('package ');

        ELSIF (line LIKE 'anonymous%') THEN

          n := LENGTH('anonymous block ');

        ELSE

          n := NULL;

        END IF;

        IF (n IS NOT NULL) THEN

          caller_t := LTRIM(RTRIM(UPPER(SUBSTR(line, 1, n - 1))));

        ELSE

          caller_t := 'TRIGGER';

        END IF;

        line  := SUBSTR(line, NVL(n, 1));

        n     := INSTR(line, '.');

        owner := LTRIM(RTRIM(SUBSTR(line, 1, n - 1)));

        name  := LTRIM(RTRIM(SUBSTR(line, n + 1)));

      END IF;

    END IF;

  END LOOP;

END;

/

CREATE OR REPLACE FUNCTION who_am_i RETURN VARCHAR2 IS

l_owner VARCHAR2(30); l_name VARCHAR2(30); l_lineno NUMBER; l_type VARCHAR2(30);

BEGIN

who_called_me(l_owner, l_name, l_lineno, l_type); RETURN l_owner || '.' || l_name;

END;

/

Aí vai um exemplo:

SQL> CREATE OR REPLACE PROCEDURE demo

  2  AS

  3  BEGIN

  4     DBMS_OUTPUT.put_line( who_am_i );

  5  END;

  6  /

PROCEDURE created.

SQL> exec demo;

SCOTT.DEMO

Comente aqui

Como usar Índices Virtuais - NOSEGMENT INDEXES

dr_gori — Tue, 25 Sep 2007 22:49:51 +0000

Essa é para quem faz tunning de SQL. Digamos que você quer verificar se a criação de um novo índice vai ser realmente usada pelo otimizador. Antes de criá-lo, você pode testar se ele resolverá seu problema atraves de INDICE VIRTUAL.

O Oracle vai criar o índice no dicionário de dados mas não vai criar o índice fisicamente. Nada será armazenado nem acessado!

SQL> SET autotrace traceonly EXPLAIN

SQL> SELECT name FROM emp WHERE name = 'Alex';

Execution Plan

----------------------------------------------------------

   0      SELECT STATEMENT Optimizer=CHOOSE (Cost=164 Card=1 Bytes=500)

   1    0   TABLE ACCESS (FULL) OF 'EMP' (Cost=164 Card=1 Bytes=500)

Criando o Índice

SQL> CREATE INDEX emp_vir_idx1 ON emp(name) nosegment;

INDEX created.

Agora, vamos ver se ele vai usar:

SQL> SET autotrace traceonly EXPLAIN

SQL> SELECT name FROM emp WHERE name = 'Alex';

Execution Plan

----------------------------------------------------------

   0      SELECT STATEMENT Optimizer=CHOOSE (Cost=164 Card=1 Bytes=500)

   1    0   TABLE ACCESS (FULL) OF 'EMP' (Cost=164 Card=1 Bytes=500)

Hei! Acesso FULL? Porque o oracle não está usando meu novo índice?
Você deve primeiro alterar sua sessão com o parâmetro oculto “_use_nosegment_indexes”.

SQL> ALTER session SET "_use_nosegment_indexes" = true;

Session altered.

SQL> SELECT name FROM emp WHERE name = 'Alex';

Execution Plan

----------------------------------------------------------

   0      SELECT STATEMENT Optimizer=CHOOSE (Cost=1 Card=1 Bytes=500)

   1    0   INDEX (RANGE SCAN) OF 'EMP_VIR_IDX1' (NON-UNIQUE) (Cost=1 Card=1 Bytes=500)

Comente aqui

Potência em PL/SQL sem usar função POWER

dr_gori — Tue, 25 Sep 2007 22:41:51 +0000

Todos conhecem a função do Oracle que faz a potêcia: o POWER. Abaixo, vamos demonstrar como elevar números sem usar essa função.

SELECT power(2,3)

FROM dual

Além dessa função é possível usar o ** para potência:

SQL> SET serveroutput ON

SQL> DECLARE

  2    vtemp NUMBER;

  3  BEGIN

  4    vtemp := 2**3;   -- Equivalente a POWER(2,3)

  5    DBMS_OUTPUT.put_line ( 'Resultado: '||vtemp );

  6  END;

  7  /

Resultado: 8

PL/SQL PROCEDURE successfully completed.

SQL>

Verificamos que o uso do ** equivale a função POWER do Oracle. Infelizmente o uso não é permitido dentro de blocos PL/SQL. Não funciona direto num SQL.

Comente aqui

Ver Plano de execução de um SQL rodando

dr_gori — Tue, 25 Sep 2007 14:36:31 +0000

Imagine que você rodou um SQL que está demorando muito. O Trace está desligado e você quer saber o que pode estar errado com o SQL. Com essa dica, você enxerga o plano de execução deste SQL.

1. Escolha o SQL que está rodando

SELECT address, hash_value, child_number, sql_text

FROM v$sql

WHERE users_executing <> 0

/

2. Rode o sql abaixo, informando o address, hash_value, child_number retornado do Primeiro SQL.

SET VERIFY OFF

COL id          FORMAT 999

COL parent_id   FORMAT 999 HEADING "PARENT"

COL operation   FORMAT a35 TRUNCATE

COL object_name FORMAT a30

SELECT  id, parent_id, LPAD (' ', LEVEL - 1) ||

        operation || ' ' || options operation, object_name

FROM    (

        SELECT id, parent_id, operation, options, object_name

        FROM   v$sql_plan

        WHERE  address = '&address'

        AND    hash_value = &hash_value

        AND    child_number = &child_number

        )

START WITH id = 0

CONNECT BY PRIOR id = parent_id;

Obrigado a Roger Schrag que é o autor dessa dica!
Comente aqui

Bloco do Forms baseado numa VIEW

dr_gori — Thu, 13 Sep 2007 14:30:26 +0000

Uma coisa muito útil no Forms é poder basear os blocos em Views. Vamos a um breve exemplo: Digamos que uma tabela contenha os itens de um pedido. Obviamente, apenas o código do produto estará nesta tabela e não a descrição do produto. Como fazer para mostrar a descrição ?

Estrutura das tabelas:

ITENS_PEDIDO

  IT_COD    NUMBER(5),

  PROD_COD  NUMBER(5),

  QUANT     NUMBER(10,2)

PRODUTO

  PROD_COD  NUMBER(5),

  PROD_DSC  VARCHAR2(60)

POUCO EFICIENTE

Podemos usar a trigger POST_QUERY, que é disparada em cada linha do bloco. Dentro desta trigger, coloca-se uma consulta assim:

SELECT prod_dsc

INTO :BLOCO_ITENS_PED.PROD_DSC

FROM produto

WHERE prod_cod=:BLOCO_ITENS_PED.PROD_COD;

Este select rodará em cada linha do bloco, buscando a descrição do Produto. Temos que deixar a propriedade do item Database Item No.
Isto é pouquíssimo eficiente! Imaginem se o bloco for buscar 500 linhas? O cliente vai fazer 500 consultas de descrição!!! Resultado: Queda de performance do banco, trafego inútil na rede, etc.

MUITO EFICIENTE

Vamos basear nosso bloco numa View! Como fazemos isso?

1. Criamos uma VIEW_ITENS_PEDIDO com a descrição do Produto.

CREATE OR REPLACE VIEW VIEW_ITENS_PEDIDO AS

SELECT

  a.*,

  b.prod_dsc

FROM

  itens_pedido A,

  produto      B

WHERE a.prod_cod=b.prod_cod

2. Criamos o bloco com base nesta view. Agora vamos tornar esta view “alterável”
3. Na propriedade do bloco DML Data Target Name, colocamos o nome da tabela onde será feita a alteração. (no caso, a própria ITENS_PEDIDO)
4. Vamos definir agora qual será o campo chave da tabela. Clicamos no item IT_COD, e vamos para a propriedade Primary Key. Colocamos YES nela.
5. Agora vamos dizer ao Forms que o campo PROD_DSC não faz parte da tabela! Alteramos a propriedade Query Only para Yes!
E Pronto!!!
Agora o Forms sabe que o campo PROD_DSC não deve ser gravado quando a tabela for modificada. Ele sabe que este campo não pertence diretamente a ITENS_PEDIDO!

Comente aqui

Transformar linhas do SQL em string delimitada

dr_gori — Wed, 12 Sep 2007 20:02:00 +0000

Essa procedure pode ser muito útil em algumas situações: Ela pega as linhas de uma coluna e retorna cada linha separada por vírgula na mesma string.

CREATE OR REPLACE FUNCTION rowtocol (

   p_slct IN VARCHAR2,

   p_dlmtr IN VARCHAR2 DEFAULT ',' ) RETURN VARCHAR2 AUTHID CURRENT_USER 

AS

   TYPE c_refcur IS REF CURSOR;

   lc_str VARCHAR2(4000);

   lc_colval VARCHAR2(4000);

   c_dummy c_refcur;

   l NUMBER;

BEGIN

   OPEN c_dummy FOR p_slct;

   LOOP

     FETCH c_dummy INTO lc_colval;

     EXIT WHEN c_dummy%NOTFOUND;

     lc_str := lc_str || p_dlmtr || lc_colval;

   END LOOP;

   CLOSE c_dummy;

   RETURN SUBSTR(lc_str,2);

END;

Agora vamos ao exemplo:

SQL> CREATE OR REPLACE FUNCTION rowtocol (

  2     p_slct IN VARCHAR2,

  3     p_dlmtr IN VARCHAR2 DEFAULT ',' )

  4  RETURN VARCHAR2

  5     AUTHID CURRENT_USER AS

  6     TYPE c_refcur IS REF CURSOR;

  7     lc_str VARCHAR2(4000);

  8     lc_colval VARCHAR2(4000);

  9     c_dummy c_refcur;

 10     l number;

 11  BEGIN

 12     OPEN c_dummy FOR p_slct;

 13     LOOP

 14       FETCH c_dummy INTO lc_colval;

 15       EXIT WHEN c_dummy%NOTFOUND;

 16       lc_str := lc_str || p_dlmtr || lc_colval;

 17     END LOOP;

 18     CLOSE c_dummy;

 19     RETURN SUBSTR(lc_str,2);

 20  END;

 21  /

FUNCTION created.

SQL> SELECT ROWTOCOL('SELECT ENAME FROM EMP') FROM DUAL;

ROWTOCOL('SELECTENAMEFROMEMP')

------------------------------------------------------------------

SMITE,ALLEN,WARD,JONES,MARTIN,BLAKE,SCOTT,TURNER,ADAMS,JAMES,FORD

SQL>

Comente aqui

CASE WHEN versus DECODE

dr_gori — Fri, 07 Sep 2007 10:14:20 +0000

As vezes o CASE WHEN quebra o galho quando temos que usar condições mais complexas… Mas o que fazer quando não é possível usá-lo? (como nas versões anteriores ao 8i, e no PL*SQL anterior ao 9i). É muito simples!

Eis o nosso query:

SQL> SELECT 

  2    empno

  3  , sal

  4  , case 

  5      when sal<1000  then 'SALARIO BAIXO'

  6      when sal>=1000 then 'SALARIO ALTO'

  7    end comentario 

  8  FROM emp

  9  /

     EMPNO        SAL COMENTARIO

---------- ---------- -------------

      7369        800 SALARIO BAIXO

      7499       1600 SALARIO ALTO

      7521       1250 SALARIO ALTO

      7566       2975 SALARIO ALTO

      7654       1250 SALARIO ALTO

      7698       2850 SALARIO ALTO

      7782       2450 SALARIO ALTO

      7788       3000 SALARIO ALTO

      7839       5000 SALARIO ALTO

      7844       1500 SALARIO ALTO

      7876       1100 SALARIO ALTO

      7900        999 SALARIO BAIXO

      7902       3000 SALARIO ALTO

      7934       1000 SALARIO ALTO

E agora um query exatamente IGUAL sem o tal case-when…

SQL> SELECT 

  2    empno

  3  , sal

  4  , decode(sign(sal-1000), -1, 'SALARIO BAIXO', 'SALARIO ALTO')

  5  FROM emp

  6  /

     EMPNO        SAL DECODE(SIGN(S

---------- ---------- -------------

      7369        800 SALARIO BAIXO

      7499       1600 SALARIO ALTO

      7521       1250 SALARIO ALTO

      7566       2975 SALARIO ALTO

      7654       1250 SALARIO ALTO

      7698       2850 SALARIO ALTO

      7782       2450 SALARIO ALTO

      7788       3000 SALARIO ALTO

      7839       5000 SALARIO ALTO

      7844       1500 SALARIO ALTO

      7876       1100 SALARIO ALTO

      7900        999 SALARIO BAIXO

      7902       3000 SALARIO ALTO

      7934       1000 SALARIO ALTO

SQL>

Mais uma forma de se fazer isso SEM case-when:

SELECT

  empno

, sal

, decode(greatest(sal,1000), 1000, 'SALARIO BAIXO', 'SALARIO ALTO')

FROM emp

/

Comente aqui

Order By muda em diferentes NLS_LANG

dr_gori — Thu, 06 Sep 2007 17:50:30 +0000

Sabemos que mudando o NLS_LANG do oracle, ele assume comportamentos diferentes. (Por exemplo, muda o formato da Data, muda o Ponto Decimal ou Vírgula Decimal, etc.) Mas uma coisa que as vezes passa “desapercebido” é que o NLS_LANG também pode mudar a ORDEM das colunas:

Exemplo: (Note a diferença)

SQL> SELECT * FROM A ORDER BY 1;

F

-

1

5

A

B

C

SQL> ALTER SESSION SET NLS_LANGUAGE = 'PORTUGUESE';

Session altered.

SQL> SELECT * FROM A ORDER BY 1;

F

-

A

B

C

1

5

Como se pode ver, mudei de AMERICAN para PORTUGUESE e a ordem mudou! No primeiro caso, os números vieram primeiro. No segundo, os números ficaram por último. Como podemos nos certificar que uma coluna SEMPRE vai obedecer a mesma ordem ?

Solução 1
Pode se criar uma pequena função que indica se o campo é numérico ou não. Daí, ordenamos primeiro pelo resultado dessa função. Lá vai:

SQL> CREATE OR REPLACE FUNCTION f_nro ( p_numero IN varchar2 ) RETURN number

  2  AS

  3    l_numero number;

  4  begin

  5    l_numero := to_number(p_numero);

  6    RETURN 1;

  7  exception when others then RETURN 0;

  8  end;

  9  

 10  

 11  /

FUNCTION created.

SQL> SELECT f_nro('1234') FROM dual;

F_NRO('1234')

-------------

              1

SQL> SELECT f_nro('1234a') FROM dual;

F_NRO('1234A')

--------------

             0

SQL>

Veja… ela retorna ZERO se não é um número! Daí podemos ordenar desta forma:

SQL> ALTER SESSION SET NLS_LANGUAGE = 'PORTUGUESE';

Session altered.

SQL>  SELECT * FROM A ORDER BY 1;

F

-

A

B

C

1

5

SQL> SELECT * FROM A ORDER BY f_nro(FIELD) DESC, FIELD;

F

-

5

1

A

B

C

SQL>

Voalá!!!

Solução 2
É possível usar a função DUMP. Exemplo:

SQL> SELECT dump('A') FROM dual;

DUMP('A')

----------------

Typ=96 Len=1: 65

SQL> SELECT * FROM A ORDER BY dump(FIELD);

F

-

1

5

A

B

C

Se tiver outras maneiraas, fique a vontade de postá-las aqui!

Comparação de Campos com NULL

dr_gori — Thu, 06 Sep 2007 13:34:52 +0000

Sabemos que quando um variável ou um campo no Oracle está NULL, ele não pode ser simplesmente comparado a um outro valor, pois o resultado da compração também será false!

DECLARE

  a NUMBER:=NULL;

  b NUMBER:=NULL;

BEGIN

  IF a=b

  THEN DBMS_OUTPUT.put_line('SIM');

  ELSE  DBMS_OUTPUT.put_line('nao');

  END IF;

END;

SQL> /

nao

POUCO EFICIENTE
Para “sanar” este problema, é possivel usar NVL, que não é uma boa prática. Veremos porque:

IF NVL(a, 123456789) = NVL(b, 123456789)

THEN --seu código

O exemplo acima até funciona se o valor for diferente de 123456789. Se o valor for igual, ferra a comparação!

MUITO EFICIENTE
A melhor prática possível
É um pouco trabalhosa, mas sempre funcionará:

IF a<>b

OR (a IS NULL AND b IS NOT NULL)

OR (a IS NOT NULL AND b IS NULL)

THEN --seu codigo

Comente aqui