• Author / Uploaded
• Fran Cisco

Citation preview

declare c1 Cursos; c2 cursos; prof_ref ref profesor; listacursos1 listacursos; a1 alumno; a2 alumno; unalumno alumno; begin select ref(p) into prof_ref FROM PROFESORADO p where p.CODIGO=3; c1:= new cursos (1,'curso 1', prof_ref,20, '1/6/2011','30/6/2011',30); select ref(p) into prof_ref FROM PROFESORADO p where p.dni='51083099F'; c2:= new cursos (2,'curso 2', prof_ref,20, '1/6/2011','30/6/2011',30); listacursos1:=listacursos(c1,c2); a1:= new alumno(100,'76401092z','MANUEL','SUAREZ IBAÑEZ','M','30/6/1990',listacursos1(1)); insert into ALUMNADO values a1; a2:= new alumno(102,'6915588V','MILAGROSA','DIAZ PEREZ','F','28/10/1984',listacursos1(2)); insert into ALUMNADO values a2; select value(a) into unalumno from alumnado a where a.codigo=100; unalumno.codigo:= 101; unalumno.cursoalumno:=listacursos1(2); insert into alumnado values unalumno; END;