كتابة كود لايقاف Sql Server 2000بدلا من العمل اليدوي

هناك طريقتين اختي

الأولى :

Imports System.Diagnostics


		Dim MyProcess() As Process = Process.GetProcesses
		Dim i As Integer
		For i = 0 To Process.GetProcesses.Length - 1
			If MyProcess(i).ProcessName = "sqlservr" Then MyProcess(i).Kill()
		Next

هنا قمنا بالبحث عن جميع البرامج قيد التنفيذ فإذا وجد البرنامج المطلوب يقوم بإيقافه

( لاحظي كلمة "sqlservr" كما هي في قائمة المهام )

الطريقه الثانيه :

 Imports System.ServiceProcess



		Dim MyController As New System.ServiceProcess.ServiceController("MSSQLServer")
		MyController.Stop()

هنا قمنا بتحديد اسم البرنامج المطلوب ثم قمنا بإيقافه

وتستطيعي أن تشغلي البرنامج بنفس الطريقه بخلاف الطريقه الأولى