PROCEDIMIENTOS ALMACENADOS BUSCADORES TBS ANTENOR ORREGO 

------Carrera Buscadores----

Create or  replace  procedure  spBuscarCarrera

(vCodCarreraTCarrera.CodCarrera%Type)

Is

Cursor cBuscar is select  * from TCarrera where CodCarrera=vCodCarrera;

rTCarrera%rowtype;

i number :=0 ;

Begin

          Open cBuscar;

          Loop    

                  Fetch cBuscar into r;

                   Exit When cBuscar%notfound;

DBMS_OutPut.Put_Line('CodCarrera: '||r.CodCarrera);

DBMS_OutPut.Put_Line('Carrera: '||r.Carrera);

i:= i+1;

                  End loop;

         Close cBuscar;     

if (i=0) then

DBMS_OutPut.Put_Line('Error: No se encontro Carrera');

end if;

End;

begin

spBuscarCarrera('C0051');

end;

select * fromTCarrera;

----Buscar Usuario---

Create or replace procedure spBuscarUsuario

(vUsuario TUsuario.Usuario%Type)

is

cursorcBuscar is select * from TUsuario where Usuario=vUsuario;

r  TUsuario%rowType;

i number :=0;

Begin

opencBuscar;

     Loop

         Fetch cBuscar into r;

         Exit When cBuscar%notfound;

DBMS_OutPut.Put_Line('Usuario:'||r.Usuario);

DBMS_OutPut.Put_Line('Contraseña:'||r.Contraseña);

i:= i+1;

end loop;

closecBuscar;

if (i=0) then

DBMS_OutPut.Put_Line('Error: No se encontroUsuario');

end if;

end;

Begin

spBuscarUsuario('U0051');

end;

select * from TUsuario;

----Buscar Docente ---

describe TDocente;

create or replace procedure spBuscarDocente

(vCodDocente  TDocente.CodDocente%type)

is

cursor cBuscar is select  *  from  TDocente where CodDocente=vCodDocente;

r TDocente%rowType;

i number:=0;

Begin

    Open cBuscar;

      Loop

          Fetch cBuscar into  r;

          Exit When  cBuscar%notfound;

          DBMS_outPut.Put_line('CodDocente: '||r.CodDocente);

          DBMS_outPut.Put_line('APePaterno: '||r.APePaterno);

          DBMs_outPut.Put_Line('APeMaterno: '||r.APeMaterno);

          DBMS_outPut.put_line('Nombres: '||r.Nombres);

          DBMS_OutPut.Put_Line('Usuario: '||r.Usuario);

          i:= i +1;

       end loop;

     Close cBuscar;

     if (i=0) then

        DBMS_output.Put_Line('No se encontro Docente');

     end if;

end;

begin

spBuscarDocente ('D0002');

end;

----Buscar Alumno ---

Describe TAlumno;

create  or replace procedure spBuscarAlumno

(vCodAlumno TAlumno.CodAlumno%type)

is

cursor cBuscar  is select  * from  TAlumno where CodAlumno=vCodAlumno;

r TAlumno%rowtype;

i number:=0;

Begin

     Open cBuscar;

        Loop

            Fetch CBuscar into r;

            Exit When cBuscar%notfound;

            DBMS_output.Put_line('CodAlumno: '||r.CodAlumno);

            DBMS_outPut.Put_line('APePaterno: '||r.APePaterno);

            DBMS_outPut.Put_Line('APeMaterno: '||r.APeMaterno);

            DBMS_OutPut.Put_line('Nombres: '||r.Nombres);

            DBMS_outPut.Put_Line('FechaNac: '||r.FechaNac);

            DBMS_output.Put_Line('Usuario: '||r.Usuario);

            DBMS_outPut.Put_line('CodCarrera'||r.CodCarrera);

            i:=i + 1;

         end loop;

     Close CBuscar;

     if (i=0) then

       DBMS_outPut.put_line('No se encontro');

     end if;

end;

begin

spBuscarAlumno('A0002');

end;

---Buscar Carga---

describe TCarga;

create  or replace procedure spBuscarCarga

(vIDCarga TCarga.IDCarga%type)

is

cursor cBuscar is select  * from TCarga where IDCarga=vIDCarga;

r TCarga%rowtype;

i number:=0;

Begin

     Open cBuscar;

       Loop

           Fetch cBuscar into r;

           Exit When cBuscar%notfound;

           DBMS_outPut.put_line('IDCarga: '||r.IDCarga);

           DBMS_output.Put_line('CodDocente: '||r.CodDocente);

           DBMS_Output.put_line('CodAsignatura: '||r.CodAsignatura);

           DBMS_output.put_line('Semestre: '||r.Semestre);

        i:= i +1;

        end loop;

     Close cBuscar;

     if (i=0) then

       DBMS_output.put_line('No se encontro Carga');  

     end if;

end;

begin

spBuscarCarga('C0003');

end;

------Buscar notas---

describe TNotas;

create or replace procedure spbuscarNotas

(vCodAlumno TNotas.CodAlumno%type,vCodAsignatura TNotas.CodAsignatura%type,vSemestre TNotas.Semestre%type)

is

cursor cBuscar is select * from TNotas where CodAlumno=vCodAlumno and

CodAsignatura=vCodAsignatura and Semestre=vSemestre;

r TNotas%rowtype;

i number:=0;

Begin

    Open cBuscar;

       Loop

          Fetch cBuscar into r;

          Exit When cBuscar%notfound;

          DBMS_output.put_line('CodAlumno: '||r.CodAlumno);

          DBMS_output.put_line('CodAsignatura: '||r.CodAsignatura);

          DBMS_output.put_line('Semestre: '||r.Semestre);

          DBMS_outPut.put_Line('Practica1: '||r.Practica1);

          DBMS_outPut.put_line('Practica2:'||r.Practica2);

          DBMS_outPut.Put_line('NotaFinal: '||r.NotaFinal);

          i:= i + 1;

       end loop;

    Close cBuscar;

    if (i=0) then

      DBMS_outPut.put_line('No se encontro nota');

    end if;

end;

begin

spBuscarNotas('A0001','S0001','I');

end;