التغلب على رسائل اخطاء قواعد البيانات

استخدم طريقة

Exception handling:

try
Put your code here
....
except
on E: Exception do
ShowMessage(E.Message);
end;

فمن خلالها يمكنك ايقاف الخطأ ووضع الرسالة الخاصة بك .

اخي الكريم ASP4DB

كل عام وانت بخير

اشكرك على اهتمامك وعلى هذا الكود و لكني لم اعرف كيف استخدمه ولا اين ارجو ان توضح اكثر مع ذكر مثال اذا امكن

تحياتي

هذا المثال هو للقسمة على صفر وهو طبعا أمر غير مقبول

Zero:=0;
try
 result:= 10 / Zero;
except
 on EZeroDivide do
   MessageDlg('Can not divide by zero!',
               mtError, [mbOK], 0);
end;

اخي الكريم ASP4DB

اشكرك على اهتمامك ... واعتقد اني لم افلح في ايصال الاستفسار بشكل الصحيح ...

ما ارغب به استاذي الكريم اعتراض خطأ تكرار الاندكس في السجل بالنسبة لقاعدة بيانات الاكسس واتعامل معها عن طريق ADO

ما هو الكود واين اضعه بالضبط .

اشكرك مرة اخرى على اهتمامك

أخي الكريم صدقني لو كتبت الكود لكان أفضل حتى يراه الجميع ويشاركوا أيضاً في حل المشكلة .

في انتظار ردك ... تحياتي

اخي الكريم محمد الجفري

السلام عليكم ورحمة الله وبركاته

ليس هناك أي كود ، كل ما في الامر اني اكتب في الـ DBGrid وعندما اضيف اي رقم مكرر في الانكس لقواعد البيانات تظهر لي الرسال الطويلة العريضة الافتراضية للاكسس في حالة تكرار الاندكس . وهذه الرسالة التي ارغب التغلب عليها واستبدالها برسالتي الخاصة مثل " هذا الرقم مكرر "

اشكر لك اهتمامك

أكتب الكود التالي ... وأخبرني بالنتيجة

abort;
showmessage('My MSG');

تحياتي لك

ولكن عند أي حدث اضيف هذا الكود ؟

اعذرني أخي

بالنسبة للكود فسيكون على الصورة التالية

procedure TForm1.ADOTable1_5Validate(Sender: TField);
begin
showmessage('سجل مكرر');
abort;
end;

أتمنى لك التوفيق

اشكرك اخي أحمد الجفري على حسن تعاونك

واتمنى من الله ان يوفقك