إزالة العلل والأخطاء وتصحيحها

السلام عليكم

أخى العزيز هانى

HnHn كتب:

ان ما توصلتوا له جميعا هوالاصح وهذا ناتج من عملية تجربة وهذا ما اريد أن ابينه لكم ..وليس كما اقترحتم في بداية الاجوبة بخطأ مكان معالج الأخطأ ... فالخطأ واضح بأننا لم ننهي جملة Try بـ END TRY

هل هذا يعنى ان رساله الخطأ كانت بسبب جمله End Try

ه

اقتباس

ل هذا يعنى ان رساله الخطأ كانت بسبب جمله End Try

لايمكن ان يكون هذا سبب رسالة الخطأ لانه فى هذه الحالة سيكون خطأ فى صياغة الكود ولن يتم ترجمة وبناء التطبيق،،، بصراحة لا ادرى ما هو سبب الخطأ فهو غير واضح؟؟!!! :o

:lol: معالجة الخطأ بخطأ

اخواني الكرام

أنا لم أقل اني أريد سبب الرسالة التي في الصورة وانما قلت ان معالج الأخطاء لم يعمل لأظهار الرسالة التوضيحيه والتي ستخبرنا ان هناك خطأ في الاتصال .. فالصورة مجرد تمويه ... وكان هدفي هو ان تنسخ الكود التالي

Try

		Dim strConnect As String = _
			"Provider=Microsoft.Jet.OLEDB.4.0;" & _
			"Data Source= C:\Documents and Settings\HnHn\Desktop\db.mdb;" & _
			"Persist Security Info=False"

		'Declare and Open OLEDBCONNECTION FOR Access2k database
		Dim ocon As OleDbConnection = New OleDbConnection(strConnect)
		ocon.Open()

		Catch


	MsgBox("فضلا تأكد من مسار القاعدة ")

لكي تعرف عندها أنه خطأ من نوع Syntax error كما تفضل به الأخ golden man

اقتباس

إخواني إن الخطأ ليس في كتابة جملة End Try لأن عدم كتابتها يؤدي إلى حدوث خطأ في التركيب الللغوي (Syntax error)

هذا صحيح وهذا ما اريده حيث ستظهر لك الخطوط الزرقاء تحت كلمة Catch والتي تدل على نقص الجملة ..عندها ستقوم بالتعديل على الجملة بوضع End Try لكي تظهر الرسالة بالخطأ في الاتصال .. لأنه أكيد غير مكتمل لديك B) فقط هذا هو المقصود .. فلو تلاحظون اني لم اذكر End Try في الشفرة السابقة وهذا متعمد مني .. B) لكي تبحثو عن الخطأ الموجود في الصورة بينما الخطأ في الشفرة التي تسبق الصورة فقط . .. هذا ما في الأمر وستكون الشفرة الصحيحة التي ستظهر الرسالة بوجود خطأ في الاتصال كالتالي ..

Try

		Dim strConnect As String = _
			"Provider=Microsoft.Jet.OLEDB.4.0;" & _
			"Data Source= C:\Documents and Settings\HnHn\Desktop\db.mdb;" & _
			"Persist Security Info=False"

		'Declare and Open OLEDBCONNECTION FOR Access2k database
		Dim ocon As OleDbConnection = New OleDbConnection(strConnect)
		ocon.Open()

		Catch


	MsgBox("فضلا تأكد من مسار القاعدة ")

End Try

قد اكون بالغت في صياغة السؤال أو لم اشرحه بطريقة تستوعب للجميع ولكني نجحت باني جعلتك تركز على شي والمطلوب شي آخر .... كما يفعل اغلب الاعضاء في اسئلتهم :lol

أتمنى ان اكون أوضحت القصد .

مرحبا

أخى HnHn انت تمتلك اسلوب بارع فى الشرح

أتمنى ان تكمل ......

تحياتى

مرحبا من جديد

ولك ذلك أخ cdcase فالدرس لم يتوقف .. ولا أريد من هذا الموضوع سوء أكماله ووضع اكبر قدر من المعلومات فيه ليكون مرجع لمن يريد معرفة مثل هكذا مشاكل :blink:

