Ajuda com arrays

[Kalango]

Boa Noite Amigos...

Como posso fazer pra criar uma array que armazene datas de nascimento a partir de um select ?

Tipo:

select nome, dtnascimento
from funcionarios

Quero fazer array que armazene essa duas informações geradas pelo select.

alguém poderia me ajudar.

Obrigad[/b]

[lodvini]

Bom dia,
bem... espero que isso te ajude... aqui tem um cursor que guarda os dados do teu select e com o fetch tu vai extraindo os dados.

Selecionar tudo

Declare
  -- Cursor
  Cursor Cur_emp Is ( Select Empno
                           , Ename
                           , Hiredate
                        From Emp
                    );
  -- Variaveis
  V_cur   Cur_emp%Rowtype;
  
  V_texto Varchar2(400);
  Nro     Number;

Begin

  -- Abre o cursor
  Open Cur_emp;

  -- Verifica quantos registros tem e adiciona o maior na variavel
  Select Max(Rownum)
    Into Nro
    From Emp;

  -- comeca em 1 ate o ultimo registro da tabela
  For I In 1..Nro Loop

    -- Com o FETCH pega o registro: toda vez que faz o fetch pega o proximo registro
    Fetch Cur_emp Into V_cur;

    -- Adiciona os dados do registro na variavel para montar o texto
    V_texto := V_texto||Rpad(V_cur.Ename, 10, ' ')||' - '||To_char(V_cur.Hiredate, 'DD/MM/RR')||Chr(10);

  End Loop; 

  -- Imprime o 'texto'
  Dbms_output.Put_line(V_texto);

  -- fecha o cursor
  Close Cur_emp;
End;

Qualquer duvida, sugestao, critica, correcao... me avise


Vinicius Benetti