Entradas

Mostrando entradas de junio 9, 2014

PROCEDURE CON CURSOR ORACLE

--PROCEDURE CON CURSOR
CREATE OR REPLACE PROCEDURE P_BUSCAR (COD NUMBER) IS
BEGIN
DECLARE CURSOR C_LISTADO IS
    SELECT * FROM EMPLOYEES WHERE EMPLOYEE_ID=COD;
    S EMPLOYEES%ROWTYPE;
BEGIN
 OPEN C_LISTADO;
   LOOP
      FETCH C_LISTADO INTO S;
      EXIT WHEN C_LISTADO%NOTFOUND;
      dbms_output.put_line('ID: ' || S.EMPLOYEE_ID);
      dbms_output.put_line('NOMBRES: ' || S.FIRST_NAME);
      dbms_output.put_line('APELLIDOS: ' || S.LAST_NAME);
   END LOOP;
CLOSE C_LISTADO;
END;
END;
--PROBANDO PROCEDURE
BEGIN
P_BUSCAR('100');
END;

CURSORES IMPLICITOS EN ORACLE

declare
        c1 usuario%rowtype;
        begin
             select * into c1 from usuario
             where usuario='BERTHA';
             dbms_output.put_line('User:' || c1.usuario || 'Password:' || c1.contrasena);
        end;  

declare
       c2 paciente%rowtype;
begin
     select * into c2
     from paciente
    where paciente='1987002690';
    dbms_output.put_line('Paciente:' || c2.nombres);
end;

declare
        vnombre varchar2(100);
        begin
             select nombre into vnombre
             from medico
             where plaza='106481';
             dbms_output.put_line('Nombre Medico: ' || vnombre);
        end;

declare
        vnombre medico.nombre%type;
        begin
             select nombre into vnombre
             from medico
             where plaza='106481';
             dbms_output.put_line('Nombre Medico: ' || vnombre);
        end;

declare
       vnom medico.nombre%type;
       vpl…