Rastgele Yazılar : 11.2.0.1'den 11.2.0.3'e Upgrade

Rastgele Yazılar : OLAP Mimarisine Genel Bakış-1

Rastgele Yazılar : Datawarehouse Yapısından Azıcık

Rastgele Yazılar : Alınan Backupların Sağlamlığını Nasıl Test Edebiliriz

Rastgele Yazılar : Rowtype kullanımı

Rastgele Yazılar : Oracle Data İntegrator Arayüz-3

Rastgele Yazılar : Data Guard Switchover "ORA-16139: media recovery requi...

Rastgele Yazılar : PL/SQL Yazı Dizisi-3

Rastgele Yazılar : Oracle Hata Kodları-2

Rastgele Yazılar : Oracle Data Integrator(ODI) Genel Bakış

Üye Kayıt Formu

Bay Bayan

* 'lı alanların doldurulması zorunludur

Üye Girişi

veya

Şifremi Unuttum

09 Şubat 2011 Çarşamba

Kullanıcı Hesabını Package Yardımı İle Açma - Kapatma

Yazar : Kamil TURKYILMAZ

Merhaba Arkadaşlar,

Öncelikle başlığı okudukdan sonra şöyle bir soru sorulabilir, alter user XXXX account lock / unlock ile zaten bu işlemi yapıyoruz. Neden bunu bir package aracılığı ile yapmak isteyeyimki diye düşünebilirsiniz, Evet bu işlemi yapacak olan kullanıcıya Alter User yetkisini vermek için önünüzde bir engel yoksa böyle bir package' a da ihtiyacınız yok demektir. Ancak BDDK denetimine tabi olan kurumlarda bu tarz yetkilerin kullanıcılarda olmasına pek izin verilmiyor (dba' ler hariç tabiki) Hal böyle bu işlemi yapacak olan kullanıcıya sadece aşağıdaki package için execute yetkisi vermeniz yeterli oluyor. Package kısaca şunu yapıyor benim belirlemiş olduğum kullanıcıların accountlarının durumlarını değiştirme yetkisi veriyor. Özetle bu aslında, şimdi create edip bir örnek yapalım ;

CREATE OR REPLACE procedure kamil.UserLockUnlock(pUserName in varchar2, pLockUnlock in varchar2)

icount pls_integer;

BEGIN

select count(*) into icount

from dba_users

where username = upper(pusername);

if (icount > 0)then

if upper(substr(pUserName,1,4)) = 'USER' or upper(substr(pUserName,1,6)) = 'GECICI' Then

if upper(plockUnlock) = 'L' Then

execute immediate 'alter user ' || pUserName || ' account lock';

dbms_output.put_line('Kullanıcı Hesabı Kilitlendi.');

elsif upper(plockUnlock) = 'U' Then

execute immediate 'alter user ' || pUserName || ' account unlock';

dbms_output.put_line('Kullanıcı Hesabı Açıldı.');

else

raise_application_error( -20001, 'Kullanıcıyı Açmak için U , Kilitlemek için L girmelisiniz!');

end if;

Else

raise_application_error( -20001, 'Bu kullanıcı için yetkiniz yoktur!');

end if;

else

raise_application_error( -20001, 'Kullanıcı mevcut değil!');

end if;

END;

Package' ımızın ismi kamil.UserLockUnlock ve bu package 2 tane değişkenle call ediyoruz.

Birincisi üzerinde işlem yapacağımız USERNAME bilgisi diğeri ise yapmak istediğimiz işlemin ne olduğu, accountu açacakmıyız, kapatacakmıyız. Bizim örneğimizde kullanıcı ismi USER ve GECICI ile başlayan kullanıcı adlarında sadece işlem yapılabilinir. Bunun dışındaki userlar için işlem yapılmak istenirse, hata dönecektir. Yapılacak olan işlemin type' ları içinse "L" gönderilirse LOCK, "U" gönderilirse "UNLOCK" işlemi yapılacaktır. Örneğin USER_OZSOY kullanıcısın accountunu lock yapmak istersek ;

begin

kamil.LockUnlockUser('USER_OZSOY','L');

end;

USER_OZSOY hesabını unlock etmek istersek de ;

begin

kamil.LockUnlockUser('TEMP_OZSOY','U');

end;

komutlarını çalıştırmamız yeterli olacaktır.

Bu Makaleleride Okuyabilirsiniz!

Veri ve Redo Log Dosyalarının Dosya Sisteminden ASM 'e RMAN ile Taşınması

25 Kasım 2012 Pazar

Microsoft SQL Server a Giriş

19 Eylül 2012 Çarşamba

ORACLE - ORA HATALARI

13 Şubat 2011 Pazar

SGA & PGA

13 Şubat 2011 Pazar

SQL Server da Stored Procedure Kullanımı

22 Nisan 2012 Pazar

Bu Konu 1593 Kez Okundu

Etiketler : alter user , kapama , açma , package , package yardımı , kullanıcı hesabı

Beğendiyseniz Paylaşın :

Bu soruyu değerlendirin

Bu makale henüz değerlendirilmedi

YORUMLAR

YORUM YAZ

YAZAR HAKKINDA

YAZARIN DİĞER YAZILARI

Bu makale ile ilgili henüz yorum eklenmedi!

Yorum yazabilmek için üye girişi yapmalısınız

Kamil TURKYILMAZ

1979 Tokat/Zile doğumluyum. Yıldız Teknik Üniversitesi 1997 - 2001 mezunuyum ancak 1998 yılından itibaren IT sektöründe, 2000 yılından bu yanada Oracle üzerine çalışmaktayım. 2005 yılına kadar oracle database'i üzerine yazılmış olan kimi uygulamalara software support hizmeti, sonrasında ise oracle veritabanı yöneticiliği olmak üzere yaklaşık 12 yıldır sektör içerisindeyim. Oracle' ın hemen hemen tüm ürünlerinin kurulumu, konfigurasyonu, yönetimi konusundaki çalışmalarıma özel bir bankada oracle dba olarak devam etmekteyim. Aynı zamanda kimi bilişim sitelerinde yazarlık yapıyorum, bunun yanısıra bu alandaki deneyim ve tecrübelerimi daha fazla kullanıcıyla paylaşabilmek adına bir de oracle blog yazarıyım.
Web Sitesi : www.kamilturkyilmaz.com E-Posta : [email protected]