أستفسار حول معرفة حالة الخادم من خلال Vb.net 2008

مافي رد ياجماعة

شعال من اي ناحية؟

يمكنك ان تعمل connection عادية لل sql server مع استعمالك ل Try Catch Exception end try لتمكنك من الحصول على الخطأ واظهار رسالة الى المستخدم

هل هذا يفي بالغرض؟

مشكور ياخو علي تالمرور بس والله بعد البحث لقيت الحل

أنا عامل منظومة مبيعات لمحل صديقي والمشكلة أني أريد تشغيل السيرفر في حالة أنه متوقف من خلال الفيجوال البيسك منعاً للمشاكل ووكثرة الرسائل فقمت بالبحث ووجدت كود في أحد المواقع الأجنبية قريب من الفكرة التي أريدها وبعد التجربة تحصلت علي المطلوب كالتالي

Module Module1

'تعريف جملة أتصال

dim sqlcnst As String = "Data Source=.;Initial Catalog=shop;Integrated Security=True

'تعريف كائن أتصال

Public sqcon As New SqlConnection

sub main ()

'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

'التأكد من حالة السيرفر

'تعريف متغير من نوع التحكم بسيرفر

Dim y As New ServiceController

'جعل متغير التحكم يتحكم بالسيرفر المدرج أسمه في خاصية السيرفر نيم

y.ServiceName = "MSSQLSERVER"

'الأن معرفة حالة السيرفر أذا ما كان متوقف فيتم تشغيله

If y.Status = ServiceControllerStatus.Stopped Then

y.Start()

End If

'الأتصال بقاعدة البيانات

sq = New SqlConnection(s)

sq.Open()

dim f as new form1

f.ShowDialog()

end sub

End Module

ولكن ههذه الطريقة تقتصر علي سيرفر محلي فأتمني طريقة تنفع الي تشغيلل سيرفر عبر الشبكة