pasirinkite * iš stuinfo;
--Numanomas žymeklis
Pradėti
dbms_output.put_line('Prieš užklausą:'|| sql%rowcount);
atnaujinti stuinfo set stusex = 'moteris';
dbms_output.put_line('Po užklausos:'|| sql%rowcount);
pabaiga;
--aiškus žymeklis
--1. Dažnas
deklaruoti
žymeklis mycur1 yra pasirinktas * iš stuinfo; --apibrėžti žymeklius
--v_id stuinfo.stuid%tipas;
--v_name stuinfo.stuname%type;
--v_sex stuinfo.stusex%tipas;
--v_bir stuinfo.stubir%type;
v_row stuinfo%rowtype;
Pradėti
atidaryti mycur1; --Atidaryti žymeklį
kilpa
--atnešti mycur1 į v_id,v_name,v_sex,v_bir; - Perkelkite žymeklį žemyn, kad perskaitytumėte reikšmę į kintamąjį
atnešti mycur1 į v_row; --Skaityti žymeklį
išeiti, kai mycur1%notfound;
--dbms_output.put_line('id:'|| v_id||', pavadinimas: '|| v_name||', lytis: '|| v_sex||' Gimtadienis: "|| v_bir); --Išvesties rezultatas
dbms_output.put_line('id:'|| v_row.stuid||', name: '|| v_row.stuname||', lytis: '|| v_row.stusex||' Gimtadienis: "|| v_row.stubir);
galinė kilpa;
uždaryti mycur1; --Išjunkite žymeklį
pabaiga;
--2. Versifier su parametrais
deklaruoti
žymeklis mycur1(v_sex stuinfo.stusex%type) yra pasirinktas * iš stuinfo, kur stusex = v_sex; --apibrėžti žymeklius
v_row stuinfo%rowtype;
Pradėti
atidarykite mycur1('&gender'); --Atidaryti žymeklį
kilpa
atnešti mycur1 į v_row; --Skaityti žymeklį
išeiti, kai mycur1%notfound;
dbms_output.put_line('id:'|| v_row.stuid||', name: '|| v_row.stuname||', lytis: '|| v_row.stusex||' Gimtadienis: "|| v_row.stubir);
galinė kilpa;
uždaryti mycur1; --Išjunkite žymeklį
pabaiga;
--3. Apskritas žymeklis
deklaruoti
žymeklis mycur1 yra pasirinktas * iš stuinfo; --apibrėžti žymeklius
Pradėti
v_row MyCur1
kilpa
dbms_output.put_line('id:'|| v_row.stuid||', name: '|| v_row.stuname||', lytis: '|| v_row.stusex||' Gimtadienis: "|| v_row.stubir);
galinė kilpa;
pabaiga;
--4. Atnaujinkite duomenis žymekliu
deklaruoti
žymeklis mycur1 yra pasirinktas * iš stuinfo atnaujinti; --apibrėžti žymeklius
Pradėti
v_row MyCur1
kilpa
jei v_row.stuid = '003', tada
ištrinti iš stuinfo, kur dabartinis mycur1;
kitaip
atnaujinti stuinfo set stusex = 'vyras', kur srovė mycur1;
pabaiga, jei;
galinė kilpa;
pabaiga;
pasirinkite * iš stuinfo;
atnaujinti stuinfo set stusex = 'moteris' kur stuid = '002';
--nuorodos žymeklis
--1. Silpnas tipas
deklaruoti
tipas curname yra ref žymeklis; --apibrėžti žymeklio tipą (curname yra tipo pavadinimas)
mycur1 curname; --
v_sex stuinfo.stusex%type;
v_row stuinfo%rowtype;
v_row2 subinfo%rowtype;
Pradėti
v_sex := '& lytis';
jei v_sex = 'vyras', tada
atidarykite mycur1 pasirinkite * iš stuinfo, kur stusex = 'vyras';
kilpa
atnešti mycur1 į v_row; --Skaityti žymeklį
išeiti, kai mycur1%notfound;
dbms_output.put_line('id:'|| v_row.stuid||', name: '|| v_row.stuname||', lytis: '|| v_row.stusex||' Gimtadienis: "|| v_row.stubir);
galinė kilpa;
kitaip
atidaryti mycur1 pasirinkti * iš subinformacijos;
kilpa
atnešti mycur1 į v_row2; --Skaityti žymeklį
išeiti, kai mycur1%notfound;
galinė kilpa;
pabaiga, jei;
uždaryti mycur1; --Išjunkite žymeklį
pabaiga;
pasirinkite * iš subinformacijos;
- Stiprus tipas
deklaruoti
tipas curname yra ref cursor return stuinfo%rowtype;
mycur1 curname;
v_sex stuinfo.stusex%type;
v_row stuinfo%rowtype;
Pradėti
v_sex := '& lytis';
jei v_sex = 'vyras', tada
atidarykite mycur1 pasirinkite * iš stuinfo, kur stusex = 'vyras';
kitaip
atidarykite mycur1 pasirinkite * iš stuinfo, kur stusex = 'moteris';
pabaiga, jei;
kilpa
atnešti mycur1 į v_row; --Skaityti žymeklį
išeiti, kai mycur1%notfound;
dbms_output.put_line('id:'|| v_row.stuid||', name: '|| v_row.stuname||', lytis: '|| v_row.stusex||' Gimtadienis: "|| v_row.stubir);
galinė kilpa;
uždaryti mycur1; --Išjunkite žymeklį
pabaiga;
|
Paskelbta 2015-03-19 10:53:06
|
|
|
Paskelbta 2015-03-19 11:21:08
|
