アクセルデータシステム | MS Access（アクセス）データベースシステムの受託開発

SQL Server ・MySQLのサービスのオン・オフをする

Windows Script Host - WScript.Shellを使う

使用例

コマンドプロンプトを利用してSQL Server ・MySQLのサービスのオン・オフをする

※SQL Server または、MySQLがインストールされている環境が必要です。

'MySQLのサービスを起動します。
Sub StertMySQL()

    Dim objWsh As Object
    Set objWsh = CreateObject("Wscript.Shell")
    
    objWsh.Run "net start mysql", 1, True
    
    Set objWsh = Nothing
End Sub

'MySQLのサービスを停止します。
Sub StopMySQL()

    Dim objWsh As Object
    Set objWsh = CreateObject("Wscript.Shell")
    
    objWsh.Run "net stop mysql", 1, True
    
    Set objWsh = Nothing
End Sub

------------------------------------------------------------

'SQL Serverのサービスを起動します。
Sub StertSQLServer()

    Dim objWsh As Object
    Set objWsh = CreateObject("Wscript.Shell")
    
    objWsh.Run "net start MSSQLServer", 1, True
    
    Set objWsh = Nothing
End Sub

'SQL Serverのサービスを停止します。
Sub StopSQLServer()

    Dim objWsh As Object
    Set objWsh = CreateObject("Wscript.Shell")
    
    objWsh.Run "net stop MSSQLServer", 1, True
    
    Set objWsh = Nothing
End Sub

>top