<requestedExecutionLevel level="requireAdministrator" uiAccess="false"/>

Imports System.ComponentModel
Imports System.Configuration.Install
Imports System.Data.SqlClient
Imports System.IO

Public Class DetachDB

	Dim instNames() As String

    Public Sub New()
        MyBase.New()

        'This call is required by the Component Designer.
        InitializeComponent()

        'Add initialization code after the call to InitializeComponent
	End Sub

	<Security.Permissions.SecurityPermission(Security.Permissions.SecurityAction.Demand)> _
	Protected Overrides Sub OnBeforeUninstall(ByVal savedState As System.Collections.IDictionary)
		MyBase.OnBeforeUninstall(savedState)

		GetInstanceNamesbyRegistry()

		ServiceController.ServiceName = "MSSQL$" & instNames(0).ToString

		Try
			If (ServiceController.Status = ServiceProcess.ServiceControllerStatus.Stopped) Then
				MsgBox("SQL Server Service is stopped. This service has to be started in order to run Uninstallation." & _
				  vbCrLf & "Starting SQL Server Service.", MsgBoxStyle.Information, "Warning")
				ServiceController.Start()
				ServiceController.WaitForStatus(ServiceProcess.ServiceControllerStatus.Running)
			ElseIf (ServiceController.Status = ServiceProcess.ServiceControllerStatus.Paused) Then
				MsgBox("SQL Server Service is paused. This service has to be started in order to run Uninstallation." & _
				  vbCrLf & "Starting SQL Server Service.", MsgBoxStyle.Information, "Warning")
				ServiceController.Continue()
				ServiceController.WaitForStatus(ServiceProcess.ServiceControllerStatus.Running)
			End If
		Catch ex As Exception
			MsgBox("Errorï¼?quot; & ex.Message, MsgBoxStyle.Critical)
			Throw ex
		Finally
			ServiceController.Close()
		End Try

		Dim sqlConn As New SqlConnection("Data Source=.\" & instNames(0).ToString & ";Initial Catalog=master;Integrated Security=True")
		Dim sqlCmd As New SqlCommand("sp_detach_db @dbname = N'HRM_DB'", sqlConn)

		Try
			sqlConn.Open()
			sqlCmd.ExecuteNonQuery()
		Catch ex As Exception
			MsgBox("Errorï¼?quot; & ex.Message, MsgBoxStyle.Critical)
			Throw ex
		Finally
			sqlConn.Close()
		End Try
	End Sub

	Public Sub GetInstanceNamesbyRegistry()
		Try
			'Get local SQL server instance name from registry of installed machine
			Dim regKey As Microsoft.Win32.RegistryKey = _
			Microsoft.Win32.Registry.LocalMachine.OpenSubKey("SOFTWARE\Microsoft\Microsoft SQL Server\Instance Names\SQL", False)

			If Not IsNothing(regKey) Then
				If regKey.ValueCount > 0 Then
					instNames = DirectCast(regKey.GetValueNames(), String())
				End If
			End If
		Catch ex As Exception
			MsgBox("Errorï¼?quot; & ex.Message, MsgBoxStyle.Critical)
			Throw ex
		End Try

	End Sub

End Class