كيف يمكن معرفة ان الاجراء قد تم تنفيذه ؟

بدأه أحمد_ليبيا في 9 نوفمبر 2008 · 4 رد · 645 مشاهدة · في لغة Delphi

#19 نوفمبر 2008 في 22:16 صاحب الموضوع

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

- لدي برنامج يتعامل مع قواعد البيانات SQL Server والذي يوجد بها اجراء مخزن يقوم بعملية اللإضافة .. فيكف يمكن معرفة أن عملية الاضافة قد تمت ام هنالك مشكلة مثلاً في تكرار المفتاح الاساسي او غيرها ..

- لقد قمت باستخدما الاداء (adostoredproc)

- وشكرا

------

#29 نوفمبر 2008 في 23:01

TRY

EXCEPT

#310 نوفمبر 2008 في 00:50

try

الأوامر التي تريدها مثلا

table.fieldbyname('field').asstring := edit1.text

.....

في النهاية قم بإظهار رسالة تشير إلى أنتهاء العمليه

showmessage('complete') ; l

except

هنا في حال وجود خطأ

on E: exception do

showmessage('error') ; l

end ;

تم تعديل هذه المشاركة بواسطة rober في 10 نوفمبر 2008 في 00:53

I'm Away For Sometimes

I'll Finish My Works

Come Back Soon

More Study > More Search > More Try > More Learning > Great Success

#415 نوفمبر 2008 في 20:48

مشكورين على الايضاحات .. ولكن في اجراء الاضافة وعند حدوت خطأ ما بالرغم من انه يتم عرض رسالة الخطأ التي في Try Except ومع ذلك تتم الاضافة وذلك لانه يتم اضافة القيم الاقتراضية للمكون (ADOStorPro) حتى مع وجود الخطأ .

تم تعديل هذه المشاركة بواسطة أحمد_ليبيا في 15 نوفمبر 2008 في 20:51

------

#516 نوفمبر 2008 في 05:21

أخ أحمد يا ريت تضع مثال و هيك تسهل على نفسك الوقت و على الشخص المساعد الفهم :blush:

بكل الأحوال جرب المرفق الذي يحدث فيه الخطأ ( عدم وجود الحقل id1 في الجدول ) ( الخطأ مقصود طبعا )

بإستخدام الكود التالي

procedure TForm1.Button1Click(Sender: TObject);
begin
   try
	 adotable1.Insert;
	 adotable1.FieldValues['id1'] := edit1.Text;
	 adotable1.FieldValues['name'] := edit2.Text;
	 adotable1.Post;
	 messagedlg('Save is complete',mtinformation,[mbok],0);
   except
	 on E : exception do
	 begin
		messagedlg('the error is '+e.Message,mterror,[mbok],0);
	 end;
   end;
end;

أرجو أن يفيدك و معك حتى تجد الحل الذي تريده بعون الله

Try_Except.rar

تم تعديل هذه المشاركة بواسطة rober في 16 نوفمبر 2008 في 05:27