请问大力：如何使用C#或者VB启动和关闭一个SQL服务。

cenxaoi 2003-11-11 05:42:53

如提。

...全文

41 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

cenxaoi 2003-11-12

打赏
举报

还需要知道B机的密码
如果知道B机的某个有权项控制SQL服务的帐号和密码。
命令该如何写。

zjcxc 2003-11-12

打赏
举报

'*************************************************************************
'**函数名：s_Start_Server
'**输入： sServerName 要启动的SQL服务器名
'** ： sUser 登陆的用户
'** ： sPassword 登陆密码
'**输出：无
'**功能描述：启动SQL服务
'**
'**调用模块：'引用: 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

zjcxc 2003-11-12

打赏
举报

'VB中的例子

'*************************************************************************
'**函数名：f_Get_ServerStatus
'**输入： sServerName 要查看状态的SQL服务器名
'** ： sUser 登陆的用户
'** ： sPassword 登陆密码
'**输出：无
'**功能描述：得到SQL服务器的状态
'**
'**调用模块：'引用: Microsoft SQLDMO Object Library
'**作者：邹建
'**日期： 2003年11月12日
Function f_Get_ServerStatus(Optional ByVal sServerName$ = "", Optional ByVal sUser$ = "", Optional ByVal sPassword$ = "")
Dim iSQLServer As SQLDMO.SQLServer
Dim iRe$

On Error GoTo lb_Err
Set iSQLServer = New SQLDMO.SQLServer
With iSQLServer
If sUser = "" Then
.LoginSecure = True
.Connect sServerName
Else
.Connect sServerName, sUser, sPassword
End If
Select Case .Status
Case SQLDMOSvc_Continuing
iRe = "正在连接"
Case SQLDMOSvc_Paused
iRe = "暂停"
Case SQLDMOSvc_Pausing
iRe = "正在暂停"
Case SQLDMOSvc_Running
iRe = "运行"
Case SQLDMOSvc_Starting
iRe = "正在启动"
Case SQLDMOSvc_Stopped
iRe = "停止"
Case SQLDMOSvc_Stopping
iRe = "正在停止"
Case SQLDMOSvc_Unknown
iRe = "未知"
End Select
.DisConnect
End With

GoTo lb_Exit

lb_Err:
MsgBox "错误:" & Error, 48
iRe = "错误"
lb_Exit:
If Not (iSQLServer Is Nothing) Then Set iSQLServer = Nothing
f_Get_ServerStatus = iRe
End Function

zjcxc 2003-11-12