Poster un commentaire ou une réponse
TP Bloc
Zaineb :
nb posts:320
nb discussions:33
inscrit le :23-01-2015
Zaineb :
nb posts:320
nb discussions:33
inscrit le :23-01-2015
Zaineb :
nb posts:320
nb discussions:33
inscrit le :23-01-2015
Quelques notes sur les blocs:
%type: nom etudiant.nom%type cree une var de type de la colonne du tab specifié
declare
vemp employees%rowtype;
begin
select * into vemp from employees where employee_id=101;
dbms_output.put_line(vemp.first_name);
end;
-> ni fonction ni proceedure
-------------------------------------record==structure: (contient mes colonnes)::
declare
type rec is record(
last employees.last_name%type,
first employees.first_name%type
);
rec1 rec;
begin
select last_name,first_name into rec1 from employees where employee_id=101;
dbms_output.put_line(rec1.first||rec1.last);
end;
-> le select contient retourne tjrs une ligne. CURSEUR permet dinserer plusieurs lignes
--------------------------conditions
declare
type rec is record(
last employees.last_name%type,
first employees.first_name%type
);
rec1 rec;
begin
select last_name,first_name into rec1 from employees where employee_id=101;
if rec1.first=('ali') then
dbms_output.put_line('erreur');
else if
rec1.first=('Neena') then
dbms_output.put_line('bravo');
end if;
end if;
end;
si elsif on ferme ac un seul end if , si else if on ferme chak if par end if
---------------------case
declare
type rec is record(
last employees.last_name%type,
first employees.first_name%type
);
rec1 rec;
begin
select last_name,first_name into rec1 from employees where employee_id=101;
case rec1.first
when 'ali' then dbms_output.put_line('erreur');
when 'Neena' then dbms_output.put_line('bravo');
end case;
end;
-----------------------------loop
declare
v1 integer:=1;
v2 number:=10;
begin
for v1 in 1..v2 loop // un integer lotre number et ca marche
dbms_output.put_line(v1);
end loop;
end;
-----------------------------saisie du clavier
declare
type rec is record(
last employees.last_name%type,
first employees.first_name%type
);
rec1 rec;
vid employees.employee_id%type; //// declarer une var
begin
select last_name,first_name into rec1 from employees where employee_id=:vid; /// cette var est demandé par les carac =:
if rec1.first=('ali') then
dbms_output.put_line('erreur');
else if
rec1.first=('Neena') then
dbms_output.put_line('bravo');
end if;
end if;
end;
-------------------------rekete create
declare
vsql varchar(1000):='
CREATE TABLE tt1
(
c1 varchar(20),
c2 varchar(20),
c3 varchar(20)
)';
begin
execute immediate vsql;
end
-------------------------exo
declare
vemp employees%rowtype;
numbmin number:=101;
numbmax number:=120;
numb number:=101;
begin
for numb in numbmin..numbmax loop
select * into vemp from employees where employee_id=numb;
dbms_output.put_line('******************************');
dbms_output.put_line(RPAD(vemp.first_name,15,' ')||RPAD(vemp.last_name,15,' '));
end loop;
end;