و اليوم سنتحدث عن اكتشاف الأخطاء الأكثر تعقيدا

فعندما تصبح برامجك متطورة واكثر تعقيداً سنستخدم عندها معالج الأخطاء بالتعقيد نفسه .... كيف ؟ هذا هو موضوعنا

قبل أن نبدء بالتطبيق أو الاختبار بمعالجة هذه الاخطاء هناك عدة امور مهمة يجب معرفتها اولاً وسنبدأ ....

بالتعرف إلى الكائن Err

فهو الكائن الذي يحتوي على معلومات مفصلة عن كل خطأ يحدث وقت الحدث وخصائصه تفيد في التعرف على الاخطاء برسائل نصيه توضيحيه وهي كالتالي

[1] Err.Number حيث أنها تحتوي على رقم أحدث خطأ واغلب ارقام الأخطاء سأذكر بعضها بعد هذه النقطة ...

[2] Err.Description تقوم هذه الداله بأظهار رسالة قصيرة تطابق رقم الخطأ .. كما يلي

[رقم الخطأ] .......... [رسالة الخطأ الافنراضية التي ستظهر ] .......... [توضيح مبسط ]

=====================================================================

[ 5 ]..................... Procedure Call Or Argument ...................... خطأ في الاجراءات أو في طريقة استدعائها

[ 6 ]..................... Overflow ................................................. خطأ في عملية حسابية

[ 7 ]..................... Out Of Memory ....................................... خطأ في الذاكرة

[ 9 ]..................... Subscript Out Of Range ........................... خطأ في بنية طبقة تنفيذه

[ 11 ].................... Division By Zero ...................................... خطأ يحدث عندما لايجد مايبدء به كالحد فاصل

[ 13 ].................... Type Mismatch ....................................... خطأ لنوع من الدمج الغير مناسب

[ 48 ].................... Error ini Loading DLL .............................. خطأ في عدم تحميل أو العثور على ملف DLL

[ 51 ].................... Internal Error ........................................ خطأ في المتصفح

[ 52 ].................... Bad File Name Or Number ...................... خطأ في اسم ملف كأن تكتبه بدون امتداد

[ 53 ].................... File Not Found ....................................... خطأ يحدث عند عدم العثور على ملف ما في المسار المحدد

[ 55 ].................... File already Open .................................. خطأ يحدث نفس الملف اكثر من مره كالملفات Txt

[ 57 ].................... Device 1/0 error ................................... خطأ حدث في اجزاء الكمبيوتر أو مخارجه

[ 58 ].................... File already exists ................................ خطأ يحدث عند عدم قدرة البرنامج على قراءة ملف ما

[ 61 ].................... Disk Full ................................................ خطأ يحدث عند عدم وجود مساحة في الديسك

[ 62 ].................... Input Past And Of file .......................... خطأ يحدث نتيجة الادخال

[ 67 ]................... Too Many Fils ........................................ خطأ يحدث نتيجة التكرار او عدد مرات شيىء ما

[ 68 ]................... Device unavailable .................................. خطأ يحدث نتيجة عدم وجود أو توقر غرض ما في الجهاز

[ 70 ]................... Permission denied ................................... خطأ يحدث نتيجة انتهاء التصريح أو صلاحية

[ 71 ]................... Disk not ready ...................................... خطأ يحدث نتيجة عدم جهازية الديسك

[ 74 ]................... Can't rename With diffrernt drive ......... خطأ يحدث عند عدم التمكن من تسمية القرص

[ 429 ]................ Cannot Create ActiveX Component .......... خطأ يحدث نتيجة اداوت الاكتف اكس بإستدعائها أو انشائها

[ 482 ]................... Printer error ...................................... خطأ يحدث نتيجة الطباعة أو الطابعات

والكشف مستمر ... على حسب نوعية الخطأ ومعطياته

=====================================================================

بارك الله فيكما يا golden man ويا solo.net

وبارك الله لكما