[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

ولا تقوم بعرض رسالة الخطاء فبالطبيعي لم يظهر اى شئ يدل على الفتح او الاغلاق

تحياتى لك