Sukurti lentelę STUINFO1
(
stuid int pirminis raktas,
stuname varchar [10] ne null,
stusex char(2) check(stusex='patinas' arba stusex='moteris'),
Stubir data
);
įterpti į stuinfo reikšmes ('001','Zhang San','male',to_date ('1999-1-1','yyyy-mm-dd'));
įterpti į stuinfo reikšmes ('002','Reese','vyras',to_date ('1997-12-1','yyyy-mm-dd'));
įterpti į stuinfo reikšmes ('003', 'Wang Wu', 'female', to_date ('1995-3-4', 'yyyy-mm-dd'));
įterpti į stuinfo reikšmes ('004','haha','vyras',to_date ('2000-7-5','yyyy-mm-dd'));
įterpti į stuinfo reikšmes ("005", "haha", "vyras", to_date ("1993-7-5", "yyyy-mm-dd"));
--Sistemos iš anksto nustatytos išimtys
deklaruoti
v_name stuinfo.stuname%type;
Pradėti
Pasirinkite stuname į v_name iš stuinfo;
--išimtis
-- kada too_many_rows tada
-- dbms_output.put_line('Užklausos rezultatai yra pertekliniai, jų negalima priskirti');
pabaiga;
--vartotojo apibrėžtos išimtys
deklaruoti
money_error išimtis;
pinigai1 int := 1000;
money2 int :=& pervedimo suma;
Pradėti
jei pinigai1-pinigai2 < 0 tada
raise_application_error (-20001, "Nepakankamas balansas");
- pakelti money_error;
kitaip
dbms_output.put_line('Perkėlimas sėkmingas');
pabaiga, jei;
--išimtis
-- kada money_error tada
-- dbms_output.put_line('Nepakankamas balansas');
pabaiga;
--iš anksto nenustatytos išimtys
deklaruoti
myerror išimtis;
pragma exception_init(myerror,-1);
Pradėti
įterpti į stuinfo reikšmes ('001','aa','female',to_date('1995-3-4','YYYY-MM-DD'));
Išimtis
kai myerror tada
dbms_output.put_line('Pirminio rakto unikalumo apribojimo pažeidimas');
pabaiga;
įterpti į stuinfo1 reikšmes (1,'sdf','vyras','');
Pasirinkite * iš TB1;
nuleidžiamas stalas TB1;
--Dynamic SQL
Pradėti
vykdyti nedelsiant "Sukurti lentelę TB1(TID INT)";
pabaiga;
deklaruoti
sqlString varchar2(200);
tId int:=2;
Pradėti
sqlString:='įterpti į tb1 reikšmes (:1)';
vykdyti nedelsiant sqlString naudojant tId;
pabaiga;
pasirinkite * iš stuinfo;
--Numanomas žymeklis
Pradėti
DBMS_OUTPUT. PUT_LINE('Prieš įterpiant:'|| SQL%ROWCOUNT);
atnaujinti stuinfo set stusex = 'vyras';
DBMS_OUTPUT. PUT_LINE('Įterpus:'|| SQL%ROWCOUNT);
PABAIGA;
|
Paskelbta 2015-03-19 09:28:41
|
|
|
