06-07-18, 09:14 PM
(06-07-18, 08:51 PM)elgokr كتب : بخصوص كود التحقق من السيرفر
كود :
If My.Computer.Network.Ping("51.22.34.188") = False Then
MsgBox("Server is Not Working...")
Exit Sub
End If
بخصوص كود التحقق بفتح الاتصال بقاعدة البياناتفمثلاً انت قمت بعمل كود فتح الاتصال
كود :
sqlcon.Open()
ضع اسفل منه كود التحقق
كود :
If Not sqlcon.State = ConnectionState.Open Then
MsgBox("Sql Server Can't Open.")
Exit Sub
End If
بحيث بطبيعة الحال انت قبل التحقق قمت بفتح الاتصال فعلياًطيب وليه الفكرة هنا بحيث اذا كنت وضعط كود الفتح والاغلاق داخل Tryولا تقوم بعرض رسالة الخطاء فبالطبيعي لم يظهر اى شئ يدل على الفتح او الاغلاق
تحياتى لك
هو انتا تقصد بالكود الاول الخاص بفحص السيرفر == دة فحص حالة النت
والكود الثاني كود فتح الاتصال اذا كان الاتصال مفتوح يعني قاعدة البيانات متفاعل معها وتم الاتصال بها
هل ما فهمت صحيح

