Spuštění a zastavení MS SQL Serveru
Postup:
Do projektu je třeba přidat referenci na MS SQLDMO Object Library.
Na formulář přidejte tlačítko a na jeho událost Click zapište:
Private Sub Command1_Click()
Dim SQLServer As SQLDMO.SQLServer
Set SQLServer = New SQLDMO.SQLServer
'Tady
zadejte jméno vašeho serveru
SQLServer.Name = "BOZENA"
'Pokud
je server zastaven, tak se ho pokusíme nahodit ...
If
SQLServer.Status = SQLDMOSvc_Stopped Then
SQLServer.Start False, SQLServer.Name
End If
'Počkáme,
dokud server bude ve stavu spuštění ...
Do While SQLServer.Status =
SQLDMOSvc_Starting
DoEvents
Loop
MsgBox "Server je nastartován, nyní bude jeho běh ukončen ..."
'A
nyní ho zase ukončíme ....
SQLServer.Stop
End Sub
Jestli to funguje si můžete ověřit pomocí SQL Service Manageru ...