Firebird de ShowMessage tarzı mesaj verdirmek

[gkimirti]

Firebird de procedureler yada triggerlar icerisinde bazen mesaj verdirmek var olan islemi kesmek gerekebilir.
bu islemi exceptionları kullanarak yapabilmekteyiz.
yalnız exceptionların sayısı artınca ve standart dısı bazı mesajlar vermek istediginizde bu islem sizi sınırlamakta.

Ben calısma anında, yani procedure yada trigger icra edilirken olusturulan bir mesajı gostermek istemekteyim, bunun icin asagıda goreceginiz tarzda bir yontem ile bunu hallettim.

oncelikle EX_DEGISKEN isimli bos bir exception olusturdum
sonra su proceduru olusturdum.

Kod: Tümünü seç

CREATE PROCEDURE SHOWEXCEPTION (
    MSG VARCHAR(100))
AS
begin
  execute statement 'ALTER EXCEPTION EX_DEGISKEN '''||:MSG||'''';
  exception ex_degisken;
end

herhangi bir procedure yada trigger icerisinde su sekilde kullanabiliriz.

Kod: Tümünü seç

execute procedure showexception('Bu değişken bir exception dır.');

Kolay gelsin,
Umarım işine yarayan birileri cıkar

[sadettinpolat]

ben şu sekilde kullanıyorum.

Kod: Tümünü seç

CREATE EXCEPTION EXC_TEMP ''

Kod: Tümünü seç

CREATE PROCEDURE XXXXXXX
AS
DECLARE VARIABLE MESAJ VARCHAR(100);
begin
 mesaj = 'Bu mesaj istenilen şekilde değiştirilebilir !!!';
 exception  exc_temp +  :mesaj;
 suspend;
end

[Fatih!]

IBExpertle Exception Oluşturma
Exceptionlar Delphide gördüğümüz showmessage komutundan bir farkı yok.
Exceptions e sağ tıklayıp New Exception dediğinizde aşağıdaki gibi bir pencere gelecektir.



Resimde işaret edillen yerleri Doldurmanız yeterli


Kullanımı
Exceptionlar sadece Stored Procedure ve Triggerlar içinde kullanılabilir
Stored Procedure ve Triggerlar içinde aşağıdaki şekilde çağırmalısınız.

Kod: Tümünü seç

EXCEPTION ExceptionADI;

Örnek

Kod: Tümünü seç

 exception silmemezsin;

Buda görsel versiyon