السلام عليكم
اثناء عملي على انشاء برنامج بلغة Delphi لقواعد بيانات Oracle واجهتني مشكلة ولكن في البداية اريد ان اشرح لكم الوضع
'there is a Table called 'Area
with the following Fields and constraints
Area_Id Primary Key
Area_Ename Unique
Area_Aname Not Null
المشكلة كالتالي
انه عند ادخال قيمة في الحقل Area_Ename بحيث تكون موجودة من قبل
فانه يعطيني رسالة خطأ
ora-00001 Unique Constraint ( SchemaName.Unique ) Violated
ويكون اسم ال Exception هو EDatabaseError
وعند عدم ادخال قيمة في الحقل Area_Aname فانه يعطيني رسالة خطأ
ora-01400 Cannot Insert NULL into SchemaName.TableName.Area_Aname
ويكون اسم ال Exception هو EDatabaseError ايضا
وهذا هو الجزء من الكود الذي يعطي هذه الرسائل
try
ADOTableName.Post
Excetp
on EDatabaseError do
;('???')showmessage
end;
السؤال كيف اجعل البرنامج يخرج رسالتي الخاصة حسب رقم الخطأ الناتج من Oracle
وشكرا
أبو قصي