السلام عليكم ورحمة الله ,,
قمت بكتابة هذا الكود فى حدث form load بحيث تظهر رسالة بالخطأ عند فشل الإتصال بقاعدة البينات والمشكلة هنا أن تلك الرسالة عند فشل الإتصال تظهر بصورة تكرارية بعد لا نهائى ولا تتوقف أبدا ,
try
cn.connection="provider =...........
cn.open
catch ex as exception
msgbox (ex.msg)
end
end try
علما بأن الكود صحيح والنقط فى الكود تعنى الكود لآخره وهوه ليس به خطأ بدليل أنه عند وضع نفس الكود تحت أى زر تظهر الرسالة مرة واحدة بشكل صحيح , فما هو الخطأ إذا هنا ؟؟؟
استخدم me.close لإغلاق النافذة - خصوصا إن كانت نافذة بداية البرنامج - كي تنهي البرنامج ولاتستخدم End لعمل ذلك كي يقوم البرنامج بالتنظيف بصورة صحيحة أثناء الإنهاء
على كل حال أرفق مثالا صغيرا موضحا فيه المشكلة حتى نرى أين المشكلة بالضبط
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو
أخى العزيز أشكرك لإهتمامك كثييييرا , هذا هو الكود
Private Sub MDIParent_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Try
cn.ConnectionString = "Password=1900818;Persist Security Info=True;User ID=sa;Initial Catalog=Library;Data Source=XP_4_PROG\PCSERVER"
cn.Open()
cmd.Connection = cn
cmd.CommandType = CommandType.Text
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
والمشكلة هى أنه عند تشغيل البرنامج تظهر الرسالة الموضحة بالكود عند فشل الإتصال تظهر بعددلا نهائى من المرات , وقد جربت وضع الكود فى حدث form activiated وحدثت نفس المشكلة , وعندما وضعت الكود تحت زر يعمل عند الضغط عليه إختفت المشكلة وظهرت الرسالة مرة واحدة , فما السبب فى ذلك ؟
تأكد من أنك لاتستدعي إجراء معالجة الحدث MDIParent_Load من مكان آخر يسبب تكرار انطلاق الحدث أو تكرار استدعاء الإجراء
لايوجد مشكلة في الكود المذكور سوى انني لاحظت أن سطر تعريف الحدث ينتهي بـ
Handles MyBase.Load
في العادة وليس بـ
Handles Me.Load
قم بتعليم اسم الإجراء MDIParent_Load وانقر عليه بالماوس اليميني ثم اختر الأمر Find All references لتجد كافة الاستدعاءات لهذا الاجراء
كما تأكد من كود إظهار الفورم أنه يتم تنفيذه مرة واحدة فقط
يمكنك التأكد من أن الحدث يتم استعاؤه العديد من المرات بواسطة كودك كما أتوقع وذلك بحذف أسطر - أو جعلها تعليقات - جميع الكود الموجود فيه والابقاء على الكود التالي فقط فعالا
MsgBox("1")وإن تكررت العديد من المرات كما أتوقع يمكنك الآن متابعة المشكلة لوحدك
وإن لم تستطع حصر المشكلة أخشى أنك ستضطر لإرفاق المشروع كاملا وليس قطعة الكود هذه فقط
تم تعديل هذه المشاركة بواسطة محمد سامر أبو سلو في 21 يونيو 2008 في 12:07
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو
لا شكر على واجب أخي
ويسعدني أنك استطعت حل مشكلتك أخيرا
وقد ذكرتني مشكلتك وحلها بموضوعين قديمين لي أرجو أن تكون قد اطلعت عليهما معالجة الأخطاء و تنقيح الأخطاء في برنامجك
عن عائشة رضي الله عنها أن النبي صلى الله عليه وسلم قال: إن الله يحب إذا عمل أحدكم عملا أن يتقنه
نعيب زماننا والعيب فينا ... وما لزماننا عيب سوانا
ونهجو ذا الزمان بغير ذنب ... ولو نطق الزمان لنا هجانا
محمد سامر أبو سلو