On Error GoTo lb_Err Set iSQLServer = New SQLDMO.SQLServer With iSQLServer If sUser = "" Then .LoginSecure = True .Start True, sServerName Else .Start True, sServerName, sUser, sPassword End If .Disconnect End With
GoTo lb_Exit
lb_Err: MsgBox "错误:" & Error, 48
lb_Exit: If Not (iSQLServer Is Nothing) Then Set iSQLServer = Nothing End Sub
to 樓上:過程出錯, 為start時,出現“存取被拒絕”,如果為.stop,則出現“無法找到RPC服務器”
'**函 数 名:s_Start_Server
'**功能描述:启动SQL服务
'**输 入: sServerName 要启动的SQL服务器名
'** : sUser 登陆的用户
'** : sPassword 登陆密码
'**输 出:无
'**调用模块: 引用: Microsoft SQLDMO Object Library
'**作 者: 邹建
'**日 期: 2003年11月12日
'*************************************************************************
Sub s_Start_Server(Optional ByVal sServerName$ = "", Optional ByVal sUser$ = "", Optional ByVal sPassword$ = "")
Dim iSQLServer As SQLDMO.SQLServer
On Error GoTo lb_Err
Set iSQLServer = New SQLDMO.SQLServer
With iSQLServer
If sUser = "" Then
.LoginSecure = True
.Start True, sServerName
Else
.Start True, sServerName, sUser, sPassword
End If
.Disconnect
End With
GoTo lb_Exit
lb_Err:
MsgBox "错误:" & Error, 48
lb_Exit:
If Not (iSQLServer Is Nothing) Then Set iSQLServer = Nothing
End Sub