+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : دروس دلفي للمبتدئين (https://delphi4arab.net/forum/forumdisplay.php?fid=13)
+--- الموضوع : التعامل مع الاخطاء والاسثناءات مع مكونات Ado (/showthread.php?tid=6001)
التعامل مع الاخطاء والاسثناءات مع مكونات Ado - Delphi4Us - 06-03-2014
السلام عليكم ورحمة الله وبركاته
اذا كنت مبرمج دلفي جديد او كنت منتقل من لغة اخرى مثل الفيجوال بيسك او الدوت نت فكنت دائما تقتنص الاخطاء عن طريق رقم الخطاء ErrorNumber او ErrorNo او شئ كهذا .
في الدلفي بالتاكيد واجهتك مشكلة مثل هذه .
اذا هذه الطريقة تعطيك تجميعة وافية عن الخطاء .
كود :
LastErrorIndex,NumberError,NativeError:integer;
SourceError,DescriptionError,SQLStateError:string;كود :
try
....
....
....
ADOQuery1.Open;//Execute your sql statement
except
LastErrorIndex :=ADOConnection1.Errors.Count-1;
SourceError :=ADOConnection1.Errors.Item[LastErrorIndex].Source;
NumberError :=ADOConnection1.Errors.Item[LastErrorIndex].Number;
DescriptionError:=ADOConnection1.Errors.Item[LastErrorIndex].Description;
SQLStateError :=ADOConnection1.Errors.Item[LastErrorIndex].SQLState;
NativeError :=ADOConnection1.Errors.Item[LastErrorIndex].NativeError;
end;الان NumberError سيعود لك برقم الخطاء المطلوب او تعامل مع الخطاء باي شكل تريد .