Stuinfo'dan * seçin;
--Örtük imleç
Başlamak
dbms_output.put_line('Sorgudan önce:'|| sql%rowcount);
stuinfo setini güncelleme stusex = 'dişi';
dbms_output.put_line('Sorgudan sonra:'|| sql%rowcount);
son;
--açık imleç
--1. Yaygın
ilan etmek
Cursor mycur1 StuInfo'dan * seçilmiş durumda; --imleci tanımlayın
--v_id stuinfo.stuid%type;
--v_name stuinfo.stuname%type;
--v_sex stuinfo.stusex%type;
--v_bir stuinfo.stubir%type;
v_row stuinfo%rowtype;
Başlamak
aç mycur1; --İmmalci aç
döngü
--mycur1'i v_id,v_name,v_sex,v_bir'a getir; --İmleci aşağı kaydırarak okuma değerini değişkene koymak
mycur1'i v_row'a getir; --İmleci oku
mycur1%notfound olduğunda çıkış;
--dbms_output.put_line('id:'|| v_id||', isim: '|| v_name||', cinsiyet: '|| v_sex||' Doğum günü: '|| v_bir); --Çıktı sonucu
dbms_output.put_line('id:'|| v_row.stuid||', isim: '|| v_row.stuname||', cinsiyet: '|| v_row.stusex||' Doğum günü: '|| v_row.stubir);
uç döngü;
Mycur1'i kapatmak; --İmmalci kapat
son;
--2. Parametreli Versifier
ilan etmek
Cursor mycur1(v_sex stuinfo.stusex%type) stuinfo içinden *'i seç burada stusex = v_sex; --imleci tanımlayın
v_row stuinfo%rowtype;
Başlamak
aç mycur1('&gender'); --İmmalci aç
döngü
mycur1'i v_row'a getir; --İmleci oku
mycur1%notfound olduğunda çıkış;
dbms_output.put_line('id:'|| v_row.stuid||', isim: '|| v_row.stuname||', cinsiyet: '|| v_row.stusex||' Doğum günü: '|| v_row.stubir);
uç döngü;
Mycur1'i kapatmak; --İmmalci kapat
son;
--3. Dairesel imleç
ilan etmek
Cursor mycur1 StuInfo'dan * seçilmiş durumda; --imleci tanımlayın
Başlamak
mycur1'de v_row için
döngü
dbms_output.put_line('id:'|| v_row.stuid||', isim: '|| v_row.stuname||', cinsiyet: '|| v_row.stusex||' Doğum günü: '|| v_row.stubir);
uç döngü;
son;
--4. Veriyi imleçle güncelle
ilan etmek
Güncelleme için StuInfo'dan CURSOR Mycur1 * seçeneği; --imleci tanımlayın
Başlamak
mycur1'de v_row için
döngü
eğer v_row.stuid = '003' o zaman
mycur1'in güncel olduğu stuinfo'dan sil;
else
güncelleme stuinfo seti stusex = 'erkek' mycur1'in akımı yerinde;
bitecek eğer;
uç döngü;
son;
Stuinfo'dan * seçin;
stuinfo setini güncelleme stusex = 'dişi' burada stuid = '002';
--referans imleci
--1. Zayıf tip
ilan etmek
type curname ref cursor'dur; --bir imleç tipi tanımlayın (curname tip adıdır)
mycur1 curname; --
v_sex stuinfo.stusex%type;
v_row stuinfo%rowtype;
v_row2 subinfo%rowtype;
Başlamak
v_sex := '& cinsiyet';
eğer v_sex = 'erkek' o zaman
Mycur1'i açın *Select for Select* from stuinfo, burada Stusex = 'erkek';
döngü
mycur1'i v_row'a getir; --İmleci oku
mycur1%notfound olduğunda çıkış;
dbms_output.put_line('id:'|| v_row.stuid||', isim: '|| v_row.stuname||', cinsiyet: '|| v_row.stusex||' Doğum günü: '|| v_row.stubir);
uç döngü;
else
Subinfo'dan * seçmek için mycur1'i açın;
döngü
mycur1'i v_row2'a getir; --İmleci oku
mycur1%notfound olduğunda çıkış;
uç döngü;
bitecek eğer;
Mycur1'i kapatmak; --İmmalci kapat
son;
Subinfo'dan * seçin;
--Güçlü tip
ilan etmek
type curname ref imleci dönüşü stuinfo%rowtype;
mycur1 curname;
v_sex stuinfo.stusex%type;
v_row stuinfo%rowtype;
Başlamak
v_sex := '& cinsiyet';
eğer v_sex = 'erkek' o zaman
Mycur1'i açın *Select for Select* from stuinfo, burada Stusex = 'erkek';
else
Mycur1'i açın *Stuinfo'dan seçin, burada Stusex = 'Dişi';
bitecek eğer;
döngü
mycur1'i v_row'a getir; --İmleci oku
mycur1%notfound olduğunda çıkış;
dbms_output.put_line('id:'|| v_row.stuid||', isim: '|| v_row.stuname||', cinsiyet: '|| v_row.stusex||' Doğum günü: '|| v_row.stubir);
uç döngü;
Mycur1'i kapatmak; --İmmalci kapat
son;
|
Yayınlandı 19.03.2015 10:53:06
|
|
|
Yayınlandı 19.03.2015 11:21:08
|
