[samerselo]

أنا أستخدم بالعادة الإجراء المدرج أدناه لإعادة رسائل الخطأ للمستخدم بعد اعتراضها باستخدام حلقة try..Catch
بس هي الطريقة بتفيدني أنا من أجل حل مشاكل البرنامج وبما أنو البرنامج عاملو للشركة التي أعمل بها إذا لا مشكلة بما أنني متواجد دوما ولكن إذا نفذت برنامج لزبون أعتقد أنه سيواجه بعض الإرباك نتيجة لرسائل الخطأ

برأيكم ما هي الطريقة الأمثل لإظهار رسائل خطأ للمستخدم وبنفس الوقت أفهم ما يجري ضمن الكود مع ملاحظة أن نوعية البرنامج الذي أتعامل معه هو Asp.net مع كود Vb.net وليس Desktop Application فهنا لايمكنني استخدام Windows Event Log لتسجيل الأخطاء وتتبعها

الكود

كود :

   Public Shared Function interpret_error_number(ByVal InErrorNumber As Integer) As String
       Dim ResponseMessage As String
       Select Case InErrorNumber
           Case 2627, 2601
               ResponseMessage = "خطأ تكرار قيمة موجودة"
           Case 102, 207
               ResponseMessage = "صيغة أمر خاطئة"
           Case 208
               ResponseMessage = "اسم عنصر خاطئ"
           Case 547
               ResponseMessage = "تضارب مع شرط مفتاح مرتبط"
           Case 245, 8114
               ResponseMessage = "خطأ تحويل بين أنواع البيانات"
           Case 4060
               ResponseMessage = "لا يمكن فتح قاعدة البيانات أو أن المخدم يرفض الإتصال"
           Case 137
               ResponseMessage = "متغير غير معرف"
           Case 134
               ResponseMessage = "المتغير معرف مسبقا"
           Case 515
               ResponseMessage = "إدراج قيمة فارغة في حقل لا يقبل قيم فارغة"
           Case 271
               ResponseMessage = "خطأ حماية بيانات. هل تحاول الكتابة إلى حفل حسابي"
           Case 241
               ResponseMessage = "خطأ تحويل قيمة نصية/رقمية إلى وقت/تاريخ"
           Case 209
               ResponseMessage = "اسم عمود غامض"
           Case 195
               ResponseMessage = "صيغة IS خاطئة"
           Case 156
               ResponseMessage = "صيغة استعلام خاطئة"
           Case 402
               ResponseMessage = "خطأ حماية بيانات. انواع البيانات غير متوافقة مع المعامل الممرر"
           Case 108
               ResponseMessage = "رقم الترتيب في قسم الترتيب خارج المجال المقبول"
           Case 189
               ResponseMessage = "المحددات الممرة للإجرائية ناقصة"
           Case 8187
               ResponseMessage = "المقبض المطلوب مستخدم من قبل أمر آخر"
           Case 8178
               ResponseMessage = "الاستعلام يتوقع محدد ولكنه غير ممرر للاستعلام"
           Case 4104
               ResponseMessage = "لم يتم العثور على المتغير متعدد الأجزاء"
           Case 8152
               ResponseMessage = "النص المدخل طويل جدا"
           Case 105
               ResponseMessage = "علامة تنصيص غير  مغلقة بعد النص في الاستعلام"
            Case Else
               ResponseMessage = "خطأ تنفيذ عملية في قاعدة البيانات"
       End Select
       Return ResponseMessage & ", رقم الخطأ: " & InErrorNumber
   End Function