戻る

VB から MSDE(SQL Server 7.0) サービスを開始する

概要

Visual Basic から MSDE もしくは SQL Server 7.0 の起動 / 停止を行う。
Microsoft SQLDMO Object Library を使用します。

サンプル

　 VB から MSDE(SQL Server 7.0) サービスを開始する

Option Explicit

Private Sub cmdStart_Click()
'   MSDE/SQL Server 7.0 を起動する

    Dim objSQLDMO As Object
    
    'SQLDMOオブジェクトを参照する
    Set objSQLDMO = CreateObject("SQLDMO.SQLServer")
    
    '構文 Start 起動モード, サーバ名, ユーザID, パスワード
    objSQLDMO.Start True, "(local)", "sa", ""
    

End Sub

Private Sub cmdStop_Click()
'   MSDE/SQL Server 7.0 を停止する

    Dim objSQLDMO As Object
    
    'SQLDMOオブジェクトを参照する
    Set objSQLDMO = CreateObject("SQLDMO.SQLServer")
    
    '停止命令を出すためにサーバに接続する
    
    '構文 Connect サーバ名, ユーザID, パスワード
    objSQLDMO.Connect "(local)", "sa", ""
    
    '接続したサーバを停止する
    objSQLDMO.Stop


End Sub


©2000 VBMANIA All rights reserved.